[R/ABC_SMC.R:2:1:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L2) *style:* **Variable and function names should be all lowercase.**
```r
getRandomVals <- function(max_val)  {
^~~~~~~~~~~~~
```
[R/ABC_SMC.R:15:1:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L15) *style:* **Variable and function names should be all lowercase.**
```r
getFromPrevious <- function(inds, ws, disps, filts, comps)  {
^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:22:1:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L22) *style:* **Variable and function names should be all lowercase.**
```r
calculateWeight <- function(params, target, sigma,
^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:25:68:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L25) *style:* **Commas should always have a space after.**
```r
  diff <- params[target] - cbind(disp_vals, filt_vals, comp_vals)[,target]
                                                                   ^
```
[R/ABC_SMC.R:26:54:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L26) *style:* **Trailing whitespace is superfluous.**
```r
  vals <- weights * dnorm(diff, mean = 0, sd = sigma)
                                                     ^~
```
[R/ABC_SMC.R:27:12:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L27) *style:* **Put spaces around all infix operators.**
```r
  return( 1/sum(vals) )
          ~^~
```
[R/ABC_SMC.R:31:1:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L31) *style:* **Variable and function names should be all lowercase.**
```r
normalizeWeights <- function(x) {
^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:65:1:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L65) *style:* **Variable and function names should be all lowercase.**
```r
calculateDistance <- function(rich, even, div, opt_diff, obs, sd_vals)  {
^~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:69:40:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L69) *style:* **Put spaces around all infix operators.**
```r
  fit_optima <- (opt_diff / sd_vals[4])^2
                                      ~^~
```
[R/ABC_SMC.R:77:21:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L77) *style:* **Variable and function names should be all lowercase.**
```r
ABC_SMC <- function(numParticles, species_fallout, taxa, esppres, n_traits,
                    ^~~~~~~~~~~~
```
[R/ABC_SMC.R:79:46:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L79) *style:* **Variable and function names should be all lowercase.**
```r
                    abundances, frequencies, stopRate, Ord,
                                             ^~~~~~~~
```
[R/ABC_SMC.R:79:60:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L79) *style:* **Trailing whitespace is superfluous.**
```r
                    abundances, frequencies, stopRate, Ord,
                                                           ^
```
[R/ABC_SMC.R:85:52:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L85) *style:* **Trailing whitespace is superfluous.**
```r
           "one of the community summary statistics
                                                   ^
```
[R/ABC_SMC.R:89:10:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L89) *style:* **Variable and function names should be all lowercase.**
```r
  res <- detMnbsp(Ord, abundances)
         ^~~~~~~~
```
[R/ABC_SMC.R:89:10:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L89) *warning:* **no visible global function definition for ‘detMnbsp’**
```r
  res <- detMnbsp(Ord, abundances)
         ^~~~~~~~
```
[R/ABC_SMC.R:92:18:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L92) *style:* **Variable and function names should be all lowercase.**
```r
  disp_vals <- 1:numParticles
                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:93:18:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L93) *style:* **Variable and function names should be all lowercase.**
```r
  filt_vals <- 1:numParticles
                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:94:18:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L94) *style:* **Variable and function names should be all lowercase.**
```r
  comp_vals <- 1:numParticles
                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:96:13:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L96) *style:* **Variable and function names should be all lowercase.**
```r
  fits <- 1:numParticles
            ^~~~~~~~~~~~
```
[R/ABC_SMC.R:97:17:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L97) *style:* **Variable and function names should be all lowercase.**
```r
  rich_vec <- 1:numParticles
                ^~~~~~~~~~~~
```
[R/ABC_SMC.R:98:16:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L98) *style:* **Variable and function names should be all lowercase.**
```r
  eve_vec <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:99:16:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L99) *style:* **Variable and function names should be all lowercase.**
```r
  div_vec <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:100:16:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L100) *style:* **Variable and function names should be all lowercase.**
```r
  opt_vec <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:106:21:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L106) *style:* **Variable and function names should be all lowercase.**
