[R/ABC_SMC.R:2:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L22) *style:* **Variable and function names should be all lowercase.**
```r
calculateWeight <- function(params, target, sigma,
^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:25:68:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L25) *style:* **Commas should always have a space after.**
```r
  diff <- params[target] - cbind(disp_vals, filt_vals, comp_vals)[,target]
                                                                   ^
```
[R/ABC_SMC.R:26:54:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L26) *style:* **Trailing whitespace is superfluous.**
```r
  vals <- weights * dnorm(diff, mean = 0, sd = sigma)
                                                     ^~
```
[R/ABC_SMC.R:27:12:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L27) *style:* **Put spaces around all infix operators.**
```r
  return( 1/sum(vals) )
          ~^~
```
[R/ABC_SMC.R:31:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L31) *style:* **Variable and function names should be all lowercase.**
```r
normalizeWeights <- function(x) {
^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:65:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L65) *style:* **Variable and function names should be all lowercase.**
```r
calculateDistance <- function(rich, even, div, opt_diff, obs, sd_vals)  {
^~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:69:40:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L69) *style:* **Put spaces around all infix operators.**
```r
  fit_optima <- (opt_diff / sd_vals[4])^2;
                                      ~^~
```
[R/ABC_SMC.R:77:21:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L77) *style:* **Variable and function names should be all lowercase.**
```r
ABC_SMC <- function(numParticles, species_fallout, taxa, esppres, n_traits,
                    ^~~~~~~~~~~~
```
[R/ABC_SMC.R:79:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L79) *style:* **lines should not be more than 80 characters.**
```r
                    abundances, frequencies, stopRate, Ord, continue_from_file = TRUE,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:79:46:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L79) *style:* **Variable and function names should be all lowercase.**
```r
                    abundances, frequencies, stopRate, Ord, continue_from_file = TRUE,
                                             ^~~~~~~~
```
[R/ABC_SMC.R:82:6:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L82) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  for(i in seq_along(sd_vals)) {
     ^
```
[R/ABC_SMC.R:83:7:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L83) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(sd_vals[[i]] == 0.000) {
      ^
```
[R/ABC_SMC.R:85:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L85) *style:* **lines should not be more than 80 characters.**
```r
           "one of the community summary statistics shows no variation in your dataset")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:88:10:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L88) *style:* **Variable and function names should be all lowercase.**
```r
  res <- detMnbsp(Ord, abundances)
         ^~~~~~~~
```
[R/ABC_SMC.R:88:10:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L88) *warning:* **no visible global function definition for ‘detMnbsp’**
```r
  res <- detMnbsp(Ord, abundances)
         ^~~~~~~~
```
[R/ABC_SMC.R:91:18:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L91) *style:* **Variable and function names should be all lowercase.**
```r
  disp_vals <- 1:numParticles
                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:92:18:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L92) *style:* **Variable and function names should be all lowercase.**
```r
  filt_vals <- 1:numParticles
                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:93:18:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L93) *style:* **Variable and function names should be all lowercase.**
```r
  comp_vals <- 1:numParticles
                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:95:13:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L95) *style:* **Variable and function names should be all lowercase.**
```r
  fits <- 1:numParticles
            ^~~~~~~~~~~~
```
[R/ABC_SMC.R:96:17:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L96) *style:* **Variable and function names should be all lowercase.**
```r
  rich_vec <- 1:numParticles
                ^~~~~~~~~~~~
```
[R/ABC_SMC.R:97:16:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L97) *style:* **Variable and function names should be all lowercase.**
```r
  eve_vec <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:98:16:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L98) *style:* **Variable and function names should be all lowercase.**
```r
  div_vec <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:99:16:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L99) *style:* **Variable and function names should be all lowercase.**
```r
  opt_vec <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:105:21:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L105) *style:* **Variable and function names should be all lowercase.**
```r
  weights <- rep(1, numParticles)
                    ^~~~~~~~~~~~
```
[R/ABC_SMC.R:106:26:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L106) *style:* **Variable and function names should be all lowercase.**
```r
  next_weights <- rep(1, numParticles)
                         ^~~~~~~~~~~~
