[R/ABC_SMC.R:3:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L3) *style:* **Variable and function names should be all lowercase.**
```r
getRandomVals <- function(max_val)  {
^~~~~~~~~~~~~
```
[R/ABC_SMC.R:16:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L16) *style:* **Variable and function names should be all lowercase.**
```r
getFromPrevious <- function(inds, ws, disps, filts, comps)  {
^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:23:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L23) *style:* **Variable and function names should be all lowercase.**
```r
calculateWeight <- function(params, target, sigma,
^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:26:68:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L26) *style:* **Commas should always have a space after.**
```r
  diff <- params[target] - cbind(disp_vals, filt_vals, comp_vals)[,target]
                                                                   ^
```
[R/ABC_SMC.R:27:54:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L27) *style:* **Trailing whitespace is superfluous.**
```r
  vals <- weights * dnorm(diff, mean = 0, sd = sigma)
                                                     ^~
```
[R/ABC_SMC.R:28:12:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L28) *style:* **Put spaces around all infix operators.**
```r
  return( 1/sum(vals) )
          ~^~
```
[R/ABC_SMC.R:32:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L32) *style:* **Variable and function names should be all lowercase.**
```r
normalizeWeights <- function(x) {
^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:66:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L66) *style:* **Variable and function names should be all lowercase.**
```r
calculateDistance <- function(rich, even, div, opt_diff, obs, sd_vals)  {
^~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:70:40:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L70) *style:* **Put spaces around all infix operators.**
```r
  fit_optima <- (opt_diff / sd_vals[4])^2
                                      ~^~
```
[R/ABC_SMC.R:78:21:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L78) *style:* **Variable and function names should be all lowercase.**
```r
ABC_SMC <- function(numParticles, species_fallout, taxa, esppres, n_traits,
                    ^~~~~~~~~~~~
```
[R/ABC_SMC.R:80:46:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L80) *style:* **Variable and function names should be all lowercase.**
```r
                    abundances, frequencies, stopRate, Ord,
                                             ^~~~~~~~
```
[R/ABC_SMC.R:80:60:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L80) *style:* **Trailing whitespace is superfluous.**
```r
                    abundances, frequencies, stopRate, Ord,
                                                           ^
```
[R/ABC_SMC.R:86:52:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L86) *style:* **Trailing whitespace is superfluous.**
```r
           "one of the community summary statistics
                                                   ^
```
[R/ABC_SMC.R:90:10:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L90) *style:* **Variable and function names should be all lowercase.**
```r
  res <- detMnbsp(Ord, abundances)
         ^~~~~~~~
```
[R/ABC_SMC.R:90:10:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L90) *warning:* **no visible global function definition for ‘detMnbsp’**
```r
  res <- detMnbsp(Ord, abundances)
         ^~~~~~~~
```
[R/ABC_SMC.R:93:18:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L93) *style:* **Variable and function names should be all lowercase.**
```r
  disp_vals <- 1:numParticles
                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:94:18:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L94) *style:* **Variable and function names should be all lowercase.**
```r
  filt_vals <- 1:numParticles
                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:95:18:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L95) *style:* **Variable and function names should be all lowercase.**
```r
  comp_vals <- 1:numParticles
                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:97:13:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L97) *style:* **Variable and function names should be all lowercase.**
```r
  fits <- 1:numParticles
            ^~~~~~~~~~~~
```
[R/ABC_SMC.R:98:17:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L98) *style:* **Variable and function names should be all lowercase.**
```r
  rich_vec <- 1:numParticles
                ^~~~~~~~~~~~
```
[R/ABC_SMC.R:99:16:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L99) *style:* **Variable and function names should be all lowercase.**
```r
  eve_vec <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:100:16:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L100) *style:* **Variable and function names should be all lowercase.**
```r
  div_vec <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:101:16:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L101) *style:* **Variable and function names should be all lowercase.**
```r
  opt_vec <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:107:21:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L107) *style:* **Variable and function names should be all lowercase.**
```r
  weights <- rep(1, numParticles)
                    ^~~~~~~~~~~~
```
[R/ABC_SMC.R:108:26:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L108) *style:* **Variable and function names should be all lowercase.**
```r
  next_weights <- rep(1, numParticles)
                         ^~~~~~~~~~~~
```
[R/ABC_SMC.R:109:16:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L109) *style:* **Variable and function names should be all lowercase.**
```r
  indices <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:121:7:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L121) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(d[numParticles,1] == numParticles) {
      ^
```
[R/ABC_SMC.R:121:10:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L121) *style:* **Variable and function names should be all lowercase.**
```r
    if(d[numParticles,1] == numParticles) {
         ^~~~~~~~~~~~
```
[R/ABC_SMC.R:121:23:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L121) *style:* **Commas should always have a space after.**
```r
    if(d[numParticles,1] == numParticles) {
                      ^
```
[R/ABC_SMC.R:121:29:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L121) *style:* **Variable and function names should be all lowercase.**
```r
    if(d[numParticles,1] == numParticles) {
                            ^~~~~~~~~~~~
```
[R/ABC_SMC.R:143:5:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L143) *style:* **Variable and function names should be all lowercase.**
```r
    numberAccepted <- 0
    ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:144:28:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L144) *style:* **Variable and function names should be all lowercase.**
```r
    if (t != 1) weights <- normalizeWeights(weights)
                           ^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:144:28:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L144) *warning:* **no visible global function definition for ‘normalizeWeights’**
```r
    if (t != 1) weights <- normalizeWeights(weights)
                           ^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:152:12:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L152) *style:* **Variable and function names should be all lowercase.**
```r
    while (numberAccepted <= numParticles) {
           ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:152:30:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L152) *style:* **Variable and function names should be all lowercase.**
