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


Optimizations (when needed)


@dakrone - I'm happy to see this reverted (https://github.com/dakrone/clj-http/commit/8edc6c4ee696d879b7cfe230481abbd351771593#commitcomment-16038808 for the wayback machine).

Would it be possible to cut a tag for the state of current master?  It's a little awkward for semver as 2.0.0 is the last release without the broken behavior.


Hi , i have download and compile this Tweak . i don't know how to use it. Can you upload one Wiki?

PS: iOS 9 haven't UIAllertView , now you need to use UIAllertController.


I don't think we will be able to use the socket library for http, I am
looking at a few http libraries but need learn how to use them,
experimenting now. Someone else can start working on the board maintenance
like read_board() or update_board() in the server.py. These methods will
receive a string or chars of x,y coords, read_board() can return a string
or char for hit miss or sunk to be passed to another method.

On Sun, Sep 18, 2016 at 2:26 PM, David Schwehr <dpschwehr@gmail.com> wrote:

> I got some syntax errors fixed in server.py and it will run, but with the
> while(1) infinite loop you have to go into the task manager to kill the
> process since you have to run it from the command line to send in
> arguments. We wont have to worry about it once the client stuff is more
> complete to where the client will close the connection and the server wont
> get stuck in a loop.
>
>
> On Sun, Sep 18, 2016 at 2:23 PM, David Schwehr <dpschwehr@gmail.com>
> wrote:
>
>> I got the file reading to the 2d array working.......kinda. There is an
>> additional element on each row of the array to hold the new line char. This
>> was the easiest without having to read a line from the text file, strip the
>> /n, then change the string into chars, then put it in the array. Maybe
>> later use the numpy library to make this nicer? I just wanted to get it
>> working so we can move on and get more done. I left the variable for the
>> width at 10 so we can still use this to check for a shot out of bounds.
>>
>> On Sun, Sep 18, 2016 at 1:28 PM, David Schwehr <dpschwehr@gmail.com>
>> wrote:
>>
>>> I got reading the file and filling the array to work but I can't omitt
>>> the newline character. Supossedly there is a strip('/n') that should work
>>> with reading a file line by line but we need to read char by char. If you
>>> were able to leave out the /n than that is farther than I got.
>>>
>>> On Sun, Sep 18, 2016 at 1:24 PM, Emmanuel-Armstrong <
>>> notifications@github.com> wrote:
>>>
>>>> Oh crap I just realized, I've done some work on the file reading and
>>>> writing but I totally forgot to push it up to git! I'll see if I have
>>>> any
>>>> more than you and if so I'll push up what I have when I get home from
>>>> work
>>>> in a couple hours. Sorry about that!
>>>>
>>>>
>>>> On Sep 18, 2016 12:53 PM, "dssquared" <notifications@github.com> wrote:
>>>>
>>>> > I've started working with reading in the board file and filling the
>>>> array,
>>>> > about half success now. Once the board array is filled we can start
>>>> working
>>>> > on the rest. Not sure if we want to make a nother text file for the
>>>> client
>>>> > to keep track of the board since the client is re-invoked each time.
>>>> Can't
>>>> > really use an array since the program is restarted each time but
>>>> writing to
>>>> > a file from an array could be a pain. I will finish the server side
>>>> > creating the board array first, might use a list within a list.
>>>> > What do you guys want to work on or feel comfortable about working on?
>>>> >
>>>> > David
>>>> >
>>>> > On Sat, Sep 17, 2016 at 6:35 PM, David Schwehr <dpschwehr@gmail.com>
>>>> > wrote:
>>>> >
>>>> > > Just checked, the address for localhost is correct, the port
>>>> numbers and
>>>> > > ip being set from command line arguments is already implemented and
>>>> I
>>>> > > checked the connection already. I was going to play around with
>>>> different
>>>> > > ways of making the board and http stuff next. I put a board.txt
>>>> file in
>>>> > the
>>>> > > folder too to use to test reading the file and creating an array or
>>>> list
>>>> > of
>>>> > > lists for the board.
>>>> > > Remember to git pull before working on anything to make sure you
>>>> have the
>>>> > > most recent version.
>>>> > > I will be working on it some tonight and spending most the day on it
>>>> > > tomorrow.
>>>> > >
>>>> > > On Sat, Sep 17, 2016 at 6:30 PM, David Schwehr <dpschwehr@gmail.com
>>>> >
>>>> > > wrote:
>>>> > >
>>>> > >> Right now the server is on 127.0.0.1( i may have the address wrong
>>>> but
>>>> > it
>>>> > >> should be the address of localhost, which is the same no matter
>>>> what
>>>> > >> machine it is running on) just to run it on your local machine to
>>>> test,
>>>> > it
>>>> > >> will be changed to the ip address of the machine it is running on
>>>> when
>>>> > they
>>>> > >> grade it.
>>>> > >>
>>>> > >> On Sat, Sep 17, 2016 at 6:26 PM, David Schwehr <
>>>> dpschwehr@gmail.com>
>>>> > >> wrote:
>>>> > >>
>>>> > >>> It is getting the fire commands from the command line arguments,
>>>> that
>>>> > is
>>>> > >>> why the client is being invoked every play. The connection is made
>>>> > with the
>>>> > >>> port number and IP address passed in from the command line
>>>> arguments. I
>>>> > >>> have already wrote the code for the connection using the socket
>>>> > library.
>>>> > >>> Thev ariables for the x and y coords passed from the command line
>>>> are
>>>> > >>> working just as you had them in your test.py, I added it to the
>>>> > client.py
>>>> > >>> file already. These variable will be used in the methods that
>>>> send the
>>>> > http
>>>> > >>> message. The http and passing in the variable I think will be the
>>>> easy
>>>> > >>> part, some of it is done and it works. The time consuming part is
>>>> > going to
>>>> > >>> be writing the code to maintain the board and "serving" the
>>>> display of
>>>> > the
>>>> > >>> board.
>>>> > >>> Tracking sunk ships will work as you suggested and this will be
>>>> put in
>>>> > a
>>>> > >>> method called from read_board or process_reply or done inside of
>>>> > >>> process_reply.
>>>> > >>>
>>>> > >>> On Sat, Sep 17, 2016 at 6:10 PM, tyler-sassaman <
>>>> > >>> notifications@github.com> wrote:
>>>> > >>>
>>>> > >>>> I was thinking about tracking sunk ships. Just a thought, but
>>>> what if
>>>> > >>>> we had a global variable for each ship (carrier = 5), and every
>>>> time
>>>> > we hit
>>>> > >>>> that type of ship we decrement that value, and compare it to 0.
>>>> so if
>>>> > >>>> carrier gets to 0 then it has been hit 5 times which is the same
>>>> > thing as
>>>> > >>>> being sunk.
>>>> > >>>>
>>>> > >>>> —
>>>> > >>>> You are receiving this because you authored the thread.
>>>> > >>>> Reply to this email directly, view it on GitHub
>>>> > >>>> <https://github.com/dssquared/Networks_Lab1/commit/
>>>> > 7f5b3dc1ba8a89d303ffa5a927903a77492af920#commitcomment-19068085>,
>>>> > >>>> or mute the thread
>>>> > >>>> <https://github.com/notifications/unsubscribe-auth/AE8DG_y6g
>>>> kDXIV5_
>>>> > YwVT263okb39zDjcks5qrIFygaJpZM4J_dYG>
>>>> > >>>> .
>>>> > >>>>
>>>> > >>>
>>>> > >>>
>>>> > >>
>>>> > >
>>>> >
>>>> > —
>>>> > You are receiving this because you commented.
>>>> > Reply to this email directly, view it on GitHub
>>>> > <https://github.com/dssquared/Networks_Lab1/commit/7f5b3dc1b
>>>> a8a89d303ffa5a927903a77492af920#commitcomment-19071806>,
>>>> > or mute the thread
>>>> > <https://github.com/notifications/unsubscribe-auth/ANiCOS9eO
>>>> _caF6oZivfhC4W6aceQXCnFks5qrYi_gaJpZM4J_dYG>
>>>>
>>>> > .
>>>> >
>>>>
>>>> —
>>>> You are receiving this because you authored the thread.
>>>> Reply to this email directly, view it on GitHub
>>>> <https://github.com/dssquared/Networks_Lab1/commit/7f5b3dc1ba8a89d303ffa5a927903a77492af920#commitcomment-19071958>,
>>>> or mute the thread
>>>> <https://github.com/notifications/unsubscribe-auth/AE8DG5F6ycythOV16iTCINZqZXSNnY3Fks5qrZAFgaJpZM4J_dYG>
>>>> .
>>>>
>>>
>>>
>>
>