```
[R/ABC_SMC.R:107:16:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L107) *style:* **Variable and function names should be all lowercase.**
```r
  indices <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:114:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L114) *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:7:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L118) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(d[numParticles,1] == numParticles) {
      ^
```
[R/ABC_SMC.R:118:10:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L118) *style:* **Variable and function names should be all lowercase.**
```r
    if(d[numParticles,1] == numParticles) {
         ^~~~~~~~~~~~
```
[R/ABC_SMC.R:118:23:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L118) *style:* **Commas should always have a space after.**
```r
    if(d[numParticles,1] == numParticles) {
                      ^
```
[R/ABC_SMC.R:118:29:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L118) *style:* **Variable and function names should be all lowercase.**
```r
    if(d[numParticles,1] == numParticles) {
                            ^~~~~~~~~~~~
```
[R/ABC_SMC.R:139:5:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L139) *style:* **Variable and function names should be all lowercase.**
```r
    numberAccepted <- 0
    ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:140:28:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L140) *style:* **Variable and function names should be all lowercase.**
```r
    if (t != 1) weights <- normalizeWeights(weights)
                           ^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:140:28:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L140) *warning:* **no visible global function definition for ‘normalizeWeights’**
```r
    if (t != 1) weights <- normalizeWeights(weights)
                           ^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:148:12:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L148) *style:* **Variable and function names should be all lowercase.**
```r
    while (numberAccepted <= numParticles) {
           ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:148:30:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L148) *style:* **Variable and function names should be all lowercase.**
```r
    while (numberAccepted <= numParticles) {
                             ^~~~~~~~~~~~
```
[R/ABC_SMC.R:152:19:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L152) *style:* **Variable and function names should be all lowercase.**
```r
        params <- getRandomVals(species_fallout)
                  ^~~~~~~~~~~~~
```
[R/ABC_SMC.R:152:19:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L152) *warning:* **no visible global function definition for ‘getRandomVals’**
```r
        params <- getRandomVals(species_fallout)
                  ^~~~~~~~~~~~~
```
[R/ABC_SMC.R:154:19:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L154) *style:* **Variable and function names should be all lowercase.**
```r
        params <- getFromPrevious(indices, weights,
                  ^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:156:19:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L156) *warning:* **no visible global function definition for ‘perturb’**
```r
        params <- perturb(params, sigma)
                  ^~~~~~~
```
[R/ABC_SMC.R:166:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L166) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~
```
[R/ABC_SMC.R:170:40:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L170) *style:* **Commas should always have a space after.**
```r
      traits <- as.data.frame(species[,c(2:(n_traits+1))],row.names=c(1:taxa));
                                       ^
```
[R/ABC_SMC.R:170:53:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L170) *style:* **Put spaces around all infix operators.**
```r
      traits <- as.data.frame(species[,c(2:(n_traits+1))],row.names=c(1:taxa));
                                                   ~^~
```
[R/ABC_SMC.R:170:59:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L170) *style:* **Commas should always have a space after.**
```r
      traits <- as.data.frame(species[,c(2:(n_traits+1))],row.names=c(1:taxa));
                                                          ^
```
[R/ABC_SMC.R:170:68:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L170) *style:* **Put spaces around all infix operators.**
```r
      traits <- as.data.frame(species[,c(2:(n_traits+1))],row.names=c(1:taxa));
                                                                  ~^~
```
[R/ABC_SMC.R:173:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L173) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[R/ABC_SMC.R:174:8:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L174) *style:* **Commented code should be removed.**
```r
     # source("/Users/janzen/GitHub/STEPCAM/R/modified_dbFD.R")
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:175:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L175) *style:* **lines should not be more than 80 characters.**
```r
      FD_output <- strippedDbFd(Ord, communities, m = res[[1]], nb.sp = res[[2]])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:175:20:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L175) *style:* **Variable and function names should be all lowercase.**
```r
      FD_output <- strippedDbFd(Ord, communities, m = res[[1]], nb.sp = res[[2]])
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:175:20:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L175) *warning:* **no visible global function definition for ‘strippedDbFd’**
```r
      FD_output <- strippedDbFd(Ord, communities, m = res[[1]], nb.sp = res[[2]])
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:175:82:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L175) *style:* **Trailing whitespace is superfluous.**
```r
      FD_output <- strippedDbFd(Ord, communities, m = res[[1]], nb.sp = res[[2]])
                                                                                ^
```
[R/ABC_SMC.R:176:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L176) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/ABC_SMC.R:177:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L177) *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:178:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L178) *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:179:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L179) *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:188:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L188) *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:191:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L191) *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:193:14:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L193) *style:* **Variable and function names should be all lowercase.**
```r
      fit <- calculateDistance(FRic[[1]], FEve[[1]], FDiv[[1]],
             ^~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:195:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L195) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[R/ABC_SMC.R:198:19:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L198) *style:* **Variable and function names should be all lowercase.**
```r
        next_disp[numberAccepted] <- params[1]
                  ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:199:19:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L199) *style:* **Variable and function names should be all lowercase.**
```r
        next_filt[numberAccepted] <- params[2]
                  ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:200:19:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L200) *style:* **Variable and function names should be all lowercase.**
