[R/ABC_SMC.R:2:1:](https://github.com/thijsjanzen/STEPCAM/blob/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/R/generateArtificialData.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:16:1:](https://github.com/thijsjanzen/STEPCAM/blob/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/R/generateArtificialData.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:19:14:](https://github.com/thijsjanzen/STEPCAM/blob/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/R/generateArtificialData.R#L45) *style:* **Use two spaces to indent, never tabs.**
```r
	      }
^
```
[R/generateArtificialData.R:45:18:](https://github.com/thijsjanzen/STEPCAM/blob/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/R/generateArtificialData.R#L46) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:46:25:](https://github.com/thijsjanzen/STEPCAM/blob/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/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/0e18e0dd9a1260bc685daeab5a021d6643f34a42/R/generateArtificialData.R#L50) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits_matrix <- matrix(opt_traits_matrix, ncol = n_traits)
                             ~^~~
```


Me leaving comment on my own commit....


:+1:
I didn't add the checkmark, right?


@dpgeorge : D'oh. I did basic webrepl test as usual with this change, but if you see something weird, well, you know where to look ;-). ets_post() return value is usually not checked, but sometimes it is. We don't use those code paths, but if we start, it can be quite a kaboom.


Ok


probably a better way. ty @WesJD
![1fc64348169d9a110731596cb9ece89b](https://cloud.githubusercontent.com/assets/11138610/18618918/e2fc8854-7db5-11e6-8bc6-b300c30e9c31.png)


Ok, I`ll refactor them.


Very cool! I like it!


Ok.


Please wrap at 72
https://github.com/curl/curl/wiki/push-access-guidelines#commit-style----its-not-a-suggestion


Минимальный зипованный бандл - 10кб. Правда там много лишнего, думаю до 5кб вполне реально ужать.


It is. But I maintain the sane subset ;) https://github.com/este/este/blob/master/.eslintrc#L13


it works, thanks