```r
  weights <- rep(1, numParticles)
                    ^~~~~~~~~~~~
```
[R/ABC_SMC.R:107:26:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L107) *style:* **Variable and function names should be all lowercase.**
```r
  next_weights <- rep(1, numParticles)
                         ^~~~~~~~~~~~
```
[R/ABC_SMC.R:108:16:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L108) *style:* **Variable and function names should be all lowercase.**
```r
  indices <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:120:7:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L120) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(d[numParticles,1] == numParticles) {
      ^
```
[R/ABC_SMC.R:120:10:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L120) *style:* **Variable and function names should be all lowercase.**
```r
    if(d[numParticles,1] == numParticles) {
         ^~~~~~~~~~~~
```
[R/ABC_SMC.R:120:23:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L120) *style:* **Commas should always have a space after.**
```r
    if(d[numParticles,1] == numParticles) {
                      ^
```
[R/ABC_SMC.R:120:29:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L120) *style:* **Variable and function names should be all lowercase.**
```r
    if(d[numParticles,1] == numParticles) {
                            ^~~~~~~~~~~~
```
[R/ABC_SMC.R:142:5:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L142) *style:* **Variable and function names should be all lowercase.**
```r
    numberAccepted <- 0
    ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:143:28:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L143) *style:* **Variable and function names should be all lowercase.**
```r
    if (t != 1) weights <- normalizeWeights(weights)
                           ^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:143:28:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L143) *warning:* **no visible global function definition for ‘normalizeWeights’**
```r
    if (t != 1) weights <- normalizeWeights(weights)
                           ^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:151:12:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L151) *style:* **Variable and function names should be all lowercase.**
```r
    while (numberAccepted <= numParticles) {
           ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:151:30:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L151) *style:* **Variable and function names should be all lowercase.**
```r
    while (numberAccepted <= numParticles) {
                             ^~~~~~~~~~~~
```
[R/ABC_SMC.R:155:19:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L155) *style:* **Variable and function names should be all lowercase.**
```r
        params <- getRandomVals(species_fallout)
                  ^~~~~~~~~~~~~
```
[R/ABC_SMC.R:155:19:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L155) *warning:* **no visible global function definition for ‘getRandomVals’**
```r
        params <- getRandomVals(species_fallout)
                  ^~~~~~~~~~~~~
```
[R/ABC_SMC.R:157:19:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L157) *style:* **Variable and function names should be all lowercase.**
```r
        params <- getFromPrevious(indices, weights,
                  ^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:159:19:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L159) *warning:* **no visible global function definition for ‘perturb’**
```r
        params <- perturb(params, sigma)
                  ^~~~~~~
```
[R/ABC_SMC.R:169:1:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L169) *style:* **Trailing whitespace is superfluous.**
```r

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

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

^~
```
[R/ABC_SMC.R:183:29:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L183) *style:* **Trailing whitespace is superfluous.**
```r
      FRic <- FD_output$FRic
                            ^
```
[R/ABC_SMC.R:185:29:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L185) *style:* **Trailing whitespace is superfluous.**
```r
      FEve <- FD_output$FEve
                            ^
```
[R/ABC_SMC.R:187:29:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L187) *style:* **Trailing whitespace is superfluous.**
```r
      FDiv <- FD_output$FDiv
                            ^
```
[R/ABC_SMC.R:196:69:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L196) *style:* **Trailing whitespace is superfluous.**
```r
      # calculate distance of trait mean between simulated community
                                                                    ^
```
[R/ABC_SMC.R:200:72:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L200) *style:* **Trailing whitespace is superfluous.**
```r
      # (inverse) fit of model: euclidian distance of FD and trait mean
                                                                       ^
```
[R/ABC_SMC.R:202:14:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L202) *style:* **Variable and function names should be all lowercase.**
```r
      fit <- calculateDistance(FRic[[1]], FEve[[1]], FDiv[[1]],
             ^~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:204:1:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L204) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[R/ABC_SMC.R:207:19:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L207) *style:* **Variable and function names should be all lowercase.**
```r
        next_disp[numberAccepted] <- params[1]
                  ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:208:19:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L208) *style:* **Variable and function names should be all lowercase.**
```r
        next_filt[numberAccepted] <- params[2]
                  ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:209:19:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L209) *style:* **Variable and function names should be all lowercase.**