```r
        next_comp[numberAccepted] <- params[3]
                  ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:202:14:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L202) *style:* **Variable and function names should be all lowercase.**
```r
        fits[numberAccepted] <- fit
             ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:203:18:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L203) *style:* **Variable and function names should be all lowercase.**
```r
        rich_vec[numberAccepted] <- FRic[[1]]
                 ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:204:17:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L204) *style:* **Variable and function names should be all lowercase.**
```r
        eve_vec[numberAccepted] <- FEve[[1]]
                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:205:17:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L205) *style:* **Variable and function names should be all lowercase.**
```r
        div_vec[numberAccepted] <- FDiv[[1]]
                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:206:17:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L206) *style:* **Variable and function names should be all lowercase.**
```r
        opt_vec[numberAccepted] <- mean_optimum;
                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:209:24:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L209) *style:* **Variable and function names should be all lowercase.**
```r
          next_weights[numberAccepted] = 1
                       ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:209:40:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L209) *style:* **Use <-, not =, for assignment.**
```r
          next_weights[numberAccepted] = 1
                                       ^
```
[R/ABC_SMC.R:211:24:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L211) *style:* **Variable and function names should be all lowercase.**
```r
          next_weights[numberAccepted] =
                       ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:211:40:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L211) *style:* **Use <-, not =, for assignment.**
```r
          next_weights[numberAccepted] =
                                       ^
```
[R/ABC_SMC.R:212:13:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L212) *style:* **Variable and function names should be all lowercase.**
```r
            calculateWeight(params, changed, sigma, disp_vals, filt_vals,
            ^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:215:9:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L215) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted <- numberAccepted + 1
        ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:215:27:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L215) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted <- numberAccepted + 1
                          ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:216:13:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L216) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
            ^
```
[R/ABC_SMC.R:216:14:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L216) *style:* **Variable and function names should be all lowercase.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
             ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:216:34:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L216) *style:* **Variable and function names should be all lowercase.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
                                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:222:21:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L222) *style:* **Put spaces around all infix operators.**