```r
    while (numberAccepted <= numParticles) {
                             ^~~~~~~~~~~~
```
[R/ABC_SMC.R:156:19:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L156) *style:* **Variable and function names should be all lowercase.**
```r
        params <- getRandomVals(species_fallout)
                  ^~~~~~~~~~~~~
```
[R/ABC_SMC.R:156:19:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L156) *warning:* **no visible global function definition for ‘getRandomVals’**
```r
        params <- getRandomVals(species_fallout)
                  ^~~~~~~~~~~~~
```
[R/ABC_SMC.R:158:19:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L158) *style:* **Variable and function names should be all lowercase.**
```r
        params <- getFromPrevious(indices, weights,
                  ^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:160:19:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L160) *warning:* **no visible global function definition for ‘perturb’**
```r
        params <- perturb(params, sigma)
                  ^~~~~~~
```
[R/ABC_SMC.R:170:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L170) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~
```
[R/ABC_SMC.R:174:40:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L174) *style:* **Commas should always have a space after.**
```r
      traits <- as.data.frame(species[,c(2:(n_traits+1))],
                                       ^
```
[R/ABC_SMC.R:174:53:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L174) *style:* **Put spaces around all infix operators.**
```r
      traits <- as.data.frame(species[,c(2:(n_traits+1))],
                                                   ~^~
```
[R/ABC_SMC.R:175:40:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L175) *style:* **Put spaces around all infix operators.**
```r
                              row.names=c(1:taxa))
                                      ~^~
```
[R/ABC_SMC.R:179:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L179) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[R/ABC_SMC.R:180:20:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L180) *style:* **Variable and function names should be all lowercase.**
```r
      FD_output <- strippedDbFd(Ord, communities,
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:180:50:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L180) *style:* **Trailing whitespace is superfluous.**
```r
      FD_output <- strippedDbFd(Ord, communities,
                                                 ^
```
[R/ABC_SMC.R:181:64:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L181) *style:* **Trailing whitespace is superfluous.**
```r
                                m = res[[1]], nb.sp = res[[2]])
                                                               ^
```
[R/ABC_SMC.R:182:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L182) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/ABC_SMC.R:184:29:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L184) *style:* **Trailing whitespace is superfluous.**
```r
      FRic <- FD_output$FRic
                            ^
```
[R/ABC_SMC.R:186:29:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L186) *style:* **Trailing whitespace is superfluous.**
```r
      FEve <- FD_output$FEve
                            ^
```
[R/ABC_SMC.R:188:29:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L188) *style:* **Trailing whitespace is superfluous.**
```r
      FDiv <- FD_output$FDiv
                            ^
```
[R/ABC_SMC.R:197:69:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L197) *style:* **Trailing whitespace is superfluous.**
```r
      # calculate distance of trait mean between simulated community
                                                                    ^
```
[R/ABC_SMC.R:201:72:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L201) *style:* **Trailing whitespace is superfluous.**
```r
      # (inverse) fit of model: euclidian distance of FD and trait mean
                                                                       ^
```
[R/ABC_SMC.R:203:14:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L203) *style:* **Variable and function names should be all lowercase.**
```r
      fit <- calculateDistance(FRic[[1]], FEve[[1]], FDiv[[1]],
             ^~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:205:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L205) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[R/ABC_SMC.R:208:19:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L208) *style:* **Variable and function names should be all lowercase.**
```r
        next_disp[numberAccepted] <- params[1]
                  ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:209:19:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L209) *style:* **Variable and function names should be all lowercase.**
```r
        next_filt[numberAccepted] <- params[2]
                  ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:210:19:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L210) *style:* **Variable and function names should be all lowercase.**
```r
        next_comp[numberAccepted] <- params[3]
                  ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:212:14:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L212) *style:* **Variable and function names should be all lowercase.**
```r
        fits[numberAccepted] <- fit
             ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:213:18:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L213) *style:* **Variable and function names should be all lowercase.**
```r
        rich_vec[numberAccepted] <- FRic[[1]]
                 ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:214:17:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L214) *style:* **Variable and function names should be all lowercase.**
```r
        eve_vec[numberAccepted] <- FEve[[1]]
                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:215:17:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L215) *style:* **Variable and function names should be all lowercase.**
```r
        div_vec[numberAccepted] <- FDiv[[1]]
                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:216:17:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L216) *style:* **Variable and function names should be all lowercase.**
```r
        opt_vec[numberAccepted] <- mean_optimum
                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:219:24:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L219) *style:* **Variable and function names should be all lowercase.**
```r
          next_weights[numberAccepted] <- 1
                       ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:221:24:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L221) *style:* **Variable and function names should be all lowercase.**
```r
          next_weights[numberAccepted] <-
                       ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:222:13:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L222) *style:* **Variable and function names should be all lowercase.**
```r
            calculateWeight(params, changed, sigma, disp_vals, filt_vals,
            ^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:225:9:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L225) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted <- numberAccepted + 1
        ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:225:27:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L225) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted <- numberAccepted + 1
                          ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:226:13:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L226) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
            ^
```
[R/ABC_SMC.R:226:14:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L226) *style:* **Variable and function names should be all lowercase.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
             ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:226:34:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L226) *style:* **Variable and function names should be all lowercase.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
                                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:233:21:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L233) *style:* **Put spaces around all infix operators.**