```r
        next_comp[numberAccepted] <- params[3]
                  ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:211:14:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L211) *style:* **Variable and function names should be all lowercase.**
```r
        fits[numberAccepted] <- fit
             ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:212:18:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L212) *style:* **Variable and function names should be all lowercase.**
```r
        rich_vec[numberAccepted] <- FRic[[1]]
                 ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:213:17:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L213) *style:* **Variable and function names should be all lowercase.**
```r
        eve_vec[numberAccepted] <- FEve[[1]]
                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:214:17:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L214) *style:* **Variable and function names should be all lowercase.**
```r
        div_vec[numberAccepted] <- FDiv[[1]]
                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:215:17:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L215) *style:* **Variable and function names should be all lowercase.**
```r
        opt_vec[numberAccepted] <- mean_optimum
                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:218:24:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L218) *style:* **Variable and function names should be all lowercase.**
```r
          next_weights[numberAccepted] <- 1
                       ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:220:24:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L220) *style:* **Variable and function names should be all lowercase.**
```r
          next_weights[numberAccepted] <-
                       ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:221:13:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L221) *style:* **Variable and function names should be all lowercase.**
```r
            calculateWeight(params, changed, sigma, disp_vals, filt_vals,
            ^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:224:9:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L224) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted <- numberAccepted + 1
        ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:224:27:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L224) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted <- numberAccepted + 1
                          ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:225:13:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L225) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
            ^
```
[R/ABC_SMC.R:225:14:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L225) *style:* **Variable and function names should be all lowercase.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
             ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:225:34:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L225) *style:* **Variable and function names should be all lowercase.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
                                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:232:21:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L232) *style:* **Put spaces around all infix operators.**
```r
      if (tried > (1/stopRate) && tried > 50)  {
                   ~^~
```
[R/ABC_SMC.R:232:22:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L232) *style:* **Variable and function names should be all lowercase.**
```r
      if (tried > (1/stopRate) && tried > 50)  {
                     ^~~~~~~~
```
[R/ABC_SMC.R:234:13:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L234) *style:* **Variable and function names should be all lowercase.**
```r
        if (numberAccepted / tried < stopRate) {
            ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:234:38:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L234) *style:* **Variable and function names should be all lowercase.**
```r
        if (numberAccepted / tried < stopRate) {
                                     ^~~~~~~~
```
[R/ABC_SMC.R:254:54:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L254) *style:* **Put spaces around all infix operators.**
```r
    file_name <- paste("particles_t=", t, ".txt", sep="", collapse = NULL)
                                                    ~^~
```
[R/ABC_SMC.R:257:64:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L257) *style:* **Trailing whitespace is superfluous.**
```r
    cat(" ", mean(disp_vals), mean(filt_vals), mean(comp_vals),
                                                               ^
```
[R/ABC_SMC.R:258:33:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L258) *style:* **Variable and function names should be all lowercase.**
```r
        "\t", "accept rate = ", numberAccepted / (tried-1), "\n")
                                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:258:56:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L258) *style:* **Put spaces around all infix operators.**
