[R/ABC_SMC.R:2:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L2) *style:* **Variable and function names should be all lowercase.**
```r
getRandomVals <- function(max_val)  {
^~~~~~~~~~~~~
```
[R/ABC_SMC.R:15:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L15) *style:* **Variable and function names should be all lowercase.**
```r
getFromPrevious <- function(inds, ws, disps, filts, comps)  {
^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:22:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L22) *style:* **Variable and function names should be all lowercase.**
```r
calculateWeight <- function(params, target, sigma,
^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:29:5:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L29) *style:* **Variable and function names should be all lowercase.**
```r
    prevP <- c(disp_vals[i], filt_vals[i], comp_vals[i])
    ^~~~~
```
[R/ABC_SMC.R:30:30:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L30) *style:* **Variable and function names should be all lowercase.**
```r
    diff <- params[target] - prevP[target]
                             ^~~~~
```
[R/ABC_SMC.R:37:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L37) *style:* **Variable and function names should be all lowercase.**
```r
normalizeWeights <- function(x) {
^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:71:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L71) *style:* **Variable and function names should be all lowercase.**
```r
calculateDistance <- function(rich, even, div, opt_diff, obs, sd_vals)  {
^~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:75:40:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L75) *style:* **Put spaces around all infix operators.**
```r
  fit_optima <- (opt_diff / sd_vals[4])^2;
                                      ~^~
```
[R/ABC_SMC.R:83:21:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L83) *style:* **Variable and function names should be all lowercase.**
```r
ABC_SMC <- function(numParticles, species_fallout, taxa, esppres, n_traits,
                    ^~~~~~~~~~~~
```
[R/ABC_SMC.R:85:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L85) *style:* **lines should not be more than 80 characters.**
```r
                    abundances, frequencies, stopRate, Ord, continue_from_file = TRUE,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:85:46:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L85) *style:* **Variable and function names should be all lowercase.**
```r
                    abundances, frequencies, stopRate, Ord, continue_from_file = TRUE,
                                             ^~~~~~~~
```
[R/ABC_SMC.R:90:3:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L90) *style:* **Variable and function names should be all lowercase.**
```r
  dispVals <- 1:numParticles
  ^~~~~~~~
```
[R/ABC_SMC.R:90:17:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L90) *style:* **Variable and function names should be all lowercase.**
```r
  dispVals <- 1:numParticles
                ^~~~~~~~~~~~
```
[R/ABC_SMC.R:91:3:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L91) *style:* **Variable and function names should be all lowercase.**
```r
  filtVals <- 1:numParticles
  ^~~~~~~~
```
[R/ABC_SMC.R:91:17:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L91) *style:* **Variable and function names should be all lowercase.**
```r
  filtVals <- 1:numParticles
                ^~~~~~~~~~~~
```
[R/ABC_SMC.R:92:3:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L92) *style:* **Variable and function names should be all lowercase.**
```r
  compVals <- 1:numParticles
  ^~~~~~~~
```
[R/ABC_SMC.R:92:17:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L92) *style:* **Variable and function names should be all lowercase.**
```r
  compVals <- 1:numParticles
                ^~~~~~~~~~~~
```
[R/ABC_SMC.R:94:13:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L94) *style:* **Variable and function names should be all lowercase.**
```r
  fits <- 1:numParticles
            ^~~~~~~~~~~~
```
[R/ABC_SMC.R:95:3:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L95) *style:* **Variable and function names should be all lowercase.**
```r
  RichVec <- 1:numParticles
  ^~~~~~~
```
[R/ABC_SMC.R:95:16:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L95) *style:* **Variable and function names should be all lowercase.**
```r
  RichVec <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:96:3:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L96) *style:* **Variable and function names should be all lowercase.**