```r
      if (tried > (1/stopRate) && tried > 50)  {
                   ~^~
```
[R/ABC_SMC.R:222:22:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L222) *style:* **Variable and function names should be all lowercase.**
```r
      if (tried > (1/stopRate) && tried > 50)  {
                     ^~~~~~~~
```
[R/ABC_SMC.R:224:13:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L224) *style:* **Variable and function names should be all lowercase.**
```r
        if (numberAccepted / tried < stopRate) {
            ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:224:38:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L224) *style:* **Variable and function names should be all lowercase.**
```r
        if (numberAccepted / tried < stopRate) {
                                     ^~~~~~~~
```
[R/ABC_SMC.R:242:54:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L242) *style:* **Put spaces around all infix operators.**
```r
    file_name <- paste("particles_t=", t, ".txt", sep="", collapse = NULL)
                                                    ~^~
```
[R/ABC_SMC.R:245:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L245) *style:* **lines should not be more than 80 characters.**
```r
    cat(" ", mean(disp_vals), mean(filt_vals), mean(comp_vals), "\t", "accept rate = ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:246:9:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L246) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted / (tried-1), "\n")
        ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:246:32:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L246) *style:* **Put spaces around all infix operators.**
```r
        numberAccepted / (tried-1), "\n")
                              ~^~
```
[R/ABC_SMC.R:249:27:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L249) *style:* **Commas should always have a space after.**
```r
    next_weights <- rep(1,numParticles)
                          ^
```
[R/ABC_SMC.R:249:27:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L249) *style:* **Variable and function names should be all lowercase.**
```r
    next_weights <- rep(1,numParticles)
                          ^~~~~~~~~~~~
```
[R/ABC_SMC.R:250:20:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L250) *style:* **Variable and function names should be all lowercase.**
```r
    next_disp <- 1:numParticles
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:251:20:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L251) *style:* **Variable and function names should be all lowercase.**
```r
    next_filt <- 1:numParticles
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:252:20:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L252) *style:* **Variable and function names should be all lowercase.**
```r
    next_comp <- 1:numParticles
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:262:61:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L262) *style:* **Put spaces around all infix operators.**
```r
    d <- read.table(paste("particles_t=", t - 1, ".txt", sep="",
                                                           ~^~
```
[R/ABC_SMC.R:266:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/ABC_SMC.R#L266) *style:* **lines should not be more than 80 characters.**
```r
           "Can't stop at iteration 1 - please set stop_at_iteration to 2 if you only want to generate from the prior")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/generateArtificialData.R:4:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:16:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:19:14:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L45) *style:* **Use two spaces to indent, never tabs.**
```r
	      }
^
```
[R/generateArtificialData.R:45:18:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L46) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:46:25:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/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/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L50) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits_matrix <- matrix(opt_traits_matrix, ncol = n_traits)
                             ~^~~
```
[R/generateArtificialData.R:50:65:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L50) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits_matrix <- matrix(opt_traits_matrix, ncol = n_traits)
                                                               ~^~
```
[R/generateArtificialData.R:51:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L51) *style:* **Use two spaces to indent, never tabs.**
```r
	      trait_distances_onedimen[m] <- sqrt(sum(traits_distances[m, ] * traits_distances[m, ]))
^
```
[R/generateArtificialData.R:51:30:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L51) *style:* **Put spaces around all infix operators.**
```r
	    traits_distances <- abs(traits_pool - opt_traits_matrix)
                            ~^~~
```
[R/generateArtificialData.R:51:49:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L51) *style:* **Put spaces around all infix operators.**
```r
	    traits_distances <- abs(traits_pool - opt_traits_matrix)
                                               ~^~
```
[R/generateArtificialData.R:52:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L52) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:53:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L53) *style:* **Use two spaces to indent, never tabs.**
```r
	    inv_distances <- -(trait_distances_onedimen - max(trait_distances_onedimen)) + 10^-99
^
```
[R/generateArtificialData.R:53:16:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L53) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	    for(m in 1:pool_richness){
               ^
```
[R/generateArtificialData.R:54:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L54) *style:* **Use two spaces to indent, never tabs.**
```r
	    present_species <- sample(c(1:pool_richness), richness_values[i],
^
```
[R/generateArtificialData.R:54:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L54) *style:* **lines should not be more than 80 characters.**
```r
	      trait_distances_onedimen[m] <- sqrt(sum(traits_distances[m, ] * traits_distances[m, ]))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/generateArtificialData.R:54:43:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L54) *style:* **Put spaces around all infix operators.**
```r
	      trait_distances_onedimen[m] <- sqrt(sum(traits_distances[m, ] * traits_distances[m, ]))
                                         ~^~~
```
[R/generateArtificialData.R:54:77:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L54) *style:* **Put spaces around all infix operators.**
```r
	      trait_distances_onedimen[m] <- sqrt(sum(traits_distances[m, ] * traits_distances[m, ]))
                                                                           ~^~
```
[R/generateArtificialData.R:56:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L56) *style:* **lines should not be more than 80 characters.**
```r
	    inv_distances <- -(trait_distances_onedimen - max(trait_distances_onedimen)) + 10^-99
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/generateArtificialData.R:56:27:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L56) *style:* **Put spaces around all infix operators.**
```r
	    inv_distances <- -(trait_distances_onedimen - max(trait_distances_onedimen)) + 10^-99
                         ~^~~
```
[R/generateArtificialData.R:56:31:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L56) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	    inv_distances <- -(trait_distances_onedimen - max(trait_distances_onedimen)) + 10^-99
                              ^
```
[R/generateArtificialData.R:56:57:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L56) *style:* **Put spaces around all infix operators.**
```r
	    inv_distances <- -(trait_distances_onedimen - max(trait_distances_onedimen)) + 10^-99
                                                       ~^~
```
[R/generateArtificialData.R:56:90:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L56) *style:* **Put spaces around all infix operators.**
```r
	    inv_distances <- -(trait_distances_onedimen - max(trait_distances_onedimen)) + 10^-99
                                                                                ~^~
```
[R/generateArtificialData.R:57:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L57) *style:* **Use two spaces to indent, never tabs.**
```r
	  comm_spec_matrix[i, c(present_species)] <- 1
^
```
[R/generateArtificialData.R:57:29:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L57) *style:* **Put spaces around all infix operators.**
```r
	    present_species <- sample(c(1:pool_richness), richness_values[i],
                           ~^~~
```
[R/generateArtificialData.R:58:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L58) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:59:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L59) *style:* **Use two spaces to indent, never tabs.**
```r
	comm_spec_matrix
^
```
[R/generateArtificialData.R:60:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L60) *style:* **Use two spaces to indent, never tabs.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) traits_pool_df <-
^
```
[R/generateArtificialData.R:62:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L62) *style:* **Use two spaces to indent, never tabs.**
```r
	row1 <- c(column1[-c(which(colSums(comm_spec_matrix) == 0))])