```r
        "\t", "accept rate = ", numberAccepted / (tried-1), "\n")
                                                      ~^~
```
[R/ABC_SMC.R:261:27:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L261) *style:* **Commas should always have a space after.**
```r
    next_weights <- rep(1,numParticles)
                          ^
```
[R/ABC_SMC.R:261:27:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L261) *style:* **Variable and function names should be all lowercase.**
```r
    next_weights <- rep(1,numParticles)
                          ^~~~~~~~~~~~
```
[R/ABC_SMC.R:262:20:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L262) *style:* **Variable and function names should be all lowercase.**
```r
    next_disp <- 1:numParticles
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:263:20:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L263) *style:* **Variable and function names should be all lowercase.**
```r
    next_filt <- 1:numParticles
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:264:20:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L264) *style:* **Variable and function names should be all lowercase.**
```r
    next_comp <- 1:numParticles
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:274:61:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L274) *style:* **Put spaces around all infix operators.**
```r
    d <- read.table(paste("particles_t=", t - 1, ".txt", sep="",
                                                           ~^~
```
[R/ABC_SMC.R:278:40:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L278) *style:* **Trailing whitespace is superfluous.**
```r
           "Can't stop at iteration 1 -
                                       ^
```
[R/ABC_SMC.R:279:57:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/R/ABC_SMC.R#L279) *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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/R/generateArtificialData.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:16:1:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/R/generateArtificialData.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:20:1:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/R/generateArtificialData.R#L46) *style:* **Use two spaces to indent, never tabs.**
```r
	      }
^
```
[R/generateArtificialData.R:46:17:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/R/generateArtificialData.R#L47) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:47:19:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/R/generateArtificialData.R#L54) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:55:1:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/R/generateArtificialData.R#L61) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:61:29:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/R/generateArtificialData.R#L66) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:67:1:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/R/generateArtificialData.R#L71) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:71:14:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/R/generateArtificialData.R#L88) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:89:1:](https://github.com/thijsjanzen/STEPCAM/blob/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/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/d83b7c9a2749146f85df41774b037105f510ae7d/R/generateArtificialData.R#L91) *style:* **Use two spaces to indent, never tabs.**
```r
	return(output)
^
```


oh, thanks. I'll get an osx binary up soon.


Not sure about the article before the "data" word. @iaguis?
Also, split this into two sentences, just like above.
"The? data may contain many samples (in the example there is only one sample)."


This should be outside of the `if`.


this is my third article


这里最好还是有个超时时间，时间到了还是没有值过来，就返回个error


Makes sense to me - want the commit notch on your belt?


Slice to SVG, should be in the manual.

Also please do not use the comment on commits to ask questions like this.


If connections are too short, for some reason that I do not fully understand, the process detail panel does not show up, therefore, the HTTP-request graph is not displayed.


Sounds good to me!

Okay, give me some time to work this out. I'll provide a PR when I've done the refactoring, okay?


Fixed :+1:


>  as basename() potentially changes the array

That depends on the `basename()` implementation you use. The GNU version doesn't.

> which in your example needs to be allocated by the caller

No, I just took your example, incl. `new char[]`.

>  when there is an implementation using only std::string

I still find it much more complex and thus error prone compared to just:
```
fname.assign(basename(fpath.c_str()));
```


这500ms做什么用的？


Sure!


重复代码


Alright, changed to
> [...] In order to be able to re-send messages, clients SHALL cache a reasonable amount of client-to-client messages for each other client. [...]

in 8ece624


Sizing-Simple-Chilled-Ceiling (RKStrand) - x86_64-Linux-Ubuntu-14.04-gcc-4.8-IntegrationCoverage-Debug: OK (1767 of 1767 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-71.13%25-green.svg)


s/is made/is generated/
s/the process PID/the PID/ (PID = Process Identifier :P)
s/with a `;` as delimiter/with `;` as delimiter/


finish #31


shouldn't `recursion_limit=None if recursion_limit is None else max(recursion_limit - 1, 0)` (borrowed from save, so we need a little helper to reuse):
```python
def decrement_count(x):
    return x if not x else max(x-1, 0)
```
or smth like that


Each element contains the metrics data provided by the HTTP requests plugin (just one metric in the example). The data may contain many samples (just one in the example).


改下名字  `lastImage`


要是没有历史图片，就截一张图传过去


[Code coverage](https://149-47334959-gh.circle-artifacts.com/0//home/ubuntu/parse-js/coverage/lcov-report/index.html) is currently at **100%**


这个文件的重复代码太多


and I know that some folks just want to kick PR out, but could there be at least one test for this somewhat important usecase?  we (well, the poor tester of yours) keep running into issues which aren't solidified in tests


[Code coverage](https://150-47334959-gh.circle-artifacts.com/0//home/ubuntu/parse-js/coverage/lcov-report/index.html) is currently at **100%**


It should be possible to achieve the same result without adding more code into Scope, by reusing existing images:
```
sudo docker run -p 8080:80 httpd
```
```
sudo docker ps
export IP=$(sudo docker inspect -f '{{ json .NetworkSettings.Gateway }}' ccc7e3cda719)
sudo docker run -ti alpine wget http://$IP:8080
```


"You don't have to worry where your god is, he's right here, and he's fresh out of mercy"


There are loads of ways tbh. All of them are OOP though.


这句话只能当调试的时候用，正式发布的时候不能出现任何额外的输出


ps是什么意思？


actually looking at commits I see now `test_get_mixed_hierarchy` ... I guess it tests it... sorry for bitching and THANKS! ;)


Ok. Yeah - exactly what I tried too ;)


Ok - Thank you!
FYI: Mine passes all the tests - in case you are interested ;)


This was already introduced in release 3.3.


Here is the Plone Deprecation Guide:
http://docs.plone.org/develop/styleguide/deprecation.html
Note that it says that in the `instance/zeoclient` section of your buildout, you need to add `deprecation-warnings = on`, otherwise you don't see any warnings.

Also, note that `zope.deprecation` can still be very useful. It keeps the old location working. The core `warnings` module is most useful for some easy cases.

Note that with your change in `layout.py` it looks like everyone who imports `layout` gets this warning, which then makes it seem like the whole `layout` module is deprecated. It *should* preferably be the case that you only get a warning when you actually use the old `BaseGrid` class.


程序退出之后 channel顺手关掉吧，另外 这个apk自己故障的时候，也需要考虑下怎么处理


终于看完了


Hi,

Best place for questions is the ChibiOS forum. Anyway, about your question, lwIP has been patched because:

1) A small bug (assumption that context switch happens after leaving a critical zone, ChibiOS switches immediately, other OSes do that to, that behavior is FreeRTOS-specific I believe).
2) A semaphore function is called from within a critical zone, ChibiOS requires to call a specific function variant with S suffix.

If you search "CHIBIOS FIX" in the code you will find all changes (not much really).

Giovanni


Shouldn't this include '/msg' and '/w' and '/reply' as well?


There is one other procedural way to do it that I can think of that might be preferable if you'd prefer that. I can PR that much later tonight if you want. I'm away from my desk for a while.


That last part is not true, vsearch does not replace the CIGAR string with a "=" when the two sequences are identical. Usearch does (v7 and v8).


test


This one was weird. In Python 3.4, using HTMLParser, if the "close()" command is missing, then strings that don't contain any HTML were coming back empty. The clients I regularly use post messages with HTML tags, and I only found this bug when screwing around with PyPump. Even then, my two boxes performed differently. The most notable difference is Python 3.4, where I was seeing the weird behavior, and Python 3.5, where I wasn't. Well, that was somewhat bizarre. :-)


firefox 49.0 say :
SyntaxError: expected expression, got '*' main.js:1139:30
so no playerdata/map. white screen.


Wat? In een keer naar master? Da's evil!!


Oh, hatte ich wohl vergessen...
Hab mich dann doch entschieden, beim Lazy-Loading den Namen der Klasse mit anzugeben, damit wir das `default` bei den Mini-Monkeys nicht eintragen müssen.


Galactic Civil War*******


TaskCluster-GitHub: https://tools.taskcluster.net/task-graph-inspector/#MzsgWOG_Sk-TbQ4Gj5smPw


survices bla bla


Hi,

Any specific reason why this task was removed?


Et  `numerics/src/NCP/#NCP_PathSearch.c#`, ça devrait être supprimé ou renommé?


Does the comment still apply?


@eldy
I'm very pissed off by this commit.
I had to track it down to understand why my situation invoices were not working the way they're supposed to.
Your solution of removing the code altogether is reckless and rude. (Lines 961-993 and 1427-1428)
I'm trying very hard to not be an asshole anymore (I know I've been a jerk at times and I apologize for my behavior) but you're making it very difficult.
You could at least ask for some insights from the original developer.
I can understand that my code is not good enough and causing issues.
I can even fix it if you open an issue and ping me.
It's not like if I'm not part of the community!
You make us all look bad with irresponsible moves like these.