```r
  EveVec <- 1:numParticles
  ^~~~~~
```
[R/ABC_SMC.R:96:15:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L96) *style:* **Variable and function names should be all lowercase.**
```r
  EveVec <- 1:numParticles
              ^~~~~~~~~~~~
```
[R/ABC_SMC.R:97:3:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L97) *style:* **Variable and function names should be all lowercase.**
```r
  DivVec <- 1:numParticles
  ^~~~~~
```
[R/ABC_SMC.R:97:15:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L97) *style:* **Variable and function names should be all lowercase.**
```r
  DivVec <- 1:numParticles
              ^~~~~~~~~~~~
```
[R/ABC_SMC.R:98:3:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L98) *style:* **Variable and function names should be all lowercase.**
```r
  OptVec <- 1:numParticles
  ^~~~~~
```
[R/ABC_SMC.R:98:15:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L98) *style:* **Variable and function names should be all lowercase.**
```r
  OptVec <- 1:numParticles
              ^~~~~~~~~~~~
```
[R/ABC_SMC.R:100:3:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L100) *style:* **Variable and function names should be all lowercase.**
```r
  nextDisp <- dispVals
  ^~~~~~~~
```
[R/ABC_SMC.R:100:15:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L100) *style:* **Variable and function names should be all lowercase.**
```r
  nextDisp <- dispVals
              ^~~~~~~~
```
[R/ABC_SMC.R:101:3:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L101) *style:* **Variable and function names should be all lowercase.**
```r
  nextFilt <- filtVals
  ^~~~~~~~
```
[R/ABC_SMC.R:101:15:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L101) *style:* **Variable and function names should be all lowercase.**
```r
  nextFilt <- filtVals
              ^~~~~~~~
```
[R/ABC_SMC.R:102:3:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L102) *style:* **Variable and function names should be all lowercase.**
```r
  nextComp <- compVals
  ^~~~~~~~
```
[R/ABC_SMC.R:102:15:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L102) *style:* **Variable and function names should be all lowercase.**
```r
  nextComp <- compVals
              ^~~~~~~~
```
[R/ABC_SMC.R:104:21:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L104) *style:* **Variable and function names should be all lowercase.**
```r
  weights <- rep(1, numParticles)
                    ^~~~~~~~~~~~
```
[R/ABC_SMC.R:105:3:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L105) *style:* **Variable and function names should be all lowercase.**
```r
  nextWeights <- rep(1, numParticles)
  ^~~~~~~~~~~
```
[R/ABC_SMC.R:105:25:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L105) *style:* **Variable and function names should be all lowercase.**
```r
  nextWeights <- rep(1, numParticles)
                        ^~~~~~~~~~~~
```
[R/ABC_SMC.R:106:16:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L106) *style:* **Variable and function names should be all lowercase.**
```r
  indices <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:113:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L113) *style:* **lines should not be more than 80 characters.**
```r
    cat("Found previous output, continuing from that output\n"); flush.console();
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:118:5:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L118) *style:* **Variable and function names should be all lowercase.**
```r
    dispVals <- d[, 1]
    ^~~~~~~~
```
[R/ABC_SMC.R:119:5:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L119) *style:* **Variable and function names should be all lowercase.**
```r
    filtVals <- d[, 2]
    ^~~~~~~~
```
[R/ABC_SMC.R:120:5:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L120) *style:* **Variable and function names should be all lowercase.**
```r
    compVals <- d[, 3]
    ^~~~~~~~
```
[R/ABC_SMC.R:125:11:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L125) *style:* **Variable and function names should be all lowercase.**
```r
    if (d[numParticles, 1] == numParticles) {
          ^~~~~~~~~~~~
```
[R/ABC_SMC.R:125:31:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L125) *style:* **Variable and function names should be all lowercase.**
```r
    if (d[numParticles, 1] == numParticles) {
                              ^~~~~~~~~~~~
```
[R/ABC_SMC.R:143:5:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L143) *style:* **Variable and function names should be all lowercase.**
```r
    numberAccepted <- 0
    ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:144:28:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L144) *style:* **Variable and function names should be all lowercase.**
```r
    if (t != 1) weights <- normalizeWeights(weights)
                           ^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:144:28:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L144) *warning:* **no visible global function definition for ‘normalizeWeights’**
```r
    if (t != 1) weights <- normalizeWeights(weights)
                           ^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:152:12:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L152) *style:* **Variable and function names should be all lowercase.**
```r
    while (numberAccepted < numParticles) {
           ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:152:29:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L152) *style:* **Variable and function names should be all lowercase.**
```r
    while (numberAccepted < numParticles) {
                            ^~~~~~~~~~~~
```
[R/ABC_SMC.R:156:19:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L156) *style:* **Variable and function names should be all lowercase.**
```r
        params <- getRandomVals(species_fallout)
                  ^~~~~~~~~~~~~
```
[R/ABC_SMC.R:156:19:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L156) *warning:* **no visible global function definition for ‘getRandomVals’**
```r
        params <- getRandomVals(species_fallout)
                  ^~~~~~~~~~~~~
```
[R/ABC_SMC.R:158:19:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L158) *style:* **Variable and function names should be all lowercase.**
```r
        params <- getFromPrevious(indices, weights,
                  ^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:159:35:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L159) *style:* **Variable and function names should be all lowercase.**
```r
                                  dispVals, filtVals, compVals)
                                  ^~~~~~~~
```
[R/ABC_SMC.R:159:45:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L159) *style:* **Variable and function names should be all lowercase.**
```r
                                  dispVals, filtVals, compVals)
                                            ^~~~~~~~
```
[R/ABC_SMC.R:159:55:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L159) *style:* **Variable and function names should be all lowercase.**
```r
                                  dispVals, filtVals, compVals)
                                                      ^~~~~~~~
```
[R/ABC_SMC.R:160:19:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L160) *warning:* **no visible global function definition for ‘perturb’**
```r
        params <- perturb(params, sigma)
                  ^~~~~~~
```
[R/ABC_SMC.R:188:20:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L188) *style:* **Variable and function names should be all lowercase.**
```r
      FD_output <- strippedDbFd(Ord, communities[, present_species])
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:188:20:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L188) *warning:* **no visible global function definition for ‘strippedDbFd’**
```r
      FD_output <- strippedDbFd(Ord, communities[, present_species])
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:189:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L189) *style:* **lines should not be more than 80 characters.**
```r
      FRic <- FD_output$FRic # FRic = functional richness (Villeger et al, 2008, Ecology)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:190:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L190) *style:* **lines should not be more than 80 characters.**