```r
      if (tried > (1/stopRate) && tried > 50)  {
                   ~^~
```
[R/ABC_SMC.R:233:22:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L233) *style:* **Variable and function names should be all lowercase.**
```r
      if (tried > (1/stopRate) && tried > 50)  {
                     ^~~~~~~~
```
[R/ABC_SMC.R:235:13:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L235) *style:* **Variable and function names should be all lowercase.**
```r
        if (numberAccepted / tried < stopRate) {
            ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:235:38:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L235) *style:* **Variable and function names should be all lowercase.**
```r
        if (numberAccepted / tried < stopRate) {
                                     ^~~~~~~~
```
[R/ABC_SMC.R:255:54:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L255) *style:* **Put spaces around all infix operators.**
```r
    file_name <- paste("particles_t=", t, ".txt", sep="", collapse = NULL)
                                                    ~^~
```
[R/ABC_SMC.R:258:64:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L258) *style:* **Trailing whitespace is superfluous.**
```r
    cat(" ", mean(disp_vals), mean(filt_vals), mean(comp_vals),
                                                               ^
```
[R/ABC_SMC.R:259:33:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L259) *style:* **Variable and function names should be all lowercase.**
```r
        "\t", "accept rate = ", numberAccepted / (tried-1), "\n")
                                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:259:56:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L259) *style:* **Put spaces around all infix operators.**
```r
        "\t", "accept rate = ", numberAccepted / (tried-1), "\n")
                                                      ~^~
```
[R/ABC_SMC.R:262:27:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L262) *style:* **Commas should always have a space after.**
```r
    next_weights <- rep(1,numParticles)
                          ^
```
[R/ABC_SMC.R:262:27:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L262) *style:* **Variable and function names should be all lowercase.**
```r
    next_weights <- rep(1,numParticles)
                          ^~~~~~~~~~~~
```
[R/ABC_SMC.R:263:20:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L263) *style:* **Variable and function names should be all lowercase.**
```r
    next_disp <- 1:numParticles
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:264:20:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L264) *style:* **Variable and function names should be all lowercase.**
```r
    next_filt <- 1:numParticles
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:265:20:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L265) *style:* **Variable and function names should be all lowercase.**
```r
    next_comp <- 1:numParticles
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:275:61:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L275) *style:* **Put spaces around all infix operators.**
```r
    d <- read.table(paste("particles_t=", t - 1, ".txt", sep="",
                                                           ~^~
```
[R/ABC_SMC.R:279:40:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L279) *style:* **Trailing whitespace is superfluous.**
```r
           "Can't stop at iteration 1 -
                                       ^
```
[R/ABC_SMC.R:280:57:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/ABC_SMC.R#L280) *style:* **Trailing whitespace is superfluous.**
```r
           please set stop_at_iteration to 2 if you only
                                                        ^
```
[R/generateArtificialData.R:5:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L5) *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/9354340730a78aada44eda3e0b54ebde7372e586/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/9354340730a78aada44eda3e0b54ebde7372e586/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/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L9) *style:* **Use two spaces to indent, never tabs.**
```r
	                                    mean = 0, sd = 1), 3),
^
```
[R/generateArtificialData.R:10:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L10) *style:* **Use two spaces to indent, never tabs.**
```r
	                       ncol = n_traits, nrow = pool_richness)
^
```
[R/generateArtificialData.R:10:23:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L10) *style:* **Put spaces around all infix operators.**
```r
	pool_richness <- n_species
                     ~^~~
