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

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

^~~~~~
```
[R/ABC_SMC.R:180:20:](https://github.com/thijsjanzen/STEPCAM/blob/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/R/ABC_SMC.R#L182) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/ABC_SMC.R:184:29:](https://github.com/thijsjanzen/STEPCAM/blob/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/R/ABC_SMC.R#L205) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[R/ABC_SMC.R:208:19:](https://github.com/thijsjanzen/STEPCAM/blob/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/R/generateArtificialData.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:16:1:](https://github.com/thijsjanzen/STEPCAM/blob/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/R/generateArtificialData.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:20:1:](https://github.com/thijsjanzen/STEPCAM/blob/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/R/generateArtificialData.R#L46) *style:* **Use two spaces to indent, never tabs.**
```r
	      }
^
```
[R/generateArtificialData.R:46:17:](https://github.com/thijsjanzen/STEPCAM/blob/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/R/generateArtificialData.R#L47) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:47:19:](https://github.com/thijsjanzen/STEPCAM/blob/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/R/generateArtificialData.R#L54) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:55:1:](https://github.com/thijsjanzen/STEPCAM/blob/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/R/generateArtificialData.R#L61) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:61:29:](https://github.com/thijsjanzen/STEPCAM/blob/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/R/generateArtificialData.R#L66) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:67:1:](https://github.com/thijsjanzen/STEPCAM/blob/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/R/generateArtificialData.R#L71) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:71:14:](https://github.com/thijsjanzen/STEPCAM/blob/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/R/generateArtificialData.R#L88) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:89:1:](https://github.com/thijsjanzen/STEPCAM/blob/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/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/f5c7ba3a98afbb990859a471c8f77d3ba53b3bde/R/generateArtificialData.R#L91) *style:* **Use two spaces to indent, never tabs.**
```r
	return(output)
^
```


@markhamknight  @derick31 Actually doesn't do anything?


Brate Travis @travisgoodspeed , please make it work, post it on google play and sell it for 10$.. you will get $$$$$$  :)...


@halter73 Thanks for the reply. Slept on it and I think you're right this keep alive for long polling isn't going to work because of the possibility of proxies as you said. There does still need to be some way to stop a client from listening forever to a dead connection. If a timer was started inside of the LongPollingTransport.Poll method as soon as HttpClient.Post was called that after a configured timeout if we still and not gotten to the ContinueWith block would call LostConnection I think that would work. Or maybe it is as simple as setting a request timeout somewhere in the http post call stack, I think I saw somewhere that the timeout is disabled if it is long polling, maybe instead the longpolling http timeout should be configurable.


Paired with @dannykalemba


resolves #3


Shouldn't this line be
```python
w_lemma = self.lemmata_mapping.get(stem, None)
```
Or do I get the meaning of this function wrong? Now you are checking, whether the limma exists. If not, we stem the word, check again whether the word exists (being _false_ in all cases) and return the stem. I'm sitting on these lines for some time now but I don't get it; could you please explain this to me?


Hi Silas. Am I interpreting this correctly:
We attempt to acquire a lock on a key , passing the session and:

If we acquire the lock (e.g. ?acquire=<session> would return `true`) then lock.on(acquire) will fire
If we can NOT acquire the lock (e.g. ?acquire=<session) returns `false`) then lock.on(error) will fire

?


121784677-OAControllerFixes4633 (mjwitte) - x86_64-Linux-Ubuntu-14.04-gcc-4.8-UnitTestsCoverage-Debug: OK (1195 of 1195 tests passed, 0 test warnings)

![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) ![Coverage Badge](http://img.shields.io/badge/coverage%20status-36.13%25-green.svg)


@sdillingham I made some changes and want to see what you think.
https://github.com/SCPR/scpr-style-guide/commit/95053250d505d678b153eadfca6012beaf93cb84

The one thing I didn't fully address is the grid math.  I went in a direction that got tangled, so I put that aside in order to complete the other changes and add documentation.  The style guide documentation includes examples, and I compiled the style guide css files using the standard Sass command line.  I'm not sure if that's how you normally build those files as I don't see a gulpfile that does that.  I'm guessing you do something to turn on the prefixing that I saw.


Script now allows to load a file. Then it checks if the file is the init.json and treats it accordingly. If it's any other kind of file it's treated as text and injected into the tinyG.


Good idea! But you should check BEFORE assigning.


Those aren't sent by the client


why do you assign result to `value`?


#2520943-WindowsCalc-Engine_Integration (vidanovic) - i386-Windows-7-VisualStudio-12: Build Failed

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


maybe s/addr/mask?


if s/addr/mask , here s/mask/_mask


Actually you don't have to keep value anymore. It will be calculated after `operator *` called


This should be `rgba` as well, no?


Of couse not, but are still used.


Also, remove unnecessary infinite loop.


Thanks for the information. For some reason I thought the instance was reused. I thought that `ExpectedException.none()` was reset using the `Rule` API. It appears I was wrong. Thanks again!


Oh yes! good catch, thank you!  Yes, **chompLeft** and **chompRight** should be deprecated to support backward compatibility for at least a few releases then removed at a later date; **chopLeft** and **chopRight** should be added.

Are you interested in doing a pull-request? if not I get to it asap.


ID se postavlja na elemente koji su jedinstveni na stranici i sigurno ce postojati samo jedan jedini. Submit dugme je nesto sto se sigurno ponavlja na stranici. Ali ovo je svakako mala napomena da se koriste klase umesto ID.


In my opinion `prox(f,x,y,gamma)` looks more tidy.


Dobro je napisano.


V 1.0 Changelog:
- increased length of Career Mode tabs to FIFA's full 15 seasons
- added additional rows in player list, allowing for 70 total players
- added instructions to clarify how to use player list - DO NOT REMOVE PLAYERS


It's Working!
so lets do it again but now with my homework


рппук


这里做了修改


tester le chargement du jeu : dataset


Why filename is khar.sh Man?!


In here!!!!


Hm, does the result mean that the correct pinners fix was maybe a regression? What about a sanity check also in this?


`查看或下载示例代码 <https://github.com/aspnet/Docs/tree/master/aspnet/mvc/views/partial/sample>`__