```r
      FEve <- FD_output$FEve # FEve = functional evenness (Villeger et al, 2008, Ecology)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:191:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L191) *style:* **lines should not be more than 80 characters.**
```r
      FDiv <- FD_output$FDiv # FDiv = functional diversity (Villeger et al, 2008, Ecology)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:195:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L195) *style:* **Use two spaces to indent, never tabs.**
```r
	  } else {
^
```
[R/ABC_SMC.R:196:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L196) *style:* **Use two spaces to indent, never tabs.**
```r
	    d <- read.table(paste("particles_t=", t, ".txt", sep="",
^
```
[R/ABC_SMC.R:197:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L197) *style:* **Use two spaces to indent, never tabs.**
```r
	                          collapse = NULL), header = F)
^
```
[R/ABC_SMC.R:198:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L198) *style:* **Use two spaces to indent, never tabs.**
```r
	  }
^
```
[R/ABC_SMC.R:200:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L200) *style:* **lines should not be more than 80 characters.**
```r
      # calculate distance of trait mean simulated community from that of observed
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:203:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L203) *style:* **lines should not be more than 80 characters.**
```r
      # (inverse) fit of model: euclidian distance of FD and trait mean values of
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:205:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L205) *style:* **lines should not be more than 80 characters.**
```r
      fit <- calculateDistance(FRic[[1]], FEve[[1]], FDiv[[1]], mean_optimum[1], summary_stats, sd_vals)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:205:14:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L205) *style:* **Variable and function names should be all lowercase.**
```r
      fit <- calculateDistance(FRic[[1]], FEve[[1]], FDiv[[1]], mean_optimum[1], summary_stats, sd_vals)
             ^~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:205:14:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L205) *warning:* **no visible global function definition for ‘calculateDistance’**
```r
      fit <- calculateDistance(FRic[[1]], FEve[[1]], FDiv[[1]], mean_optimum[1], summary_stats, sd_vals)
             ^~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:209:9:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L209) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted <- numberAccepted + 1
        ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:209:27:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L209) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted <- numberAccepted + 1
                          ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:210:9:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L210) *style:* **Variable and function names should be all lowercase.**
```r
        nextDisp[numberAccepted] <- params[1]
        ^~~~~~~~
```
[R/ABC_SMC.R:210:18:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L210) *style:* **Variable and function names should be all lowercase.**
```r
        nextDisp[numberAccepted] <- params[1]
                 ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:211:9:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L211) *style:* **Variable and function names should be all lowercase.**
```r
        nextFilt[numberAccepted] <- params[2]
        ^~~~~~~~
```
[R/ABC_SMC.R:211:18:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L211) *style:* **Variable and function names should be all lowercase.**
```r
        nextFilt[numberAccepted] <- params[2]
                 ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:212:9:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L212) *style:* **Variable and function names should be all lowercase.**
```r
        nextComp[numberAccepted] <- params[3]
        ^~~~~~~~
```
[R/ABC_SMC.R:212:18:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L212) *style:* **Variable and function names should be all lowercase.**
```r
        nextComp[numberAccepted] <- params[3]
                 ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:214:14:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L214) *style:* **Variable and function names should be all lowercase.**
```r
        fits[numberAccepted] <- fit
             ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:215:9:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L215) *style:* **Variable and function names should be all lowercase.**
```r
        RichVec[numberAccepted] <- FRic[[1]]
        ^~~~~~~
```
[R/ABC_SMC.R:215:17:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L215) *style:* **Variable and function names should be all lowercase.**
```r
        RichVec[numberAccepted] <- FRic[[1]]
                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:216:9:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L216) *style:* **Variable and function names should be all lowercase.**
```r
        EveVec[numberAccepted] <- FEve[[1]]
        ^~~~~~
```
[R/ABC_SMC.R:216:16:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L216) *style:* **Variable and function names should be all lowercase.**
```r
        EveVec[numberAccepted] <- FEve[[1]]
               ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:217:9:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L217) *style:* **Variable and function names should be all lowercase.**
```r
        DivVec[numberAccepted] <- FDiv[[1]]
        ^~~~~~
```
[R/ABC_SMC.R:217:16:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L217) *style:* **Variable and function names should be all lowercase.**
```r
        DivVec[numberAccepted] <- FDiv[[1]]
               ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:218:9:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L218) *style:* **Variable and function names should be all lowercase.**
```r
        OptVec[numberAccepted] <- mean_optimum;
        ^~~~~~
```
[R/ABC_SMC.R:218:16:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L218) *style:* **Variable and function names should be all lowercase.**
```r
        OptVec[numberAccepted] <- mean_optimum;
               ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:221:11:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L221) *style:* **Variable and function names should be all lowercase.**
```r
          nextWeights[numberAccepted] = 1
          ^~~~~~~~~~~
```
[R/ABC_SMC.R:221:23:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L221) *style:* **Variable and function names should be all lowercase.**
```r
          nextWeights[numberAccepted] = 1
                      ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:221:39:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L221) *style:* **Use <-, not =, for assignment.**
