[R/ABC_SMC.R:2:1:](https://github.com/thijsjanzen/STEPCAM/blob/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/R/ABC_SMC.R#L166) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~
```
[R/ABC_SMC.R:170:40:](https://github.com/thijsjanzen/STEPCAM/blob/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/R/ABC_SMC.R#L173) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[R/ABC_SMC.R:174:8:](https://github.com/thijsjanzen/STEPCAM/blob/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/R/ABC_SMC.R#L176) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/ABC_SMC.R:177:1:](https://github.com/thijsjanzen/STEPCAM/blob/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/R/ABC_SMC.R#L195) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[R/ABC_SMC.R:198:19:](https://github.com/thijsjanzen/STEPCAM/blob/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/R/generateArtificialData.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:16:1:](https://github.com/thijsjanzen/STEPCAM/blob/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/R/generateArtificialData.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:19:14:](https://github.com/thijsjanzen/STEPCAM/blob/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/R/generateArtificialData.R#L45) *style:* **Use two spaces to indent, never tabs.**
```r
	      }
^
```
[R/generateArtificialData.R:45:18:](https://github.com/thijsjanzen/STEPCAM/blob/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/R/generateArtificialData.R#L46) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:46:25:](https://github.com/thijsjanzen/STEPCAM/blob/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/R/generateArtificialData.R#L52) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:53:1:](https://github.com/thijsjanzen/STEPCAM/blob/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/R/generateArtificialData.R#L58) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:59:1:](https://github.com/thijsjanzen/STEPCAM/blob/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/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/4e30b1371bfbaf11e4294525fdcd2182a7f34038/R/generateArtificialData.R#L72) *style:* **Use two spaces to indent, never tabs.**
```r
	names(plots) <- traits_pool_df[, 1]
^
```


compare 는 위코드를 그냥 그대로 베끼다보니... ^^;;; 미안합니다


wqeqwe


why 'event' in the name? What does it mean? (code comment)


I didn't say it's wrong; I said I had a hunch.


I think `0.4.0` uses `cross-spawn-async` though.


No I didn't


Yes there are a lot of "id" vars wich is also a built-in type.


go


React-Redux project


I meant replace `AtomicBoolean` by `boolean`.


I'm not seeing it on 55.0.2867.0 on OS X. So it does seem like #790.


I wanted to propose this before doing it. I wanted to be able to search easily who is listening on this event. If I just search for timelines I get tons of results, but i search for `eventTimelines` i will get only what is related to that event


删除


测试项目


Feedback: please use the same pattern as the other view modules: no init function. If init is better, then the other view functions need to be updated, please open an issue for that.


Won't this show the exception twice in the logs? Better safe than sorry, I guess. (Or is a raised exception not automatically shown in the logs?)


Sorry, I do not get how you mean this? Which project?


- Kernel panic when phone restart bug: (you have fixed, right? I have cherry-picked your commit)
- video recording: aac hw encoding not work: (Maybe a sound drivers mess, I will try to fix it)
- One is vidc drivers: maybe LG stock rom media HAL too old: You have fixed but I have ported some more commits maybe them can solve the problem otherwise I will cherrypick your commit.
- Camera not focus.
lg-devs moved some firmware to /etc/firmware, but stock rom still use /system/media/*.bin: I reverted lg-devs commit so I think it is fixed right?


Some of constructions like
```
if (a)
    b();