```
[R/generateArtificialData.R:12:21:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L12) *style:* **Put spaces around all infix operators.**
```r
	traits_pool <- matrix( round( rnorm(n = (pool_richness * n_traits),
                   ~^~~
```
[R/generateArtificialData.R:12:47:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L12) *style:* **Put spaces around all infix operators.**
```r
	traits_pool <- matrix( round( rnorm(n = (pool_richness * n_traits),
                                             ~^~
```
[R/generateArtificialData.R:12:49:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L12) *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:12:64:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L12) *style:* **Put spaces around all infix operators.**
```r
	traits_pool <- matrix( round( rnorm(n = (pool_richness * n_traits),
                                                              ~^~
```
[R/generateArtificialData.R:13:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L13) *style:* **Use two spaces to indent, never tabs.**
```r
	for(i in 1:pool_richness) {
^
```
[R/generateArtificialData.R:13:50:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L13) *style:* **Put spaces around all infix operators.**
```r
	                                    mean = 0, sd = 1), 3),
                                                ~^~
```
[R/generateArtificialData.R:13:58:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L13) *style:* **Put spaces around all infix operators.**
```r
	                                    mean = 0, sd = 1), 3),
                                                        ~^~
```
[R/generateArtificialData.R:14:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L14) *style:* **Use two spaces to indent, never tabs.**
```r
	  column1[i] <- paste("species", i, sep = "")
^
```
[R/generateArtificialData.R:14:37:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L14) *style:* **Put spaces around all infix operators.**
```r
	                       ncol = n_traits, nrow = pool_richness)
                                   ~^~
```
[R/generateArtificialData.R:14:54:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L14) *style:* **Put spaces around all infix operators.**
```r
	                       ncol = n_traits, nrow = pool_richness)
                                                    ~^~
```
[R/generateArtificialData.R:15:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:16:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L16) *style:* **Use two spaces to indent, never tabs.**
```r
	row1 <- rep(NA, (n_traits + 1))
^
```
[R/generateArtificialData.R:17:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L17) *style:* **Use two spaces to indent, never tabs.**
```r
	for(i in 1:n_traits + 1) {
^
```
[R/generateArtificialData.R:17:12:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L17) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	for(i in 1:pool_richness) {
           ^
```
[R/generateArtificialData.R:18:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L18) *style:* **Use two spaces to indent, never tabs.**
```r
	  row1[i] <- paste("trait", (i - 1), sep="")
^
```
[R/generateArtificialData.R:18:22:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L18) *style:* **Put spaces around all infix operators.**
```r
	  column1[i] <- paste("species", i, sep = "")
                    ~^~~
```
[R/generateArtificialData.R:19:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:20:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L20) *style:* **Use two spaces to indent, never tabs.**
```r
	row1[1] <- "species"
^
```
[R/generateArtificialData.R:20:14:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L20) *style:* **Put spaces around all infix operators.**
```r
	row1 <- rep(NA, (n_traits + 1))
            ~^~~
```
[R/generateArtificialData.R:20:25:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L20) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	row1 <- rep(NA, (n_traits + 1))
                        ^
```
[R/generateArtificialData.R:21:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/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:12:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L21) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	for(i in 1:n_traits + 1) {
           ^
```
[R/generateArtificialData.R:22:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L22) *style:* **Use two spaces to indent, never tabs.**
```r
	traits_pool_df <- as.data.frame(columns)
^
```
[R/generateArtificialData.R:22:19:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L22) *style:* **Put spaces around all infix operators.**
```r
	  row1[i] <- paste("trait", (i - 1), sep="")
                 ~^~~
```
[R/generateArtificialData.R:22:37:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L22) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	  row1[i] <- paste("trait", (i - 1), sep="")
                                    ^
```
[R/generateArtificialData.R:22:40:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L22) *style:* **Put spaces around all infix operators.**
```r
	  row1[i] <- paste("trait", (i - 1), sep="")
                                      ~^~
```
[R/generateArtificialData.R:23:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L23) *style:* **Use two spaces to indent, never tabs.**
```r
	names(traits_pool_df) <- row1
^
```
[R/generateArtificialData.R:24:17:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L24) *style:* **Put spaces around all infix operators.**
```r
	row1[1] <- "species"
               ~^~~
```
[R/generateArtificialData.R:25:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/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:17:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L25) *style:* **Put spaces around all infix operators.**
```r
	columns <- matrix( cbind( column1, traits_pool), ncol = (n_traits + 1))
               ~^~~
```
[R/generateArtificialData.R:25:63:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L25) *style:* **Put spaces around all infix operators.**
```r
	columns <- matrix( cbind( column1, traits_pool), ncol = (n_traits + 1))
                                                             ~^~
```
[R/generateArtificialData.R:25:65:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L25) *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:26:24:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L26) *style:* **Put spaces around all infix operators.**
```r
	traits_pool_df <- as.data.frame(columns)
                      ~^~~
```
[R/generateArtificialData.R:27:31:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L27) *style:* **Put spaces around all infix operators.**
```r
	names(traits_pool_df) <- row1
                             ~^~~
```
[R/generateArtificialData.R:28:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/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:29:26:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L29) *style:* **Put spaces around all infix operators.**
```r
	comm_spec_matrix <- matrix(rep(0, (n_communities * pool_richness)),
                        ~^~~
```
[R/generateArtificialData.R:29:43:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L29) *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:29:58:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L29) *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/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L30) *style:* **Use two spaces to indent, never tabs.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) *
^
```
[R/generateArtificialData.R:31:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L31) *style:* **Use two spaces to indent, never tabs.**
```r
	                            (sd_richness * pool_richness) +
^
```
[R/generateArtificialData.R:32:19:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L32) *style:* **Put spaces around all infix operators.**
```r
	occurence <- 10 ^ rnorm(pool_richness, mean = 0, sd = occurence_distribution)
                 ~^~~
```
[R/generateArtificialData.R:32:25:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L32) *style:* **Put spaces around all infix operators.**
```r
	occurence <- 10 ^ rnorm(pool_richness, mean = 0, sd = occurence_distribution)
                       ~^~
```
[R/generateArtificialData.R:32:53:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L32) *style:* **Put spaces around all infix operators.**
```r
	occurence <- 10 ^ rnorm(pool_richness, mean = 0, sd = occurence_distribution)
                                                   ~^~
```
[R/generateArtificialData.R:32:61:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L32) *style:* **Put spaces around all infix operators.**
```r
	occurence <- 10 ^ rnorm(pool_richness, mean = 0, sd = occurence_distribution)
                                                           ~^~
```
[R/generateArtificialData.R:33:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L33) *style:* **Use two spaces to indent, never tabs.**
```r
	richness_values[which(richness_values > pool_richness)] <- pool_richness
^
```
[R/generateArtificialData.R:34:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L34) *style:* **Use two spaces to indent, never tabs.**
```r
	richness_values[which(richness_values < 0)] <- 0
^
```
[R/generateArtificialData.R:34:25:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L34) *style:* **Put spaces around all infix operators.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) *
                       ~^~~
```
[R/generateArtificialData.R:34:34:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L34) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) *
                                 ^
```
[R/generateArtificialData.R:34:61:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L34) *style:* **Put spaces around all infix operators.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) *
                                                           ~^~
```
[R/generateArtificialData.R:34:68:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L34) *style:* **Trailing whitespace is superfluous.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) *
                                                                   ^
```
[R/generateArtificialData.R:35:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L35) *style:* **Use two spaces to indent, never tabs.**
```r
	for(i in 1:n_communities) {
^
```
[R/generateArtificialData.R:35:37:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L35) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	                            (sd_richness * pool_richness) +
                                    ^
```
[R/generateArtificialData.R:35:50:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L35) *style:* **Put spaces around all infix operators.**
```r
	                            (sd_richness * pool_richness) +
                                                ~^~
```
[R/generateArtificialData.R:36:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L36) *style:* **Use two spaces to indent, never tabs.**
```r
	  if(mechanism_random == TRUE){
^
```
[R/generateArtificialData.R:37:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L37) *style:* **Use two spaces to indent, never tabs.**
```r
	    present_species <- sample(c(1:pool_richness), richness_values[i],
^
```
[R/generateArtificialData.R:37:47:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L37) *style:* **Put spaces around all infix operators.**
```r
	richness_values[which(richness_values > pool_richness)] <- pool_richness
                                             ~^~
```
[R/generateArtificialData.R:37:65:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L37) *style:* **Put spaces around all infix operators.**
```r
	richness_values[which(richness_values > pool_richness)] <- pool_richness
                                                               ~^~~
```
[R/generateArtificialData.R:38:47:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L38) *style:* **Put spaces around all infix operators.**
```r
	richness_values[which(richness_values < 0)] <- 0
                                             ~^
```
[R/generateArtificialData.R:39:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L39) *style:* **Use two spaces to indent, never tabs.**
```r
	  } else {
^
```
[R/generateArtificialData.R:39:12:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L39) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	for(i in 1:n_communities) {
           ^
```
[R/generateArtificialData.R:40:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L40) *style:* **Use two spaces to indent, never tabs.**
```r
	    opt_traits <- rnorm(n_traits, mean = 0, sd = 1)
^
```
[R/generateArtificialData.R:40:13:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L40) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	  if(mechanism_random == TRUE){
            ^
```
[R/generateArtificialData.R:40:31:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L40) *style:* **Put spaces around all infix operators.**
```r
	  if(mechanism_random == TRUE){
                             ~^~~
```
[R/generateArtificialData.R:41:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L41) *style:* **Use two spaces to indent, never tabs.**
```r
	    opt_traits_matrix <- c()
^
```
[R/generateArtificialData.R:41:29:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L41) *style:* **Put spaces around all infix operators.**
```r
	    present_species <- sample(c(1:pool_richness), richness_values[i],
                           ~^~~
```
[R/generateArtificialData.R:42:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L42) *style:* **Use two spaces to indent, never tabs.**
```r
	    for (j in 1:n_traits) {
^
```
[R/generateArtificialData.R:43:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L43) *style:* **Use two spaces to indent, never tabs.**
```r
	      for (k in 1:pool_richness) {
^
```
[R/generateArtificialData.R:44:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L44) *style:* **Use two spaces to indent, never tabs.**
```r
		      l <- (j - 1) * pool_richness + k
^~
```
[R/generateArtificialData.R:44:24:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L44) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits <- rnorm(n_traits, mean = 0, sd = 1)
                      ~^~~
```
[R/generateArtificialData.R:44:48:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L44) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits <- rnorm(n_traits, mean = 0, sd = 1)
                                              ~^~
```
[R/generateArtificialData.R:45:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L45) *style:* **Use two spaces to indent, never tabs.**
```r
		      opt_traits_matrix[l] <- opt_traits[j]
^~
```
[R/generateArtificialData.R:46:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L46) *style:* **Use two spaces to indent, never tabs.**
```r
	      }
^
```
[R/generateArtificialData.R:46:17:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L46) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	    for (j in 1:n_traits) {
                ^
```
[R/generateArtificialData.R:47:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L47) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:47:19:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L47) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	      for (k in 1:pool_richness) {
                  ^
```
[R/generateArtificialData.R:48:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L48) *style:* **Use two spaces to indent, never tabs.**
```r
	    opt_traits_matrix <- matrix(opt_traits_matrix, ncol = n_traits)
^
```
[R/generateArtificialData.R:48:25:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L48) *style:* **Put spaces around all infix operators.**
```r
		      l <- (j - 1) * pool_richness + k
                       ~^~~
```
[R/generateArtificialData.R:48:28:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L48) *style:* **Place a space before left parenthesis, except in a function call.**
```r
		      l <- (j - 1) * pool_richness + k
                           ^
```
[R/generateArtificialData.R:48:31:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L48) *style:* **Put spaces around all infix operators.**
```r
		      l <- (j - 1) * pool_richness + k
                             ~^~
```
[R/generateArtificialData.R:48:36:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L48) *style:* **Put spaces around all infix operators.**
```r
		      l <- (j - 1) * pool_richness + k
                                  ~^
```
[R/generateArtificialData.R:49:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L49) *style:* **Use two spaces to indent, never tabs.**
```r
	    traits_distances <- abs(traits_pool - opt_traits_matrix)
^
```
[R/generateArtificialData.R:49:44:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L49) *style:* **Put spaces around all infix operators.**
```r
		      opt_traits_matrix[l] <- opt_traits[j]
                                          ~^~~
```
[R/generateArtificialData.R:50:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L50) *style:* **Use two spaces to indent, never tabs.**
```r
	    trait_distances_onedimen <- c()
^
```
[R/generateArtificialData.R:51:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L51) *style:* **Use two spaces to indent, never tabs.**
```r
	    for(m in 1:pool_richness){
^
```
[R/generateArtificialData.R:52:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L52) *style:* **Use two spaces to indent, never tabs.**
```r
	      trait_distances_onedimen[m] <- sqrt(sum(traits_distances[m, ] *
^
```
[R/generateArtificialData.R:52:31:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L52) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits_matrix <- matrix(opt_traits_matrix, ncol = n_traits)
                             ~^~~
```
[R/generateArtificialData.R:52:65:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L52) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits_matrix <- matrix(opt_traits_matrix, ncol = n_traits)
                                                               ~^~
```
[R/generateArtificialData.R:53:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L53) *style:* **Use two spaces to indent, never tabs.**
```r
	                                              traits_distances[m, ]))
^
```
[R/generateArtificialData.R:53:30:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L53) *style:* **Put spaces around all infix operators.**
```r
	    traits_distances <- abs(traits_pool - opt_traits_matrix)
                            ~^~~
```
[R/generateArtificialData.R:53:49:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L53) *style:* **Put spaces around all infix operators.**
```r
	    traits_distances <- abs(traits_pool - opt_traits_matrix)
                                               ~^~
```
[R/generateArtificialData.R:54:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L54) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:55:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L55) *style:* **Use two spaces to indent, never tabs.**
```r
	    inv_distances <- -(trait_distances_onedimen -
^
```
[R/generateArtificialData.R:55:16:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L55) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	    for(m in 1:pool_richness){
               ^
```
[R/generateArtificialData.R:56:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L56) *style:* **Use two spaces to indent, never tabs.**
```r
	                       max(trait_distances_onedimen)) + 10 ^ -99
^
```
[R/generateArtificialData.R:56:43:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L56) *style:* **Put spaces around all infix operators.**
```r
	      trait_distances_onedimen[m] <- sqrt(sum(traits_distances[m, ] *
                                         ~^~~
```
[R/generateArtificialData.R:56:71:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L56) *style:* **Trailing whitespace is superfluous.**
```r
	      trait_distances_onedimen[m] <- sqrt(sum(traits_distances[m, ] *
                                                                      ^
```
[R/generateArtificialData.R:57:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L57) *style:* **Use two spaces to indent, never tabs.**
```r
	    present_species <- sample(c(1:pool_richness), richness_values[i],
^
```
[R/generateArtificialData.R:59:27:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L59) *style:* **Put spaces around all infix operators.**
```r
	    inv_distances <- -(trait_distances_onedimen -
                         ~^~~
```
[R/generateArtificialData.R:59:31:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L59) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	    inv_distances <- -(trait_distances_onedimen -
                              ^
```
[R/generateArtificialData.R:59:51:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L59) *style:* **Trailing whitespace is superfluous.**
```r
	    inv_distances <- -(trait_distances_onedimen -
                                                  ^
```
[R/generateArtificialData.R:60:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L60) *style:* **Use two spaces to indent, never tabs.**
```r
	  comm_spec_matrix[i, c(present_species)] <- 1
^
```
[R/generateArtificialData.R:60:63:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L60) *style:* **Put spaces around all infix operators.**
```r
	                       max(trait_distances_onedimen)) + 10 ^ -99
                                                              ^~
```
[R/generateArtificialData.R:61:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L61) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:61:29:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L61) *style:* **Put spaces around all infix operators.**
```r
	    present_species <- sample(c(1:pool_richness), richness_values[i],
                           ~^~~
```
[R/generateArtificialData.R:62:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L62) *style:* **Use two spaces to indent, never tabs.**
```r
	comm_spec_matrix
^
```
[R/generateArtificialData.R:63:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L63) *style:* **Use two spaces to indent, never tabs.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) {
^
```
[R/generateArtificialData.R:64:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L64) *style:* **Use two spaces to indent, never tabs.**
```r
	  traits_pool_df <-
^
```
[R/generateArtificialData.R:66:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L66) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:67:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L67) *style:* **Use two spaces to indent, never tabs.**
```r
	row1 <- c(column1[-c(which(colSums(comm_spec_matrix) == 0))])
^
```
[R/generateArtificialData.R:67:11:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L67) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) {
          ^
```
[R/generateArtificialData.R:67:58:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L67) *style:* **Put spaces around all infix operators.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) {
                                                        ~^~~
```
[R/generateArtificialData.R:68:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L68) *style:* **Use two spaces to indent, never tabs.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) {
^
```
[R/generateArtificialData.R:69:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L69) *style:* **Use two spaces to indent, never tabs.**
```r
	  comm_spec_matrix <-
^
```
[R/generateArtificialData.R:71:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L71) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:71:14:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L71) *style:* **Put spaces around all infix operators.**
```r
	row1 <- c(column1[-c(which(colSums(comm_spec_matrix) == 0))])
            ~^~~
```
[R/generateArtificialData.R:71:62:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L71) *style:* **Put spaces around all infix operators.**
```r
	row1 <- c(column1[-c(which(colSums(comm_spec_matrix) == 0))])
                                                            ~^~~
```
[R/generateArtificialData.R:72:11:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L72) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) {
          ^
```
[R/generateArtificialData.R:72:58:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L72) *style:* **Put spaces around all infix operators.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) {
                                                        ~^
```
[R/generateArtificialData.R:72:58:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L72) *style:* **Trailing whitespace is superfluous.**
```r
	if(length(which(colSums(comm_spec_matrix) == 0)) != 0) {
                                                         ^
```
[R/generateArtificialData.R:73:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L73) *style:* **Use two spaces to indent, never tabs.**
```r
	comm_spec_matrix <- as.data.frame(
^
```
[R/generateArtificialData.R:74:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L74) *style:* **Use two spaces to indent, never tabs.**
```r
	                      cbind(comm_spec_matrix, rep("", n_communities)))
^
```
[R/generateArtificialData.R:75:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L75) *style:* **Use two spaces to indent, never tabs.**
```r
	names(comm_spec_matrix) <- row1
^
```
[R/generateArtificialData.R:77:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L77) *style:* **Use two spaces to indent, never tabs.**
```r
	plots <- as.data.frame(matrix(
^
```
[R/generateArtificialData.R:77:26:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L77) *style:* **Put spaces around all infix operators.**
```r
	comm_spec_matrix <- as.data.frame(
                        ~^~~
```
[R/generateArtificialData.R:78:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L78) *style:* **Use two spaces to indent, never tabs.**
```r
	            as.numeric(as.matrix(comm_spec_matrix[,-ncol(comm_spec_matrix)])),
^
```
[R/generateArtificialData.R:79:33:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L79) *style:* **Put spaces around all infix operators.**
```r
	names(comm_spec_matrix) <- row1
                               ~^~~
```
[R/generateArtificialData.R:81:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L81) *style:* **Use two spaces to indent, never tabs.**
```r
	names(plots) <- traits_pool_df[, 1]
^
```
[R/generateArtificialData.R:81:15:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L81) *style:* **Put spaces around all infix operators.**
```r
	plots <- as.data.frame(matrix(
             ~^~~
```
[R/generateArtificialData.R:83:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L83) *style:* **Use two spaces to indent, never tabs.**
```r
	traits_pool_df[ ,c(2:ncol(traits_pool_df))] <- as.matrix(
^
```
[R/generateArtificialData.R:84:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L84) *style:* **Use two spaces to indent, never tabs.**
```r
	                traits_pool_df[ ,c(2:ncol(traits_pool_df))])
^
```
[R/generateArtificialData.R:85:22:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L85) *style:* **Put spaces around all infix operators.**
```r
	names(plots) <- traits_pool_df[, 1]
                    ~^~~
```
[R/generateArtificialData.R:86:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L86) *style:* **Use two spaces to indent, never tabs.**
```r
	for (i in 2:ncol(traits_pool_df)) {
^
```
[R/generateArtificialData.R:87:53:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L87) *style:* **Put spaces around all infix operators.**
```r
	traits_pool_df[ ,c(2:ncol(traits_pool_df))] <- as.matrix(
                                                   ~^~~
```
[R/generateArtificialData.R:88:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L88) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:89:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L89) *style:* **Use two spaces to indent, never tabs.**
```r
	output <- list( traits = traits_pool_df, abundances = plots)
^
```
[R/generateArtificialData.R:90:13:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L90) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	for (i in 2:ncol(traits_pool_df)) {
            ^
```
[R/generateArtificialData.R:91:1:](https://github.com/thijsjanzen/STEPCAM/blob/9354340730a78aada44eda3e0b54ebde7372e586/R/generateArtificialData.R#L91) *style:* **Use two spaces to indent, never tabs.**
```r
	return(output)
^
```


dfds fd  d f df


Okie doke.


Dalsi postreh.
Scraper musi byt aktivni na slozce Filmy a bezet zaroven s importem="add-all-to-library". Vypada to, ze kdyz jsem to pustil bokem na serialech, tak to nekolidovalo.
Import se pak novych .strm i update knihovny pomoci scraperu viditelne mezi sebou "bije" - oboje se vyrazne zpomali:
![image](https://cloud.githubusercontent.com/assets/1260408/18717894/d8a2bc5c-8021-11e6-84da-2c2cd6bada00.png)
Pusteni obojiho separatne bezi velmi rychle (dal jsem scrapovani pouze z lokalnich .NFO pro urychleni), ale jak se jedna vec potka s druhou, tak jakoby si to vzajemne davalo prednost kdo driv muze....
**OT:** Btw. jsem si pri tom vsiml bugu, co se projevuje na Widlich:
https://bugs.python.org/issue706263
```
from __future__ import print_function
import sys
if sys.executable.endswith("pythonw.exe"):
    sys.stdout = sys.stdout = None
print("can handle sys.stdout = None just fine.")
```
Tento kod opravdu funguje...kdyztak vytvorim pull bokem, pokud nebude nekdo rychlejsi nebo @lubomir-kucera ci @lzoubek nevyjadri nazor, ze to stejne nemergne a at se radsi nahradi printy loggerem...


missing Q 8354 - Npc 6741 ))


``get_name_map()`` was literally only calling ``_get_name_map()``, yeah. I don't know why it was done either, it was changed in 020b20e initially.


but we can remove it from all Plone 5 configurations, right?


update


I updated hvac.rb for new MSHP measure, so we'll have to update that resource file as well to be able to run this measure.


Está ben:
 - aprendestes a usar templates
 - aprendestes a usar tags
Podes mellorar:
 - evitar mezclar lenguajes: evita os tags, é código HTML dentro dunha clase Java, intenta facelo todo con templates.


No, it's just a copy-and-paste error.


No problem man! :-)
Le 21 sept. 2016 5:14 PM, "Deepu K Sasidharan" <notifications@github.com> a
écrit :

> sorry guys im pushing a fix now
>
> —
> You are receiving this because you commented.
> Reply to this email directly, view it on GitHub
> <https://github.com/jhipster/generator-jhipster/commit/7c72054d786ae2c91823769a31d4e7774bbc9ab3#commitcomment-19115370>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AIu5Ejbzs7pdXI0c0DS5PXxSYMyYPLloks5qsUnVgaJpZM4KC4mp>
> .
>


TeamCity OTA+ :: rvi_sota_server :: ci [Build 1087](http://teamcity.prod01.internal.advancedtelematic.com:8111/viewLog.html?buildId=13801&buildTypeId=ota_plus_RviSotaServer_Ci) outcome was **FAILURE**
Summary: Tests failed: 1 (1 new), passed: 227, ignored: 3 Build time: 00:08:42
### Failed tests
```
org.genivi.sota.device_registry.DeviceResourceSpec.GET request with ?regex yields devices which match the regex.: <no details avaliable>

```


BTW: I've meanwhile changed the implementation to fetch 20, if GC is active, and 100 if not. Should be a good compromise for both use cases then.


question - does defining functions inside functions here carry with it a performance penalty? e.g., having to create a new function object?

Or is this one of those "it might do that but we don't particularly care" cases. I don't mind either way, just wanted to know what the prevailing policy was on this.


I agree, I think this catches the prime meridian as well.  Then I think the bounding box searching below would be messed up.


@panzergame: Now it works fine :) I have excellent performance results (even a bit better than in my branch I think) in the files I tested. We absolutely need this in 0.1.0!


build the initial homepage


@lots0logs Shouldn't it be

```sh
		cp -t "${_DIR}" \
			"${GTKVER}/dist/gtk.css" \
			"${GTKVER}/dist/gtk-dark.css" \
			"${GTKVER}/gtk.gresource" \
			"${GTKVER}/thumbnail.png"
```


``SaltRenderError`` was not removed, it was moved elsewhere. See [here](https://github.com/terminalmage/salt/commit/f237fe4d528efd621e1f9adbeb149695e94e65a1#diff-e8ecdef70c9c678790ca9e0e07c9ab77R102).


BB, Check for nav-brand class , and style it by increasing the font size


@cybrann , man, look what I found https://github.com/SkyMist/Core/blob/b08a2a48b6a78b0869869539f835c93c4ff7f579/src/server/game/Server/Protocol/Opcodes.h


(Y)


Commit f29f65e0f94af54817c737d368a66d6b035859b3 should address this.


@raelgc thanks, good job! :+1:


More like a toggle! @markhamknight  @derick31


https://en.wikipedia.org/wiki/Name_of_Ukraine#.22Ukraine.22_versus_.22the_Ukraine.22

> Since the Declaration of Independence of Ukraine the English-speaking world has changed its usage from "the Ukraine" to "Ukraine". (...) In 1993 the Ukrainian government requested that the article be dropped.
>
> Referring to the country as "the Ukraine" instead of "Ukraine" is considered insulting by some Ukrainians. It now implies disregard for the country's sovereignty (...)

Look mate, keep your politics out of my pull requests!


@jbhuang0604 Your last commit breaks the title ### hierarchy see the "#### Feature Detection and Extraction" that appears on the Github parsing of the md file.

I think that adding an additional newline before the ## will make the thing work as before


If you enable redis and/or rabbit for that import you should define dedicated config (in `app/config/config.yml`).


I think that was fine. JUnit already creates a new instance of the test class for every test to start in a clean state. That's how for example the "expectedException" gets reset to ExpectedException.none() at the start of the test.


@markhamknight @derick31 this is like the psuedo id of the code as mentioned [here](https://github.com/dinosaurfiles/inhumans-ionic-test/commit/d1603d81deea73382e8565ee7b1cb991f346e7f6#commitcomment-19116017)


bootstrap gem　add


I am kinda new interacting much with the git platform , so ....


done


fixed


I'm hopping to catch up with things in no time


I agree. Let me drop this comment.


Si podria ser, seria lo mismo


That is necessary to get the container updated with the new hostname, which otherwise would happen in OSA's run-upgrade.sh script.


check docs https://ionicframework.com/docs/api/directive/ionReorderButton/


cpu_boost takes it like that (cluster), msm_performance is newer on 820 that the 810 version, seems liek it only makes it by cpu.
The string is "0:0 1:0 2:0 3:0", unless I'm missing some patch (which I don't think so), you need to enter it complete by cpu, as per driver instructions


DEPLOY_CEPH, as far as I am aware, is only used to deploy ceph on an AIO.


[apostila, cap14, pg 179]Utilizando AJAX para remoção de comentários: com esta opção um comentário deve ser removido sem sair da página atual, mas isso não está acontecendo. O comentário é removido mas a página é direcionada para os comentários.


Why would it throw "Address family not supported"? I thought the `parse` function would just return "Failed to parse IPv4/v6..." ??


Ah, my bad. If it's not a lot of work, could you do that?


121784677-OAControllerFixes4633 (mjwitte) - x86_64-MacOS-10.9-clang: OK (2335 of 2335 tests passed, 569 test warnings)

 * 569 tests had: AUD diffs.
 * 11 tests had: RDD diffs.
 * 5 tests had: EIO diffs.
 * 3 tests had: Table small diffs.

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


Since we are doing an explicit cast over here, would prefer have an explicit type instead of `auto`.


images


Oh, you're right!


It does.  I've been working on a fix.

-----------------------------------------------------------------------------------------------------
Gail Schmidt
Software Engineer
Stinger Ghaffarian Technologies (SGT)
Contractor to the U.S. Geological Survey (USGS)
Earth Resources Observation and Science (EROS) Center
47914 252nd Street
Sioux Falls, SD 57198
Phone: 605-593-2272
gail.schmidt.ctr@usgs.gov

NOTICE:  This email may contain confidential, proprietary, or competition
sensitive bid or proposal procurement information.  Unauthorized disclosure
of this information may carry criminal penalties as set forth in the
Procurement Integrity Act, 41 U.S.C. 423, as amended.  Further, the
unauthorized disclosure of certain commercial information by civil servants
may result in fines or imprisonment under the Trade Secrets Act (18 U.S.C.
1905).  If you have received this information in error, please delete it,
including all copies, and notify the sender of the error immediately.

On Wed, Sep 21, 2016 at 9:46 AM, Ronald D. Dilley Jr. <
notifications@github.com> wrote:

> I agree, I think this catches the prime meridian as well. Then I think the
> bounding box searching below would be messed up.
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/USGS-EROS/espa-product-formatter/commit/1e42a388105e5ceadce0f09fd1cd737ba3dd56e0#commitcomment-19115919>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AL98_2tGNX9VsmsAr1QKEXCduxG2qGotks5qsVFBgaJpZM4KC5ya>
> .
>