```r
          nextWeights[numberAccepted] = 1
                                      ^
```
[R/ABC_SMC.R:223:11:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L223) *style:* **Variable and function names should be all lowercase.**
```r
          nextWeights[numberAccepted] =
          ^~~~~~~~~~~
```
[R/ABC_SMC.R:223:23:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L223) *style:* **Variable and function names should be all lowercase.**
```r
          nextWeights[numberAccepted] =
                      ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:223:39:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L223) *style:* **Use <-, not =, for assignment.**
```r
          nextWeights[numberAccepted] =
                                      ^
```
[R/ABC_SMC.R:224:13:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L224) *style:* **Variable and function names should be all lowercase.**
```r
            calculateWeight(params, changed, sigma, dispVals, filtVals,
            ^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:224:53:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L224) *style:* **Variable and function names should be all lowercase.**
```r
            calculateWeight(params, changed, sigma, dispVals, filtVals,
                                                    ^~~~~~~~
```
[R/ABC_SMC.R:224:63:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L224) *style:* **Variable and function names should be all lowercase.**
```r
            calculateWeight(params, changed, sigma, dispVals, filtVals,
                                                              ^~~~~~~~
```
[R/ABC_SMC.R:225:29:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L225) *style:* **Variable and function names should be all lowercase.**
```r
                            compVals, weights)
                            ^~~~~~~~
```
[R/ABC_SMC.R:228:13:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L228) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
            ^