[R/irlba.R:300:1:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/R/irlba.R#L300) *style:* **lines should not be more than 130 characters.**
```r
      if (verbose) message("Initializing starting vector v with samples from standard normal distribution.\nUse `set.seed` first for reproducibility.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/irlba.R:342:9:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/R/irlba.R#L342) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(tol * ans$d[1] < eps) warning("convergence criterion below machine epsilon")
        ^
```
[R/irlba.R:635:5:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/R/irlba.R#L635) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(tol * d[1] < eps) warning("convergence criterion below machine epsilon")
    ^
```
[tests/edge.R:30:19:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L30) *style:* **Place a space before left parenthesis, except in a function call.**
```r
for (tol in 10 ^ -(7:12))
                  ^
```
[tests/edge.R:60:22:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                     ^
```
[tests/edge.R:60:24:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                       ^
```
[tests/edge.R:60:26:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                         ^
```
[tests/edge.R:60:28:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                           ^
```
[tests/edge.R:60:30:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                             ^
```
[tests/edge.R:60:32:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                               ^
```
[tests/edge.R:60:34:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                                 ^
```
[tests/edge.R:60:36:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                                   ^
```
[tests/edge.R:62:22:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                     ^
```
[tests/edge.R:62:24:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                       ^
```
[tests/edge.R:62:26:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                         ^
```
[tests/edge.R:62:28:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                           ^
```
[tests/edge.R:62:30:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                             ^
```
[tests/edge.R:62:32:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                               ^
```
[tests/edge.R:62:34:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                                 ^
```
[tests/edge.R:62:36:](https://github.com/bwlewis/irlba/blob/09a5d4c4c63360a03445f94a49ec0bc7d5322ac6/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                                   ^
```


毕竟codeskyblue，我明天逐一改


Jupp. I hope @leonfish77101  can shed light into that soon.


It would be nice to add a comment documenting this property here (because the name is still not als clear as eg settable_per_extruder is)


Thank you, but I think I have already merged this branch and you need to create another pull request


@ruslo  I don't understand why this change is needed. Can you please explain why you change the version definition and cmake-config files for the use in hunter?


Mmm, looking into the source of maptips because I have some troubles on Windows with it.

But: so if I want to use expressions, I use.. displayExpression... huh oh no: mapTipTemplate :-)

what about mapTipTemplate (or mapTipExpression) and maptipField (just because we can as long as there is not a QGIS3)...


I have no idea where to add this info. My first idea is to add this information to the device list in the first part of the page and use links to point reader directly to the specific tool. Something like:

You can use MicroPython on various boards such as:
* BBC micro:bit (**Mu IDE**, **uFlash**) ([webpage](https://www.microbit.co.uk/))
* Boards with the ESP8266 chip (**esptool**) ([various boards wiki](http://www.esp8266.com/wiki/doku.php?id=esp8266-module-family))

But use a [link]() instead of **bold** text. If somebody has a better idea, we can discuss it tomorrow.


This is in my case. Entire name had been replaced by alias.

<img width="1280" alt="screen shot 2016-09-21 at 16 39 18" src="https://cloud.githubusercontent.com/assets/4932851/18713173/04bfc1a2-801a-11e6-907a-ac985b11ddd8.png">


[R/irlba.R:300:1:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/R/irlba.R#L300) *style:* **lines should not be more than 130 characters.**
```r
      if (verbose) message("Initializing starting vector v with samples from standard normal distribution.\nUse `set.seed` first for reproducibility.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/irlba.R:342:9:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/R/irlba.R#L342) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(tol * ans$d[1] < eps) warning("convergence criterion below machine epsilon")
        ^
```
[R/irlba.R:635:5:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/R/irlba.R#L635) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(tol * d[1] < eps) warning("convergence criterion below machine epsilon")
    ^
```
[tests/edge.R:30:19:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L30) *style:* **Place a space before left parenthesis, except in a function call.**
```r
for (tol in 10 ^ -(7:12))
                  ^
```
[tests/edge.R:60:22:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                     ^
```
[tests/edge.R:60:24:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                       ^
```
[tests/edge.R:60:26:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                         ^
```
[tests/edge.R:60:28:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                           ^
```
[tests/edge.R:60:30:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                             ^
```
[tests/edge.R:60:32:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                               ^
```
[tests/edge.R:60:34:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                                 ^
```
[tests/edge.R:60:36:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                                   ^
```
[tests/edge.R:62:22:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                     ^
```
[tests/edge.R:62:24:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                       ^
```
[tests/edge.R:62:26:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                         ^
```
[tests/edge.R:62:28:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                           ^
```
[tests/edge.R:62:30:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                             ^
```
[tests/edge.R:62:32:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                               ^
```
[tests/edge.R:62:34:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                                 ^
```
[tests/edge.R:62:36:](https://github.com/bwlewis/irlba/blob/0e4d31ab9a1e1b26411f7c20220de927f0870511/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                                   ^
```


Hi,

The current rescheduling mechanism has one problem. As soon as the Battery-Level reaches the Eco Level, the driver sets the Core Limit as specified in Eco Mode. This is fine. However, if one starts charging the phone, the Battery-Level increases again passing the Eco Level. So, the driver should automatically set the No. of Cores to Default Max. CPUs but this doesn't happen. The number of cores still remain equal to Eco_Mode even though the Battery-Level is above the Eco_Level (as re-scheduling only occurs at the defined percentage, not above it).

However, this fixes the issue---
/* Correct Rescheduling Mechanism. */
 	if (info.batt_level == helper.batt_level_cri || info.batt_level == helper.batt_level_eco
         || info.batt_level == helper.batt_level_cri + 1 || info.batt_level == helper.batt_level_eco + 1)
                   reschedule_helper();

:) :)


可以的呀，我试了普通账号，你看的是那个页面？


Step 5 also done.


As someone diving fresh into CuraEngine code, do we need to worry about these "magic numbers"?


Overall tests are ok but:
1. Variable names should not be c1,c2 etc. - all names should be self explanatory. Always.
2. If you do an Assert -> you should always specify Exception message that will be displayed if assert is failed. otherwize it's hard to analyze your test results, especially if you are not the one who does it.


[R/irlba.R:300:1:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/R/irlba.R#L300) *style:* **lines should not be more than 130 characters.**
```r
      if (verbose) message("Initializing starting vector v with samples from standard normal distribution.\nUse `set.seed` first for reproducibility.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/irlba.R:342:9:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/R/irlba.R#L342) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(tol * ans$d[1] < eps) warning("convergence criterion below machine epsilon")
        ^
```
[R/irlba.R:635:5:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/R/irlba.R#L635) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(tol * d[1] < eps) warning("convergence criterion below machine epsilon")
    ^
```
[tests/edge.R:30:19:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L30) *style:* **Place a space before left parenthesis, except in a function call.**
```r
for (tol in 10 ^ -(7:12))
                  ^
```
[tests/edge.R:60:22:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                     ^
```
[tests/edge.R:60:24:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                       ^
```
[tests/edge.R:60:26:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                         ^
```
[tests/edge.R:60:28:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                           ^
```
[tests/edge.R:60:30:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                             ^
```
[tests/edge.R:60:32:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                               ^
```
[tests/edge.R:60:34:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                                 ^
```
[tests/edge.R:60:36:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                                   ^
```
[tests/edge.R:62:22:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                     ^
```
[tests/edge.R:62:24:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                       ^
```
[tests/edge.R:62:26:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                         ^
```
[tests/edge.R:62:28:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                           ^
```
[tests/edge.R:62:30:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                             ^
```
[tests/edge.R:62:32:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                               ^
```
[tests/edge.R:62:34:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                                 ^
```
[tests/edge.R:62:36:](https://github.com/bwlewis/irlba/blob/ceb2326629556eeee6430cd3aff91e371b9bb15b/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                                   ^
```


Why not keep the git commit history if you're migrating from gitlab.com?


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


I run into this error too


Re decrementing `recursion_limit`: `installed_items` are not necessarily at the same level. So - no, that's not hte solution. But I should reconsider this line indeed. Give me second.


azazeaze


azeaez


TaskCluster-GitHub: https://tools.taskcluster.net/task-graph-inspector/#Z03eFeo_QgafdjRayJJtjw


I fancy this attempt...
Of course, when `whiteMaterial == blackMaterial` and `whiteMaterial == BishopValueMg`, then `blackMaterial == BishopValueMg` is always `true` :-)


Salut


wenn du Wildfly verwendest brauchst du es nicht


It can't be. Certain events might differ in what results are offered.


TeamCity libpalaso :: palaso-trusty64-lfmerge Continuous [Build 2.6.73.f57af3253d667002ba50f1dddf5f79b6c775177e](http://build.palaso.org/viewLog.html?buildId=77000&buildTypeId=PalasoPrecise64lfmergeContinuous) outcome was **FAILURE**
Summary: Tests failed: 4 (4 new), passed: 3466, ignored: 107 Build time: 00:05:33
### Failed tests
```
SIL.Core.Tests.dll: SIL.Tests.IO.FileLock.SimpleFileLockTests.ReleaseLock_LockedByActiveProcess_LockFileExists: <no details avaliable>

SIL.Core.Tests.dll: SIL.Tests.IO.FileLock.SimpleFileLockTests.TryAcquireLock_LockedByActiveProcess_ReturnsFalse: <no details avaliable>

SIL.Core.Tests.dll: SIL.Tests.IO.FileLock.SimpleFileLockTests.TryAcquireLock_LockedByActiveProcessNotTimedOut_ReturnsFalse: <no details avaliable>

SIL.Core.Tests.dll: SIL.Tests.IO.FileLock.SimpleFileLockTests.TryAcquireLock_LockedByActiveProcessTimedOut_ReturnsTrue: <no details avaliable>

```


Sorry about that @afred I removed this directory trying to see if it would fix the Travis failures and didn't notice you had done work to it so I put your changes back with this commit.


[R/irlba.R:300:1:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/R/irlba.R#L300) *style:* **lines should not be more than 130 characters.**
```r
      if (verbose) message("Initializing starting vector v with samples from standard normal distribution.\nUse `set.seed` first for reproducibility.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/irlba.R:342:9:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/R/irlba.R#L342) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(tol * ans$d[1] < eps) warning("convergence criterion below machine epsilon")
        ^
```
[R/irlba.R:635:5:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/R/irlba.R#L635) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(tol * d[1] < eps) warning("convergence criterion below machine epsilon")
    ^
```
[tests/edge.R:30:19:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L30) *style:* **Place a space before left parenthesis, except in a function call.**
```r
for (tol in 10 ^ -(7:12))
                  ^
```
[tests/edge.R:60:22:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                     ^
```
[tests/edge.R:60:24:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                       ^
```
[tests/edge.R:60:26:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                         ^
```
[tests/edge.R:60:28:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                           ^
```
[tests/edge.R:60:30:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                             ^
```
[tests/edge.R:60:32:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                               ^
```
[tests/edge.R:60:34:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                                 ^
```
[tests/edge.R:60:36:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L60) *style:* **Commas should always have a space after.**
```r
s1 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4)
                                   ^
```
[tests/edge.R:62:22:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                     ^
```
[tests/edge.R:62:24:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                       ^
```
[tests/edge.R:62:26:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                         ^
```
[tests/edge.R:62:28:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                           ^
```
[tests/edge.R:62:30:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                             ^
```
[tests/edge.R:62:32:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                               ^
```
[tests/edge.R:62:34:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                                 ^
```
[tests/edge.R:62:36:](https://github.com/bwlewis/irlba/blob/ade71145c6078bac0ee00de05b584afca0c7a385/tests/edge.R#L62) *style:* **Commas should always have a space after.**
```r
s2 <- irlba(diag(c(1,2,3,4,5,0,0,0,0)), 4, fastpath=FALSE)
                                   ^
```


TeamCity libpalaso :: palaso-win32-master Continuous [Build 3.0.775.f57af3253d667002ba50f1dddf5f79b6c775177e](http://build.palaso.org/viewLog.html?buildId=77001&buildTypeId=bt223) outcome was **SUCCESS**
Summary: Tests passed: 3490, ignored: 126 Build time: 00:05:45


... and this is regression too


<!DOCTYPE html>

<title>九宫格布局</title>
<meta name="viewport" content="width=device-width initial-scale=1" />