This has **NOT** been tested yet!


I'm getting header files when I expand a cpp file on linux:
```
> dir1/file1.cpp
      dir2/file2.h
```
and the header file are repeated for each cpp file in the directory


Thanks!


Bravo, good job!


Wrong version number. This is version 1.0.0.


Bug fixes for iOS, next/previous chapter setting, night mode


Shouldn't be `in` instead of `==` ?


Worked :)

1. iOS App Signer (selected my development + * provisioning)
2. Use Xcode (devices) to install

Hope you share a IPA for every stable release.


what about nukkit's food system?


Yes ! I just shut down the computer, so i'll fix it tomorrow ! Thanks for
code reviews again ☺

Le 18 sept. 2016 11:12 PM, "Rato" <notifications@github.com> a écrit :

> Shouldn't be in instead of == ?
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/guessit-io/guessit/commit/232ef2b0beabe5c6d3f066918b674ca417570b88#commitcomment-19072290>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/ABHJvm4FszNlxdJ6w6OZA-hJZP5jWem0ks5qralWgaJpZM4KABMR>
> .
>


Thanks, perhaps hash size is too big, could you please test reverting last
commit to 256 instead of 16348?

On Sunday, September 18, 2016, Stéphane Nicolet <notifications@github.com>
wrote:

> For what it's worth, I measured a 1.3% slowdown (non-pgo build):
>
> Total time (ms) : 148221
> Nodes searched : 202696778
> Nodes/second : 1367530
> master
>
> Total time (ms) : 150193
> Nodes searched : 202696778
> Nodes/second : 1349575
> testedpatch
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/mcostalba/Stockfish/commit/b352d0c4611ccc51eff0c643322e3bc3a9bb416f#commitcomment-19072127>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/ABDGAVavcYkRLayisNTaAUwrdc564rJDks5qrZ1DgaJpZM4J__O4>
> .
>


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