```
or
```
if (a) b();
```
replaced by
```
if(a){
    b();
}
```


@co5mo
Ted jsem zkousel full import pustit nekolikrat za sebou a v jednom KODI me to jelo stejne rychle a v druhem to jelo napodruhe vyrazne pomaleji.
Nebyl cas to moc testovat, ale vsiml jsem si, ze to ma spojitost se zapnutym scrapovanim. Pokud jsem nemel na slozkach nastavene oc jde a odkud stahovat info (slozka obsahuje filmy/serialy a scrapuje data z local NFO/csfd.cz/tvdb.com/etc...) tak druhy import bezel stejne rychle, ale kdyz jsem toto mel nastavene v jinem KODI, klidne jen at zkousi data brat z LOCAL NFO, tak kdyz to nejak bezelo na pozadi, tak druhy import byl vyrazne pomalejsi.
Toto chovani ale pozoruji i se starsimi verzemi pluginu...
Mozna @lzoubek ci @lubomir-kucera bude vedet proc tomu tak je (nejaky wait v kodu, kdyz probiha scrapovani, netusim)


kind of, though this needs to be re-worded


this code should be refactored in some more programmatic way lol


参考了开源项目android-flowlayout的作者，在此十分感谢作者！


How about searching for `.on('timelines'` instead?


啦啦啦


Zrobione.


being an external library I feel unsure making PRs.
this:
```
#ifdef WIN32
	#include<windows.h>
        HANDLE HID_API_EXPORT HID_API_CALL get_device_handle(hid_device *dev);
#endif
```
seems to solve the issue. But my doubt is: where does MSVC get HANDLE definition without adding this?


1、记录事件

事件分类：
   1、 故障记录
		a.
			主机类
			sa pe 主机本身的故障
		b.
			支付类
			支付相关，支付量，成功率等
		c.
			网络类
				网络抖动，网络设备故障。
		d.
			业务类
				统一日志，设计业务告警，需要pe和开发
		e.
			短信类
		e.
			其它

   2、 硬件保修记录
		a.主机保修

		b.其它

	3、报警关闭记录
		1.check—mk告警关闭
		2.其它

2、 事件查询：
	1、 故障查询
		a.查询故障
			1.删除故障记录
			2.修改历史故障

	2、 报修查询


fix crash in some case, so please update to this commit
sorry for inconvenience


`len(data)` never will more that socket buffer size (64Kb usually). And self.split_size is 976Kb minimum.
So this `if` will never work.


Julian - can you commit the spacing fixes?


👍  for _renderAbout()


cvbf


I'm not sure how this relaes to this patch, but pupmod=3 is a fulll install to a flash drive.
As stated before, the new init only deals with frugal installs since it is located in initrd.gz.


Fixes #103


you should comment that the caller is responsible for deleting the string from the heap


@thankjura да, скомпилируй wayland :) ну или обнови старый патч, который разрешает компилить без wayland, сейчас без него работать не будет...


Why not use `basename()` from `libgen.h`? Windows?


I don't see the point in having a swapfile if you have a swap partition.
I think of a swapfile as a poor man's swap partition.
The advantage of a swap partition is that it also works with pupmode=5.


This issue is fixed for line now. But its still happening for circle and polygon.
Fiddle Links,
Polygon: https://jsfiddle.net/uttampankajsingh/tbgnax7u/8/
Circle: https://jsfiddle.net/uttampankajsingh/tbgnax7u/9/


I meant a feature request for OKAPI.


删除


erts_next_heap_size is an API function globally used. next_vheap thingy is internal and inlined.


Visual Regression Testing found a difference between new version and the baseline.
Check the diffs [here](http://jenkins.wikia-prod:8080/job/design-system-reference-page-pr-check/516/).
Accept the new baseline [here](http://jenkins.wikia-prod:8080/job/design-system-reference-page-update-baseline/parambuild?branch=XW-2076).


@kara, It should be possible to have some of few radio items with the same name disabled. Consider this (_you can select meat or chicken but the fish option is disabled_):
```
<input type=radio name=food value=meat > Meat
<input type=radio name=food value=chicken > Chicken
<input type=radio name=food value=fish disabled > Fish
```

Then having a form:
```
     <form>
        <input type="radio" name="food" [(ngModel)]="food" value="chicken">
        <input type="radio" name="food"  [(ngModel)]="food" value="fish">
```
this check seems to be invalid:
```
+          expect(inputs[0].nativeElement.disabled).toEqual(true);
+          expect(inputs[1].nativeElement.disabled).toEqual(true);
```
Should be:
```
+          expect(inputs[0].nativeElement.disabled).toEqual(false);
+          expect(inputs[1].nativeElement.disabled).toEqual(true);
```


host


achieved basic CRUD


Closes #105


Fuck sake


member.score.to_s(:delimited)
の部分は
number_with_delimiter(member.score)
でもOK


+ Regarding how to solve this, you'd need the hard activity constraint to be able to create a state when it evaluates the shipment pickup position, which can be saved in the insertiondata or similar and used when the hard activity constraint evaluates the shipment delivery location. This state should contain the new slack times for all deliveries after the pickup insertion point.

Luckily enough the algorithmic complexity is actually the same as the shipment insertion right now - for each shipment pickup insertion location you currently evaluate all later shipment delivery insertion locations. So for a route of size n you have O(n2) operations.

To fix this, for each shipment pickup insertion location you need to recalculate the slack times for all later shipment deliveries - so this is still O(n2). Obviously you have more calculations but as the algorithmic complexity is the same as current, we should still be able to scale to larger problems.


@alitokmen Thank you. Wanted to make a PR but you was faster.


fixBranchTransition (mitchute) - x86_64-Linux-Ubuntu-14.04-gcc-4.8: OK (2371 of 2373 tests passed, 0 test warnings)

 * 2 tests had: EIO diffs.
 * 1 test had: ESO small diffs.
 * 1 test had: ERR diffs.
 * 1 test had: ESO big diffs.
 * 1 test had: SSZ small diffs.
 * 1 test had: ZSZ small diffs.
 * 1 test had: Table big diffs.

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.svg) ![Test Badge](http://img.shields.io/badge/tests%20passed-99.92%25-yellow.svg)


@chelmuth: please add to staging


fixBranchTransition (mitchute) - x86_64-Linux-Ubuntu-14.04-custom_check: OK (0 of 0 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.svg)


heh, I was actually considering suggesting a bit array for the TMs/HMs to avoid it taking up as much space as it does, and to allow extending it further if desired


@jdcasey
I use expression property ${repo.one.url} to do the test for impied repos, but the test has passed, I am not sure whether the wrong place I've reproduced for this issue [#359](https://github.com/Commonjava/indy/issues/359)  right?


@fgi-odoo FYI: You have to update .tx/config to activate the translation for this new section.