да, наверное стоит сделать MVC версию) Сейчас я готовлюсь к тестированию, хочу попробовать пройти обучение, которая организует у нас одна IT компания совместно с лобачом, на этой неделе закончу с этим и начну думать как реализовать мое приложение в Zend. Как твои дела? Как развивается стартап?


TeamCity OTA+ :: rvi_sota_server :: ci [Build 1088](http://teamcity.prod01.internal.advancedtelematic.com:8111/viewLog.html?buildId=13815&buildTypeId=ota_plus_RviSotaServer_Ci) is now running


TeamCity OTA+ :: rvi_sota_server :: ci [Build 1089](http://teamcity.prod01.internal.advancedtelematic.com:8111/viewLog.html?buildId=13816&buildTypeId=ota_plus_RviSotaServer_Ci) is now running


fivelike do nothing today...


That't what I found too hehe


TeamCity OTA+ :: rvi_sota_server :: ci [Build 1089](http://teamcity.prod01.internal.advancedtelematic.com:8111/viewLog.html?buildId=13816&buildTypeId=ota_plus_RviSotaServer_Ci) outcome was **FAILURE**
Summary: Exit code 1 (new) Build time: 00:01:03


The next step is to load the spinode.fth and sdnode.fth drivers.  I have
been loading them with fload instead of compiling them in.  (Mostly this
is because I am going to be using them as a teaching aid for my OFW
class, and I want to teach the students how to test drivers without
recompiling.)

ok rf spinode.fth
<send via xmodem>
ok rf sdnode.fth
<send via xmodem>

<Thence>
ok fl spinode.fth  fl sdnode.fth
ok .partitions /sd
ok select /sd:\SOMEFILE.EXT
ok pad 200 read  pad swap dump

On 9/21/2016 12:37 AM, James Cameron wrote:
> Woohoo, `sd-init` works.
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/MitchBradley/cforth/commit/a5924cf0aa5c7bc55146f3d9bc26212c3e0a87b5#commitcomment-19111499>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AEoszUMYW4_zGREiamqGSQMh_Fg9wpZ-ks5qsQj4gaJpZM4KCSUu>.
>


Линка не се чупи на Chrome, ама не е нужно да escape-ваш линковете в Markdown


I will add few


Дела огонь, сижу на бичпакетах, денег нет, настроение отличное, всё как Медвед завещал! Стартап так себе, никто, кроме меня и еще одного чувака(который делает UI/UX, маркетинг, SEO и бизнес-стратегию) не работает, потому я решил открыть код фронтенда на github)
https://github.com/hlogeon/venvatst-angular
https://github.com/hlogeon/venvast-admin

Как только полностью опубликуемся, еще и backend выложу :smiling_imp:
Может хоть кому-то будет польза от моих страданий :smile:


@FenrirWillow, от копи-пейст е това, ще го оправя - мерси


Shouldn't be that bad.


Wate


QUI pORRA É ESSA


//Program For evenlySpaced
import java.util.*;
class javaApp{
	public static void main(String ar[]){
	  Scanner sc = new Scanner(System.in);
	  System.out.println("enter three numbers");
	  int a = sc.nextInt();
	  int b = sc.nextInt();
	  int c = sc.nextInt();
	  int d = ((((a>b)?a>c?a:c:b>c?b:c) -((a<b)?a<c?a:c:b<c?b:c))%2 != 0 ? (((a>b)?a>c?a:c:b>c?b:c) - ((a<b)?a<c?a:c:b<c?b:c))/2 + 1 : (((a>b)?a>c?a:c:b>c?b:c) - ((a<b)?a<c?a:c:b<c?b:c))/2) + ((a<b)?a<c?a:c:b<c?b:c);
	   if(d==a|d==b|d==c)
		 System.out.println("true");
	   else
		 System.out.println("false");
   }
}


Build report #161668813 for sha 570a428032ff670679605ad77e6ecde5d1871f99:

[![UnitTests](https://img.shields.io/badge/unittests-passed%20%283/3%29%20-brightgreen.svg)](#)
[![Coverage](https://img.shields.io/badge/coverage-14.06%20%25-yellow.svg)](#)
[![Cppcheck](https://img.shields.io/badge/cppcheck-0%20error%28s%29-brightgreen.svg)](#)
[![Code statistics](https://img.shields.io/badge/cloc-3047%20/%209965%20%2830.58%20%25%29-yellow.svg)](#)
[![Documentation](https://img.shields.io/badge/doc-success-brightgreen.svg)](#)
[![Documentation coverage](https://img.shields.io/badge/doc--coverage-25.38%20%25-yellow.svg)](#)

[Reports](https://psycofdj.github.io/xtdcpp/more_documentation/)


Thanks for fixing the typo with saltenv in doc string

Here are some thoughts around the original code. Being a bit verbose so I know I have not missed anything.

If population of  `__opts__['abc']` will always exist and is check that it is an int, then it makes sense to remove the checking.     If it does do this, it would be nice if population of `__opts__`  also had `file` and `dir` type to check they are valid for the target platform, then more code could be removed.

L425 refresh = Logic Change to just force vs
`(force and (expired_min == 0 or repo_age_sec < expired_min))`
`expired_min` is their because a refresh is a very expensive operation, and some of the code forces a refresh.  `expired_min` this give the user a option to increase performance of their runs by ignoring the force=True. If I had a large number of sls files I would be setting min to 10 minutes, but it needs to default to 0 so it acts like old versions.   Call pkg.refresh_db still allows the refresh to happen for users who choose to use expire_min, while debugging sls files.   With expired_min set running a state twice in a row would be a lot quicker, or someone who ran one state followed by another separate state.

L430 Logic change on debug message which was to indicate an possible issue with the code or use. Change to log  more often but not indicate an issue.  I was trying to not over log, but point out a possible issue at the same time.  Some respects the 60 sec was a bit small, as a typical install would take over a minute.   I don't mind either way.  And also original I was not going to fix state/pkg.py forcing a refresh all the time, as I was trying it as it effects more than one platform. Since I have fixed  state/pkg.py it also reduces the need to point out the issue.

L444 - L448 No return True if the refresh_db worked without errors. Come from a background of believing all functions should return something.   Also makes it easier to write tests.


`SaltRenderError`  Thanks missed the move.


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

org.genivi.sota.device_registry.DeviceResourceSpec.PUT request after POST succeeds with updated device.: <no details avaliable>

org.genivi.sota.device_registry.DeviceResourceSpec.POST request with same deviceName fails with conflict.: <no details avaliable>

org.genivi.sota.device_registry.DeviceResourceSpec.POST request with same deviceId fails with conflict.: <no details avaliable>

org.genivi.sota.device_registry.DeviceResourceSpec.PUT request updates device.: <no details avaliable>

org.genivi.sota.device_registry.DeviceResourceSpec.PUT request with same deviceName fails with conflict.: <no details avaliable>

org.genivi.sota.device_registry.DeviceResourceSpec.PUT request with same deviceId fails with conflict.: <no details avaliable>

org.genivi.sota.core.UpdateRequestResourceSpec.accepts new updates with a Client specific format: <no details avaliable>

org.genivi.sota.core.DeviceResourceSpec.search with status=true returns current status for a device: <no details avaliable>

org.genivi.sota.core.PackagesResourceSpec.returns package blacklist info when searching blacklisted package: <no details avaliable>

org.genivi.sota.core.transfer.DeviceUpdatesSpec.when multiple packages are pending sorted by installPos: <no details avaliable>

##### there are 5 more failed tests, see build details
```


All tests passed, going to merge


За по-напредналите от тях - в терминала: `docker run -it -v <path/to/projects>:/usr/` ubuntu:16.04 /bin/bash` Това ще им spawn-е много бурзо виртуална машина с Ubuntu и mount-нати папки където да работят. Създайте им (или ако нямате време аз ще ви създам) един Docker image с всичките компилатори и прочее за да могат много бързо да започват и да не трябва всеки път да започват от нулата.


So with the following simpler code, it does the right thing:

```
import tensorflow as tf

with tf.device("/cpu:0"):
  params = tf.get_variable("params", [1], tf.float32,
                           initializer=tf.zeros_initializer)
with tf.device("/gpu:0"):
  update_constant = tf.constant(1, shape=[1], dtype=tf.float32,
                                name="update_constant")
  add_op = params.assign_add(update_constant)

init_op = tf.initialize_all_variables()

config=tf.ConfigProto(log_device_placement=True)
with tf.Session(config=config) as sess:
  sess.run(init_op)
  sess.run(add_op)
```

produces:

```
params: /job:localhost/replica:0/task:0/cpu:0
AssignAdd: /job:localhost/replica:0/task:0/cpu:0
params/read: /job:localhost/replica:0/task:0/cpu:0
params/Assign: /job:localhost/replica:0/task:0/cpu:0
init: /job:localhost/replica:0/task:0/cpu:0
update_constant: /job:localhost/replica:0/task:0/gpu:0
params/Initializer/zeros: /job:localhost/replica:0/task:0/cpu:0
```

So maybe there's something special that happens with the distributed impl.


devise 젬 삭제하고 회원가입만 만들었어요


Yes, I stopped after calling the API to create user, that was already a big step forward in my understanding :)

One thing we should do is to reuse the token obtained for a given user.  We don't want to login every time we switch users in the RoleSwitcher. The login should be needed only if we don't have a token for this specific user or if it has expired - something we can see by looking at the decoded token or if we get a 401. So we will need to store the token issued for a specific user across sessions.


Ver 1.0 changelog:
- increased length of Career Mode tabs to FIFA's full 15 seasons
- added additional rows in player list, allowing for 70 total players
- added instructions to clarify how to use player list - DO NOT REMOVE PLAYERS


> @mykmelez Nit: Why don't comment it as 3 * 60 * 60 (seconds)?

Hmm, I suppose that would explain how I calculated the number, but I'm more concerned with explaining what the number represents, so readers can tell at a glance that the timeout is three hours. (If someone then wants to modify it, which will happen less often, the calculation is easy to redo.)


> IMHO annotations are dead

Not quite yet until generics, now you can use them to hint IDE what the return collection type is.

```
@var Foo[]
@var Collection|Foo[]
```


Това е готина идея, за която не се бях сетил.
Ако искаш и имаш време направо пиши и пусни един pull-request. Както виждаш, сме още мнооого в началото 😄 и сме с ограничен ресурс.

**BTW:** за докера ако си наясно ще те разпитам, как да рънваме бързо, лесно и вкусно едни питонски скриптове, дето проверяват домашни, да си лийкват памети в контейнера.


I don't really know what you added...what is this xml file and what is it used for? It looks like something already generated by IDEA. Also I tried to run our applet after you made these changes and this xml file cannot be parsed and the applet wont run. We may have to revert to the version before you submitted this code.


#program for word separator
import java.util.*;

public class Main
{
	public static void main(String[] args)
	{
		System.out.println("Hello World!");
		Scanner sc = new Scanner(System.in);

		String s ;
		System.out.println("enter a name : ");
		StringBuilder sb = new StringBuilder(sc.nextLine());
		System.out.println("enter a seperator : ");
		s=sc.nextLine();
		while(true)
		{
			if(sb.indexOf(s)!=-1)
				sb.delete(sb.indexOf(s) , sb.indexOf(s) + s.length());
			else
				break;

		}
		System.out.println(sb);
		}

}


🎉

much love for spdx


update_standards_gem (asparke2) - x86_64-MacOS-10.10-clang: OK (2384 of 2448 tests passed, 0 test warnings)

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


@mrry tipped me off to `tf.device(` being ignored in the distributed snippet above so maybe he knows why


Was working really good on my side, a bit more explanation will be helpful, I will get this fixed in KA if you want.