```
[R/ABC_SMC.R:228:14:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L228) *style:* **Variable and function names should be all lowercase.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
             ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:228:34:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L228) *style:* **Variable and function names should be all lowercase.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
                                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:234:21:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L234) *style:* **Put spaces around all infix operators.**
```r
      if (tried > (1/stopRate) && tried > 50)  {
                   ~^~
```
[R/ABC_SMC.R:234:22:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L234) *style:* **Variable and function names should be all lowercase.**
```r
      if (tried > (1/stopRate) && tried > 50)  {
                     ^~~~~~~~
```
[R/ABC_SMC.R:236:13:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L236) *style:* **Variable and function names should be all lowercase.**
```r
        if (numberAccepted / tried < stopRate) {
            ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:236:38:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L236) *style:* **Variable and function names should be all lowercase.**
```r
        if (numberAccepted / tried < stopRate) {
                                     ^~~~~~~~
```
[R/ABC_SMC.R:247:5:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L247) *style:* **Variable and function names should be all lowercase.**
```r
    dispVals <- nextDisp
    ^~~~~~~~
```
[R/ABC_SMC.R:247:17:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L247) *style:* **Variable and function names should be all lowercase.**
```r
    dispVals <- nextDisp
                ^~~~~~~~
```
[R/ABC_SMC.R:248:5:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L248) *style:* **Variable and function names should be all lowercase.**
```r
    filtVals <- nextFilt
    ^~~~~~~~
```
[R/ABC_SMC.R:248:17:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L248) *style:* **Variable and function names should be all lowercase.**
```r
    filtVals <- nextFilt
                ^~~~~~~~
```
[R/ABC_SMC.R:249:5:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L249) *style:* **Variable and function names should be all lowercase.**
```r
    compVals <- nextComp
    ^~~~~~~~
```
[R/ABC_SMC.R:249:17:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L249) *style:* **Variable and function names should be all lowercase.**
```r
    compVals <- nextComp
                ^~~~~~~~
```
[R/ABC_SMC.R:250:16:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L250) *style:* **Variable and function names should be all lowercase.**
```r
    weights <- nextWeights
               ^~~~~~~~~~~
```
[R/ABC_SMC.R:252:21:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L252) *style:* **Variable and function names should be all lowercase.**
```r
    output <- cbind(dispVals, filtVals, compVals, RichVec,
                    ^~~~~~~~
```
[R/ABC_SMC.R:252:31:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L252) *style:* **Variable and function names should be all lowercase.**
```r
    output <- cbind(dispVals, filtVals, compVals, RichVec,
                              ^~~~~~~~
```
[R/ABC_SMC.R:252:41:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L252) *style:* **Variable and function names should be all lowercase.**
```r
    output <- cbind(dispVals, filtVals, compVals, RichVec,
                                        ^~~~~~~~
```
[R/ABC_SMC.R:252:51:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L252) *style:* **Variable and function names should be all lowercase.**
```r
    output <- cbind(dispVals, filtVals, compVals, RichVec,
                                                  ^~~~~~~
```
[R/ABC_SMC.R:253:21:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L253) *style:* **Variable and function names should be all lowercase.**
```r
                    EveVec, DivVec, OptVec, fits, weights)
                    ^~~~~~
```
[R/ABC_SMC.R:253:29:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L253) *style:* **Variable and function names should be all lowercase.**
```r
                    EveVec, DivVec, OptVec, fits, weights)
                            ^~~~~~
```
[R/ABC_SMC.R:253:37:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L253) *style:* **Variable and function names should be all lowercase.**
```r
                    EveVec, DivVec, OptVec, fits, weights)
                                    ^~~~~~
```
[R/ABC_SMC.R:254:54:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L254) *style:* **Put spaces around all infix operators.**
```r
    file_name <- paste("particles_t=", t, ".txt", sep="", collapse = NULL)
                                                    ~^~
```
[R/ABC_SMC.R:257:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L257) *style:* **lines should not be more than 80 characters.**
```r
    cat(" ", mean(dispVals), mean(filtVals), mean(compVals), "\t", "accept rate = ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:257:19:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L257) *style:* **Variable and function names should be all lowercase.**
```r
    cat(" ", mean(dispVals), mean(filtVals), mean(compVals), "\t", "accept rate = ",
                  ^~~~~~~~
```
[R/ABC_SMC.R:257:35:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L257) *style:* **Variable and function names should be all lowercase.**
```r
    cat(" ", mean(dispVals), mean(filtVals), mean(compVals), "\t", "accept rate = ",
                                  ^~~~~~~~
```
[R/ABC_SMC.R:257:51:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L257) *style:* **Variable and function names should be all lowercase.**
```r
    cat(" ", mean(dispVals), mean(filtVals), mean(compVals), "\t", "accept rate = ",
                                                  ^~~~~~~~
```
[R/ABC_SMC.R:258:9:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L258) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted / (tried-1), numberAccepted, tried, "\n")
        ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:258:32:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L258) *style:* **Put spaces around all infix operators.**
```r
        numberAccepted / (tried-1), numberAccepted, tried, "\n")
                              ~^~
```
[R/ABC_SMC.R:258:37:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L258) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted / (tried-1), numberAccepted, tried, "\n")
                                    ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:261:5:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L261) *style:* **Variable and function names should be all lowercase.**
```r
    nextWeights <- rep(1,numParticles)
    ^~~~~~~~~~~
```
[R/ABC_SMC.R:261:26:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L261) *style:* **Commas should always have a space after.**
```r
    nextWeights <- rep(1,numParticles)
                         ^
```
[R/ABC_SMC.R:261:26:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L261) *style:* **Variable and function names should be all lowercase.**
```r
    nextWeights <- rep(1,numParticles)
                         ^~~~~~~~~~~~
```
[R/ABC_SMC.R:262:5:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L262) *style:* **Variable and function names should be all lowercase.**
```r
    nextDisp <- 1:numParticles
    ^~~~~~~~
```
[R/ABC_SMC.R:262:19:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L262) *style:* **Variable and function names should be all lowercase.**
```r
    nextDisp <- 1:numParticles
                  ^~~~~~~~~~~~
```
[R/ABC_SMC.R:263:5:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L263) *style:* **Variable and function names should be all lowercase.**
```r
    nextFilt <- 1:numParticles
    ^~~~~~~~
```
[R/ABC_SMC.R:263:19:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L263) *style:* **Variable and function names should be all lowercase.**
```r
    nextFilt <- 1:numParticles
                  ^~~~~~~~~~~~
```
[R/ABC_SMC.R:264:5:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L264) *style:* **Variable and function names should be all lowercase.**
```r
    nextComp <- 1:numParticles
    ^~~~~~~~
```
[R/ABC_SMC.R:264:19:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L264) *style:* **Variable and function names should be all lowercase.**
```r
    nextComp <- 1:numParticles
                  ^~~~~~~~~~~~
```
[R/ABC_SMC.R:271:61:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L271) *style:* **Put spaces around all infix operators.**
```r
    d <- read.table(paste("particles_t=", t - 2, ".txt", sep="",
                                                           ~^~
```
[R/ABC_SMC.R:275:63:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L275) *style:* **Put spaces around all infix operators.**
```r
      d <- read.table(paste("particles_t=", t - 1, ".txt", sep="",
                                                             ~^~
```
[R/ABC_SMC.R:278:15:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L278) *style:* **Put spaces around all infix operators.**
```r
	    d <- read.table(paste("particles_t=", t, ".txt", sep="",
             ~^~~
```
[R/ABC_SMC.R:279:44:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/ABC_SMC.R#L279) *style:* **Put spaces around all infix operators.**
```r
	                          collapse = NULL), header = F)
                                          ~^
```
[R/generateArtificialData.R:4:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L4) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
generate.Artificial.Data <- function(n_species, n_traits, n_communities,
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/generateArtificialData.R:6:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L6) *style:* **Use two spaces to indent, never tabs.**
```r
	pool_richness <- n_species
^
```
[R/generateArtificialData.R:8:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L8) *style:* **Use two spaces to indent, never tabs.**
```r
	traits_pool <- matrix( round( rnorm(n = (pool_richness * n_traits),
^
```
[R/generateArtificialData.R:9:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L9) *style:* **Use two spaces to indent, never tabs.**
```r
	                                    mean = 0, sd = 1), 3),
^
```
[R/generateArtificialData.R:9:23:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L9) *style:* **Put spaces around all infix operators.**
```r
	pool_richness <- n_species
                     ~^~~
```
[R/generateArtificialData.R:10:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L10) *style:* **Use two spaces to indent, never tabs.**
```r
	                       ncol = n_traits, nrow = pool_richness)
^
```
[R/generateArtificialData.R:11:21:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L11) *style:* **Put spaces around all infix operators.**
```r
	traits_pool <- matrix( round( rnorm(n = (pool_richness * n_traits),
                   ~^~~
```
[R/generateArtificialData.R:11:47:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L11) *style:* **Put spaces around all infix operators.**
```r
	traits_pool <- matrix( round( rnorm(n = (pool_richness * n_traits),
                                             ~^~
```
[R/generateArtificialData.R:11:49:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L11) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	traits_pool <- matrix( round( rnorm(n = (pool_richness * n_traits),
                                                ^
```
[R/generateArtificialData.R:11:64:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L11) *style:* **Put spaces around all infix operators.**
```r
	traits_pool <- matrix( round( rnorm(n = (pool_richness * n_traits),
                                                              ~^~
```
[R/generateArtificialData.R:12:50:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L12) *style:* **Put spaces around all infix operators.**
```r
	                                    mean = 0, sd = 1), 3),
                                                ~^~
```
[R/generateArtificialData.R:12:58:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L12) *style:* **Put spaces around all infix operators.**
```r
	                                    mean = 0, sd = 1), 3),
                                                        ~^~
```
[R/generateArtificialData.R:13:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L13) *style:* **Use two spaces to indent, never tabs.**
```r
	for(i in 1:pool_richness) {
^
```
[R/generateArtificialData.R:13:37:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L13) *style:* **Put spaces around all infix operators.**
```r
	                       ncol = n_traits, nrow = pool_richness)
                                   ~^~
```
[R/generateArtificialData.R:13:54:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L13) *style:* **Put spaces around all infix operators.**
```r
	                       ncol = n_traits, nrow = pool_richness)
                                                    ~^~
```
[R/generateArtificialData.R:14:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L14) *style:* **Use two spaces to indent, never tabs.**
```r
	  column1[i] <- paste("species", i, sep = "")
^
```
[R/generateArtificialData.R:15:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:16:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L16) *style:* **Use two spaces to indent, never tabs.**
```r
	row1 <- rep(NA, (n_traits + 1))
^
```
[R/generateArtificialData.R:16:12:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L16) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	for(i in 1:pool_richness) {
           ^
```
[R/generateArtificialData.R:17:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L17) *style:* **Use two spaces to indent, never tabs.**
```r
	for(i in 1:n_traits + 1) {
^
```
[R/generateArtificialData.R:17:22:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L17) *style:* **Put spaces around all infix operators.**
```r
	  column1[i] <- paste("species", i, sep = "")
                    ~^~~
```
[R/generateArtificialData.R:18:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L18) *style:* **Use two spaces to indent, never tabs.**
```r
	  row1[i] <- paste("trait", (i - 1), sep="")
^
```
[R/generateArtificialData.R:19:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:19:14:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L19) *style:* **Put spaces around all infix operators.**
```r
	row1 <- rep(NA, (n_traits + 1))
            ~^~~
```
[R/generateArtificialData.R:19:25:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L19) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	row1 <- rep(NA, (n_traits + 1))
                        ^
```
[R/generateArtificialData.R:20:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L20) *style:* **Use two spaces to indent, never tabs.**
```r
	row1[1] <- "species"
^
```
[R/generateArtificialData.R:20:12:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L20) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	for(i in 1:n_traits + 1) {
           ^
```
[R/generateArtificialData.R:21:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L21) *style:* **Use two spaces to indent, never tabs.**
```r
	columns <- matrix(cbind(column1, traits_pool), ncol = (n_traits + 1))
^
```
[R/generateArtificialData.R:21:19:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L21) *style:* **Put spaces around all infix operators.**
```r
	  row1[i] <- paste("trait", (i - 1), sep="")
                 ~^~~
```
[R/generateArtificialData.R:21:37:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L21) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	  row1[i] <- paste("trait", (i - 1), sep="")
                                    ^
```
[R/generateArtificialData.R:21:40:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L21) *style:* **Put spaces around all infix operators.**
```r
	  row1[i] <- paste("trait", (i - 1), sep="")
                                      ~^~
```
[R/generateArtificialData.R:22:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L22) *style:* **Use two spaces to indent, never tabs.**
```r
	traits_pool_df <- as.data.frame(columns)
^
```
[R/generateArtificialData.R:23:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L23) *style:* **Use two spaces to indent, never tabs.**
```r
	names(traits_pool_df) <- row1
^
```
[R/generateArtificialData.R:23:17:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L23) *style:* **Put spaces around all infix operators.**
```r
	row1[1] <- "species"
               ~^~~
```
[R/generateArtificialData.R:24:17:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L24) *style:* **Put spaces around all infix operators.**
```r
	columns <- matrix(cbind(column1, traits_pool), ncol = (n_traits + 1))
               ~^~~
```
[R/generateArtificialData.R:24:61:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L24) *style:* **Put spaces around all infix operators.**
```r
	columns <- matrix(cbind(column1, traits_pool), ncol = (n_traits + 1))
                                                           ~^~
```
[R/generateArtificialData.R:24:63:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L24) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	columns <- matrix(cbind(column1, traits_pool), ncol = (n_traits + 1))
                                                              ^
```
[R/generateArtificialData.R:25:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L25) *style:* **Use two spaces to indent, never tabs.**
```r
	comm_spec_matrix <- matrix(rep(0, (n_communities * pool_richness)),
^
```
[R/generateArtificialData.R:25:24:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L25) *style:* **Put spaces around all infix operators.**
```r
	traits_pool_df <- as.data.frame(columns)
                      ~^~~
```
[R/generateArtificialData.R:26:31:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L26) *style:* **Put spaces around all infix operators.**
```r
	names(traits_pool_df) <- row1
                             ~^~~
```
[R/generateArtificialData.R:28:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L28) *style:* **Use two spaces to indent, never tabs.**
```r
	occurence <- 10^rnorm(pool_richness, mean = 0, sd = occurence_distribution)
^
```
[R/generateArtificialData.R:28:26:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L28) *style:* **Put spaces around all infix operators.**
```r
	comm_spec_matrix <- matrix(rep(0, (n_communities * pool_richness)),
                        ~^~~
```
[R/generateArtificialData.R:28:43:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L28) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	comm_spec_matrix <- matrix(rep(0, (n_communities * pool_richness)),
                                          ^
```
[R/generateArtificialData.R:28:58:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L28) *style:* **Put spaces around all infix operators.**
```r
	comm_spec_matrix <- matrix(rep(0, (n_communities * pool_richness)),
                                                        ~^~
```
[R/generateArtificialData.R:30:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L30) *style:* **Use two spaces to indent, never tabs.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
^
```
[R/generateArtificialData.R:31:19:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L31) *style:* **Put spaces around all infix operators.**
```r
	occurence <- 10^rnorm(pool_richness, mean = 0, sd = occurence_distribution)
                 ~^~~
```
[R/generateArtificialData.R:31:24:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L31) *style:* **Put spaces around all infix operators.**
```r
	occurence <- 10^rnorm(pool_richness, mean = 0, sd = occurence_distribution)
                      ~^~
```
[R/generateArtificialData.R:31:51:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L31) *style:* **Put spaces around all infix operators.**
```r
	occurence <- 10^rnorm(pool_richness, mean = 0, sd = occurence_distribution)
                                                 ~^~
```
[R/generateArtificialData.R:31:59:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L31) *style:* **Put spaces around all infix operators.**
```r
	occurence <- 10^rnorm(pool_richness, mean = 0, sd = occurence_distribution)
                                                         ~^~
```
[R/generateArtificialData.R:32:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L32) *style:* **Use two spaces to indent, never tabs.**
```r
	richness_values[which(richness_values > pool_richness)] <- pool_richness
^
```
[R/generateArtificialData.R:33:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L33) *style:* **Use two spaces to indent, never tabs.**
```r
	richness_values[which(richness_values < 0)] <- 0
^
```
[R/generateArtificialData.R:33:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L33) *style:* **lines should not be more than 80 characters.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/generateArtificialData.R:33:25:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L33) *style:* **Put spaces around all infix operators.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                       ~^~~
```
[R/generateArtificialData.R:33:34:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L33) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                                 ^
```
[R/generateArtificialData.R:33:61:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L33) *style:* **Put spaces around all infix operators.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                                                           ~^~
```
[R/generateArtificialData.R:33:69:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L33) *style:* **Put spaces around all infix operators.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                                                                    ^~
```
[R/generateArtificialData.R:33:74:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L33) *style:* **Put spaces around all infix operators.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                                                                        ~^~
```
[R/generateArtificialData.R:33:76:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L33) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                                                                           ^
```
[R/generateArtificialData.R:33:89:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L33) *style:* **Put spaces around all infix operators.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                                                                                ~^~
```
[R/generateArtificialData.R:34:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L34) *style:* **Use two spaces to indent, never tabs.**
```r
	for(i in 1:n_communities){
^
```
[R/generateArtificialData.R:35:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L35) *style:* **Use two spaces to indent, never tabs.**
```r
	  if(mechanism_random == T){
^
```
[R/generateArtificialData.R:35:47:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L35) *style:* **Put spaces around all infix operators.**
```r
	richness_values[which(richness_values > pool_richness)] <- pool_richness
                                             ~^~
```
[R/generateArtificialData.R:35:65:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L35) *style:* **Put spaces around all infix operators.**
```r
	richness_values[which(richness_values > pool_richness)] <- pool_richness
                                                               ~^~~
```
[R/generateArtificialData.R:36:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L36) *style:* **Use two spaces to indent, never tabs.**
```r
	    present_species <- sample(c(1:pool_richness), richness_values[i],
^
```
[R/generateArtificialData.R:36:47:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L36) *style:* **Put spaces around all infix operators.**
```r
	richness_values[which(richness_values < 0)] <- 0
                                             ~^
```
[R/generateArtificialData.R:37:12:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L37) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	for(i in 1:n_communities){
           ^
```
[R/generateArtificialData.R:38:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L38) *style:* **Use two spaces to indent, never tabs.**
```r
	  }else{
^
```
[R/generateArtificialData.R:38:13:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L38) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	  if(mechanism_random == T){
            ^
```
[R/generateArtificialData.R:39:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L39) *style:* **Use two spaces to indent, never tabs.**
```r
	    opt_traits <- rnorm(n_traits, mean = 0, sd = 1)
^
```
[R/generateArtificialData.R:39:29:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L39) *style:* **Put spaces around all infix operators.**
```r
	    present_species <- sample(c(1:pool_richness), richness_values[i],
                           ~^~~
```
[R/generateArtificialData.R:40:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L40) *style:* **Use two spaces to indent, never tabs.**
```r
	    opt_traits_matrix <- c()
^
```
[R/generateArtificialData.R:41:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L41) *style:* **Use two spaces to indent, never tabs.**
```r
	    for(j in 1:n_traits){
^
```
[R/generateArtificialData.R:42:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L42) *style:* **Use two spaces to indent, never tabs.**
```r
	      for(k in 1:pool_richness){
^
```
[R/generateArtificialData.R:42:24:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L42) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits <- rnorm(n_traits, mean = 0, sd = 1)
                      ~^~~
```
[R/generateArtificialData.R:42:48:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L42) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits <- rnorm(n_traits, mean = 0, sd = 1)
                                              ~^~
```
[R/generateArtificialData.R:43:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L43) *style:* **Use two spaces to indent, never tabs.**
```r
		      l <- (j - 1) * pool_richness + k
^~
```
[R/generateArtificialData.R:44:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L44) *style:* **Use two spaces to indent, never tabs.**
```r
		      opt_traits_matrix[l] <- opt_traits[j]
^~
```
[R/generateArtificialData.R:44:16:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L44) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	    for(j in 1:n_traits){
               ^
```
[R/generateArtificialData.R:45:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L45) *style:* **Use two spaces to indent, never tabs.**
```r
	      }
^
```
[R/generateArtificialData.R:45:18:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L45) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	      for(k in 1:pool_richness){
                 ^
```
[R/generateArtificialData.R:46:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L46) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:46:25:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L46) *style:* **Put spaces around all infix operators.**
```r
		      l <- (j - 1) * pool_richness + k
                       ~^~~
```
[R/generateArtificialData.R:46:28:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L46) *style:* **Place a space before left parenthesis, except in a function call.**
```r
		      l <- (j - 1) * pool_richness + k
                           ^
```
[R/generateArtificialData.R:46:31:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L46) *style:* **Put spaces around all infix operators.**
```r
		      l <- (j - 1) * pool_richness + k
                             ~^~
```
[R/generateArtificialData.R:46:36:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L46) *style:* **Put spaces around all infix operators.**
```r
		      l <- (j - 1) * pool_richness + k
                                  ~^
```
[R/generateArtificialData.R:47:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L47) *style:* **Use two spaces to indent, never tabs.**
```r
	    opt_traits_matrix <- matrix(opt_traits_matrix, ncol = n_traits)
^
```
[R/generateArtificialData.R:47:44:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L47) *style:* **Put spaces around all infix operators.**
```r
		      opt_traits_matrix[l] <- opt_traits[j]
                                          ~^~~
```
[R/generateArtificialData.R:48:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L48) *style:* **Use two spaces to indent, never tabs.**
```r
	    traits_distances <- abs(traits_pool - opt_traits_matrix)
^
```
[R/generateArtificialData.R:49:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L49) *style:* **Use two spaces to indent, never tabs.**
```r
	    trait_distances_onedimen <- c()
^
```
[R/generateArtificialData.R:50:1:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L50) *style:* **Use two spaces to indent, never tabs.**
```r
	    for(m in 1:pool_richness){
^
```
[R/generateArtificialData.R:50:31:](https://github.com/thijsjanzen/STEPCAM/blob/19ba77b6ed9a71781603432d416fc241118b4ff7/R/generateArtificialData.R#L50) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits_matrix <- matrix(opt_traits_matrix, ncol = n_traits)
                             ~^~~
```


RE: 05b-python_advanced.md
cc: @lucdemortier @reshamametis @aramnath @gfsoileau @julialintern @galvin-mj

Hello @thisisniall

Great work on advanced Python! Some comments:
- Q1: The degree counts don't agree with a manual inspection, which yields `{'md': 1, 'ma': 1, 'scd': 6, 'bsed': 1, 'phd': 31, '0': 1, 'mph': 2, 'ms': 2, 'jd': 1}`.
- Yes there are typos in the input file. This happens often, and there is nothing wrong with correcting for them in the code (better than editing the given file, which might introduce new typos or lead to confusion later or simply be impractical).

👍


Please. Can you do base for kernel?


Paul GITHUB c'est comme ProNote il faut que tu le regarde tous les jour moi c'est ce que je fais.
![ios_emoji_grinning_face](https://cloud.githubusercontent.com/assets/22102135/18618863/1a28d3e2-7db5-11e6-841d-532fb110aa31.png)