Hello @neokt

Nice work with advanced Python!

👍


@loechel Jenkins CI reporting about code analysis
See the full report here: http://jenkins.plone.org/job/package-plone.namedfile/52/violations
```
plone/namedfile/scaling.py:173:1: C901 'DefaultImageScalingFactory.__call__' is too complex (13)
plone/namedfile/utils/__init__.py:176:1: C901 'rotate_image' is too complex (17)
plone/namedfile/utils/tiff_utils.py:73:1: C901 '_translate_field_type' is too complex (13)
plone/namedfile/utils/tiff_utils.py:98:80: E501 line too long (89 > 79 characters)
plone/namedfile/utils/tiff_utils.py:100:80: E501 line too long (88 > 79 characters)
```
Follow [these instructions](https://github.com/plone/jenkins.plone.org/blob/master/docs/source/run-qa-on-package.rst) to reproduce it locally.


yup it's a test 😈


Oh xd


RE: 06-linear_algebra.md
cc: @lucdemortier @reshamametis @aramnath @gfsoileau @julialintern @galvin-mj

Hello @neokt

Great work on the linear algebra problems!

👍


> Thanks to you too!

Do you actually use this package?  I never thought that people outside
of my company would use this, but if you do, it could be worth it to
make this package more generic.


At top of the file, modules to preload can be specified.


The user can use `AssetLoader.loadAssetsAsync()` to wait for assets to be loaded, or use the `<AssetLoader />` component.


Just me being lazy -_-


@aelesbao yes, we planned to work on solving some issues with ActiveMaterial, submitting a pull request and transfer the gem authorship to the original creators, but since our work has diverged from that plan, I'll be deleting this fork tomorrow. Sorry for any issues this may have caused!


@dpgeorge : FYI