^
```
[R/generateArtificialData.R:63:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L63) *style:* **Use two spaces to indent, never tabs.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) comm_spec_matrix <-
^
```
[R/generateArtificialData.R:63:11:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L63) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) traits_pool_df <-
          ^
```
[R/generateArtificialData.R:63:58:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L63) *style:* **Put spaces around all infix operators.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) traits_pool_df <-
                                                        ~^~~
```
[R/generateArtificialData.R:65:14:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L65) *style:* **Put spaces around all infix operators.**
```r
	row1 <- c(column1[-c(which(colSums(comm_spec_matrix) == 0))])
            ~^~~
```
[R/generateArtificialData.R:65:62:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L65) *style:* **Put spaces around all infix operators.**
```r
	row1 <- c(column1[-c(which(colSums(comm_spec_matrix) == 0))])
                                                            ~^~~
```
[R/generateArtificialData.R:66:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L66) *style:* **Use two spaces to indent, never tabs.**
```r
	comm_spec_matrix <- as.data.frame(cbind(comm_spec_matrix, rep("", n_communities)))
^
```
[R/generateArtificialData.R:66:11:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L66) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) comm_spec_matrix <-
          ^
```
[R/generateArtificialData.R:66:58:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L66) *style:* **Put spaces around all infix operators.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) comm_spec_matrix <-
                                                        ~^~~
```
[R/generateArtificialData.R:67:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L67) *style:* **Use two spaces to indent, never tabs.**
```r
	names(comm_spec_matrix) <- row1
^
```
[R/generateArtificialData.R:69:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L69) *style:* **Use two spaces to indent, never tabs.**
```r
	plots <- as.data.frame(matrix(as.numeric(as.matrix(comm_spec_matrix[, -ncol(comm_spec_matrix)])),
^
```
[R/generateArtificialData.R:69:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L69) *style:* **lines should not be more than 80 characters.**
```r
	comm_spec_matrix <- as.data.frame(cbind(comm_spec_matrix, rep("", n_communities)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/generateArtificialData.R:69:26:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L69) *style:* **Put spaces around all infix operators.**
```r
	comm_spec_matrix <- as.data.frame(cbind(comm_spec_matrix, rep("", n_communities)))
                        ~^~~
```
[R/generateArtificialData.R:70:33:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L70) *style:* **Put spaces around all infix operators.**
```r
	names(comm_spec_matrix) <- row1
                               ~^~~
```
[R/generateArtificialData.R:72:1:](https://github.com/thijsjanzen/STEPCAM/blob/70d08b9d9dc293e4f49118a9d43f74359cac41ef/R/generateArtificialData.R#L72) *style:* **Use two spaces to indent, never tabs.**
```r
	names(plots) <- traits_pool_df[, 1]
^
```