[R/ABC_SMC.R:2:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/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/be4a45a496048d216670492c58e3829f8cd5b1a0/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/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L22) *style:* **Variable and function names should be all lowercase.**
```r
calculateWeight <- function(params, target, sigma,
^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:29:5:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L29) *style:* **Variable and function names should be all lowercase.**
```r
    prevP <- c(disp_vals[i], filt_vals[i], comp_vals[i])
    ^~~~~
```
[R/ABC_SMC.R:30:30:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L30) *style:* **Variable and function names should be all lowercase.**
```r
    diff <- params[target] - prevP[target]
                             ^~~~~
```
[R/ABC_SMC.R:37:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L37) *style:* **Variable and function names should be all lowercase.**
```r
normalizeWeights <- function(x) {
^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:71:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L71) *style:* **Variable and function names should be all lowercase.**
```r
calculateDistance <- function(rich, even, div, opt_diff, obs, sd_vals)  {
^~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:75:40:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L75) *style:* **Put spaces around all infix operators.**
```r
  fit_optima <- (opt_diff / sd_vals[4])^2;
                                      ~^~
```
[R/ABC_SMC.R:83:21:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L83) *style:* **Variable and function names should be all lowercase.**
```r
ABC_SMC <- function(numParticles, species_fallout, taxa, esppres, n_traits,
                    ^~~~~~~~~~~~
```
[R/ABC_SMC.R:85:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L85) *style:* **lines should not be more than 80 characters.**
```r
                    abundances, frequencies, stopRate, Ord, continue_from_file = TRUE,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:85:46:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L85) *style:* **Variable and function names should be all lowercase.**
```r
                    abundances, frequencies, stopRate, Ord, continue_from_file = TRUE,
                                             ^~~~~~~~
```
[R/ABC_SMC.R:90:3:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L90) *style:* **Variable and function names should be all lowercase.**
```r
  dispVals <- 1:numParticles
  ^~~~~~~~
```
[R/ABC_SMC.R:90:17:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L90) *style:* **Variable and function names should be all lowercase.**
```r
  dispVals <- 1:numParticles
                ^~~~~~~~~~~~
```
[R/ABC_SMC.R:91:3:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L91) *style:* **Variable and function names should be all lowercase.**
```r
  filtVals <- 1:numParticles
  ^~~~~~~~
```
[R/ABC_SMC.R:91:17:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L91) *style:* **Variable and function names should be all lowercase.**
```r
  filtVals <- 1:numParticles
                ^~~~~~~~~~~~
```
[R/ABC_SMC.R:92:3:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L92) *style:* **Variable and function names should be all lowercase.**
```r
  compVals <- 1:numParticles
  ^~~~~~~~
```
[R/ABC_SMC.R:92:17:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L92) *style:* **Variable and function names should be all lowercase.**
```r
  compVals <- 1:numParticles
                ^~~~~~~~~~~~
```
[R/ABC_SMC.R:94:13:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L94) *style:* **Variable and function names should be all lowercase.**
```r
  fits <- 1:numParticles
            ^~~~~~~~~~~~
```
[R/ABC_SMC.R:95:3:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L95) *style:* **Variable and function names should be all lowercase.**
```r
  RichVec <- 1:numParticles
  ^~~~~~~
```
[R/ABC_SMC.R:95:16:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L95) *style:* **Variable and function names should be all lowercase.**
```r
  RichVec <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:96:3:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L96) *style:* **Variable and function names should be all lowercase.**
```r
  EveVec <- 1:numParticles
  ^~~~~~
```
[R/ABC_SMC.R:96:15:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L96) *style:* **Variable and function names should be all lowercase.**
```r
  EveVec <- 1:numParticles
              ^~~~~~~~~~~~
```
[R/ABC_SMC.R:97:3:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L97) *style:* **Variable and function names should be all lowercase.**
```r
  DivVec <- 1:numParticles
  ^~~~~~
```
[R/ABC_SMC.R:97:15:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L97) *style:* **Variable and function names should be all lowercase.**
```r
  DivVec <- 1:numParticles
              ^~~~~~~~~~~~
```
[R/ABC_SMC.R:98:3:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L98) *style:* **Variable and function names should be all lowercase.**
```r
  OptVec <- 1:numParticles
  ^~~~~~
```
[R/ABC_SMC.R:98:15:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L98) *style:* **Variable and function names should be all lowercase.**
```r
  OptVec <- 1:numParticles
              ^~~~~~~~~~~~
```
[R/ABC_SMC.R:100:3:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L100) *style:* **Variable and function names should be all lowercase.**
```r
  nextDisp <- dispVals
  ^~~~~~~~
```
[R/ABC_SMC.R:100:15:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L100) *style:* **Variable and function names should be all lowercase.**
```r
  nextDisp <- dispVals
              ^~~~~~~~
```
[R/ABC_SMC.R:101:3:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L101) *style:* **Variable and function names should be all lowercase.**
```r
  nextFilt <- filtVals
  ^~~~~~~~
```
[R/ABC_SMC.R:101:15:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L101) *style:* **Variable and function names should be all lowercase.**
```r
  nextFilt <- filtVals
              ^~~~~~~~
```
[R/ABC_SMC.R:102:3:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L102) *style:* **Variable and function names should be all lowercase.**
```r
  nextComp <- compVals
  ^~~~~~~~
```
[R/ABC_SMC.R:102:15:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L102) *style:* **Variable and function names should be all lowercase.**
```r
  nextComp <- compVals
              ^~~~~~~~
```
[R/ABC_SMC.R:104:21:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L104) *style:* **Variable and function names should be all lowercase.**
```r
  weights <- rep(1, numParticles)
                    ^~~~~~~~~~~~
```
[R/ABC_SMC.R:105:3:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L105) *style:* **Variable and function names should be all lowercase.**
```r
  nextWeights <- rep(1, numParticles)
  ^~~~~~~~~~~
```
[R/ABC_SMC.R:105:25:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L105) *style:* **Variable and function names should be all lowercase.**
```r
  nextWeights <- rep(1, numParticles)
                        ^~~~~~~~~~~~
```
[R/ABC_SMC.R:106:16:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L106) *style:* **Variable and function names should be all lowercase.**
```r
  indices <- 1:numParticles
               ^~~~~~~~~~~~
```
[R/ABC_SMC.R:113:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L113) *style:* **lines should not be more than 80 characters.**
```r
    cat("Found previous output, continuing from that output\n"); flush.console();
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:118:5:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L118) *style:* **Variable and function names should be all lowercase.**
```r
    dispVals <- d[, 1]
    ^~~~~~~~
```
[R/ABC_SMC.R:119:5:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L119) *style:* **Variable and function names should be all lowercase.**
```r
    filtVals <- d[, 2]
    ^~~~~~~~
```
[R/ABC_SMC.R:120:5:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L120) *style:* **Variable and function names should be all lowercase.**
```r
    compVals <- d[, 3]
    ^~~~~~~~
```
[R/ABC_SMC.R:125:11:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L125) *style:* **Variable and function names should be all lowercase.**
```r
    if (d[numParticles, 1] == numParticles) {
          ^~~~~~~~~~~~
```
[R/ABC_SMC.R:125:31:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L125) *style:* **Variable and function names should be all lowercase.**
```r
    if (d[numParticles, 1] == numParticles) {
                              ^~~~~~~~~~~~
```
[R/ABC_SMC.R:143:5:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L143) *style:* **Variable and function names should be all lowercase.**
```r
    numberAccepted <- 0
    ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:144:28:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L144) *style:* **Variable and function names should be all lowercase.**
```r
    if (t != 1) weights <- normalizeWeights(weights)
                           ^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:144:28:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L144) *warning:* **no visible global function definition for ‘normalizeWeights’**
```r
    if (t != 1) weights <- normalizeWeights(weights)
                           ^~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:152:12:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L152) *style:* **Variable and function names should be all lowercase.**
```r
    while (numberAccepted < numParticles) {
           ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:152:29:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L152) *style:* **Variable and function names should be all lowercase.**
```r
    while (numberAccepted < numParticles) {
                            ^~~~~~~~~~~~
```
[R/ABC_SMC.R:156:19:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L156) *style:* **Variable and function names should be all lowercase.**
```r
        params <- getRandomVals(species_fallout)
                  ^~~~~~~~~~~~~
```
[R/ABC_SMC.R:156:19:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L156) *warning:* **no visible global function definition for ‘getRandomVals’**
```r
        params <- getRandomVals(species_fallout)
                  ^~~~~~~~~~~~~
```
[R/ABC_SMC.R:158:19:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L158) *style:* **Variable and function names should be all lowercase.**
```r
        params <- getFromPrevious(indices, weights,
                  ^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:159:35:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L159) *style:* **Variable and function names should be all lowercase.**
```r
                                  dispVals, filtVals, compVals)
                                  ^~~~~~~~
```
[R/ABC_SMC.R:159:45:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L159) *style:* **Variable and function names should be all lowercase.**
```r
                                  dispVals, filtVals, compVals)
                                            ^~~~~~~~
```
[R/ABC_SMC.R:159:55:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L159) *style:* **Variable and function names should be all lowercase.**
```r
                                  dispVals, filtVals, compVals)
                                                      ^~~~~~~~
```
[R/ABC_SMC.R:160:19:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L160) *warning:* **no visible global function definition for ‘perturb’**
```r
        params <- perturb(params, sigma)
                  ^~~~~~~
```
[R/ABC_SMC.R:188:20:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L188) *style:* **Variable and function names should be all lowercase.**
```r
      FD_output <- strippedDbFd(Ord, communities[, present_species])
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:188:20:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L188) *warning:* **no visible global function definition for ‘strippedDbFd’**
```r
      FD_output <- strippedDbFd(Ord, communities[, present_species])
                   ^~~~~~~~~~~~
```
[R/ABC_SMC.R:189:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L189) *style:* **lines should not be more than 80 characters.**
```r
      FRic <- FD_output$FRic # FRic = functional richness (Villeger et al, 2008, Ecology)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:190:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L190) *style:* **lines should not be more than 80 characters.**
```r
      FEve <- FD_output$FEve # FEve = functional evenness (Villeger et al, 2008, Ecology)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:191:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L191) *style:* **lines should not be more than 80 characters.**
```r
      FDiv <- FD_output$FDiv # FDiv = functional diversity (Villeger et al, 2008, Ecology)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:195:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L195) *style:* **Use two spaces to indent, never tabs.**
```r
	  } else {
^
```
[R/ABC_SMC.R:196:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L196) *style:* **Use two spaces to indent, never tabs.**
```r
	    d <- read.table(paste("particles_t=", t, ".txt", sep="",
^
```
[R/ABC_SMC.R:197:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L197) *style:* **Use two spaces to indent, never tabs.**
```r
	                          collapse = NULL), header = F)
^
```
[R/ABC_SMC.R:198:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L198) *style:* **Use two spaces to indent, never tabs.**
```r
	  }
^
```
[R/ABC_SMC.R:200:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L200) *style:* **lines should not be more than 80 characters.**
```r
      # calculate distance of trait mean simulated community from that of observed
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:203:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L203) *style:* **lines should not be more than 80 characters.**
```r
      # (inverse) fit of model: euclidian distance of FD and trait mean values of
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:205:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L205) *style:* **lines should not be more than 80 characters.**
```r
      fit <- calculateDistance(FRic[[1]], FEve[[1]], FDiv[[1]], mean_optimum[1], summary_stats, sd_vals)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:205:14:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L205) *style:* **Variable and function names should be all lowercase.**
```r
      fit <- calculateDistance(FRic[[1]], FEve[[1]], FDiv[[1]], mean_optimum[1], summary_stats, sd_vals)
             ^~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:205:14:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L205) *warning:* **no visible global function definition for ‘calculateDistance’**
```r
      fit <- calculateDistance(FRic[[1]], FEve[[1]], FDiv[[1]], mean_optimum[1], summary_stats, sd_vals)
             ^~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:209:9:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L209) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted <- numberAccepted + 1
        ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:209:27:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L209) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted <- numberAccepted + 1
                          ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:210:9:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L210) *style:* **Variable and function names should be all lowercase.**
```r
        nextDisp[numberAccepted] <- params[1]
        ^~~~~~~~
```
[R/ABC_SMC.R:210:18:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L210) *style:* **Variable and function names should be all lowercase.**
```r
        nextDisp[numberAccepted] <- params[1]
                 ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:211:9:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L211) *style:* **Variable and function names should be all lowercase.**
```r
        nextFilt[numberAccepted] <- params[2]
        ^~~~~~~~
```
[R/ABC_SMC.R:211:18:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L211) *style:* **Variable and function names should be all lowercase.**
```r
        nextFilt[numberAccepted] <- params[2]
                 ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:212:9:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L212) *style:* **Variable and function names should be all lowercase.**
```r
        nextComp[numberAccepted] <- params[3]
        ^~~~~~~~
```
[R/ABC_SMC.R:212:18:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L212) *style:* **Variable and function names should be all lowercase.**
```r
        nextComp[numberAccepted] <- params[3]
                 ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:214:14:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L214) *style:* **Variable and function names should be all lowercase.**
```r
        fits[numberAccepted] <- fit
             ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:215:9:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L215) *style:* **Variable and function names should be all lowercase.**
```r
        RichVec[numberAccepted] <- FRic[[1]]
        ^~~~~~~
```
[R/ABC_SMC.R:215:17:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L215) *style:* **Variable and function names should be all lowercase.**
```r
        RichVec[numberAccepted] <- FRic[[1]]
                ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:216:9:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L216) *style:* **Variable and function names should be all lowercase.**
```r
        EveVec[numberAccepted] <- FEve[[1]]
        ^~~~~~
```
[R/ABC_SMC.R:216:16:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L216) *style:* **Variable and function names should be all lowercase.**
```r
        EveVec[numberAccepted] <- FEve[[1]]
               ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:217:9:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L217) *style:* **Variable and function names should be all lowercase.**
```r
        DivVec[numberAccepted] <- FDiv[[1]]
        ^~~~~~
```
[R/ABC_SMC.R:217:16:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L217) *style:* **Variable and function names should be all lowercase.**
```r
        DivVec[numberAccepted] <- FDiv[[1]]
               ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:218:9:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L218) *style:* **Variable and function names should be all lowercase.**
```r
        OptVec[numberAccepted] <- mean_optimum;
        ^~~~~~
```
[R/ABC_SMC.R:218:16:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L218) *style:* **Variable and function names should be all lowercase.**
```r
        OptVec[numberAccepted] <- mean_optimum;
               ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:221:11:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L221) *style:* **Variable and function names should be all lowercase.**
```r
          nextWeights[numberAccepted] = 1
          ^~~~~~~~~~~
```
[R/ABC_SMC.R:221:23:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L221) *style:* **Variable and function names should be all lowercase.**
```r
          nextWeights[numberAccepted] = 1
                      ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:221:39:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L221) *style:* **Use <-, not =, for assignment.**
```r
          nextWeights[numberAccepted] = 1
                                      ^
```
[R/ABC_SMC.R:223:11:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L223) *style:* **Variable and function names should be all lowercase.**
```r
          nextWeights[numberAccepted] =
          ^~~~~~~~~~~
```
[R/ABC_SMC.R:223:23:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L223) *style:* **Variable and function names should be all lowercase.**
```r
          nextWeights[numberAccepted] =
                      ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:223:39:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L223) *style:* **Use <-, not =, for assignment.**
```r
          nextWeights[numberAccepted] =
                                      ^
```
[R/ABC_SMC.R:224:13:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L224) *style:* **Variable and function names should be all lowercase.**
```r
            calculateWeight(params, changed, sigma, dispVals, filtVals,
            ^~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:224:53:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L224) *style:* **Variable and function names should be all lowercase.**
```r
            calculateWeight(params, changed, sigma, dispVals, filtVals,
                                                    ^~~~~~~~
```
[R/ABC_SMC.R:224:63:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L224) *style:* **Variable and function names should be all lowercase.**
```r
            calculateWeight(params, changed, sigma, dispVals, filtVals,
                                                              ^~~~~~~~
```
[R/ABC_SMC.R:225:29:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L225) *style:* **Variable and function names should be all lowercase.**
```r
                            compVals, weights)
                            ^~~~~~~~
```
[R/ABC_SMC.R:228:13:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L228) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
            ^
```
[R/ABC_SMC.R:228:14:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L228) *style:* **Variable and function names should be all lowercase.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
             ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:228:34:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L228) *style:* **Variable and function names should be all lowercase.**
```r
        if ((numberAccepted) %% (numParticles / PRINT_FREQ) == 0) {
                                 ^~~~~~~~~~~~
```
[R/ABC_SMC.R:234:21:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L234) *style:* **Put spaces around all infix operators.**
```r
      if (tried > (1/stopRate) && tried > 50)  {
                   ~^~
```
[R/ABC_SMC.R:234:22:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L234) *style:* **Variable and function names should be all lowercase.**
```r
      if (tried > (1/stopRate) && tried > 50)  {
                     ^~~~~~~~
```
[R/ABC_SMC.R:236:13:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L236) *style:* **Variable and function names should be all lowercase.**
```r
        if (numberAccepted / tried < stopRate) {
            ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:236:38:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L236) *style:* **Variable and function names should be all lowercase.**
```r
        if (numberAccepted / tried < stopRate) {
                                     ^~~~~~~~
```
[R/ABC_SMC.R:247:5:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L247) *style:* **Variable and function names should be all lowercase.**
```r
    dispVals <- nextDisp
    ^~~~~~~~
```
[R/ABC_SMC.R:247:17:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L247) *style:* **Variable and function names should be all lowercase.**
```r
    dispVals <- nextDisp
                ^~~~~~~~
```
[R/ABC_SMC.R:248:5:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L248) *style:* **Variable and function names should be all lowercase.**
```r
    filtVals <- nextFilt
    ^~~~~~~~
```
[R/ABC_SMC.R:248:17:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L248) *style:* **Variable and function names should be all lowercase.**
```r
    filtVals <- nextFilt
                ^~~~~~~~
```
[R/ABC_SMC.R:249:5:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L249) *style:* **Variable and function names should be all lowercase.**
```r
    compVals <- nextComp
    ^~~~~~~~
```
[R/ABC_SMC.R:249:17:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L249) *style:* **Variable and function names should be all lowercase.**
```r
    compVals <- nextComp
                ^~~~~~~~
```
[R/ABC_SMC.R:250:16:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L250) *style:* **Variable and function names should be all lowercase.**
```r
    weights <- nextWeights
               ^~~~~~~~~~~
```
[R/ABC_SMC.R:252:21:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L252) *style:* **Variable and function names should be all lowercase.**
```r
    output <- cbind(dispVals, filtVals, compVals, RichVec,
                    ^~~~~~~~
```
[R/ABC_SMC.R:252:31:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L252) *style:* **Variable and function names should be all lowercase.**
```r
    output <- cbind(dispVals, filtVals, compVals, RichVec,
                              ^~~~~~~~
```
[R/ABC_SMC.R:252:41:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L252) *style:* **Variable and function names should be all lowercase.**
```r
    output <- cbind(dispVals, filtVals, compVals, RichVec,
                                        ^~~~~~~~
```
[R/ABC_SMC.R:252:51:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L252) *style:* **Variable and function names should be all lowercase.**
```r
    output <- cbind(dispVals, filtVals, compVals, RichVec,
                                                  ^~~~~~~
```
[R/ABC_SMC.R:253:21:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L253) *style:* **Variable and function names should be all lowercase.**
```r
                    EveVec, DivVec, OptVec, fits, weights)
                    ^~~~~~
```
[R/ABC_SMC.R:253:29:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L253) *style:* **Variable and function names should be all lowercase.**
```r
                    EveVec, DivVec, OptVec, fits, weights)
                            ^~~~~~
```
[R/ABC_SMC.R:253:37:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L253) *style:* **Variable and function names should be all lowercase.**
```r
                    EveVec, DivVec, OptVec, fits, weights)
                                    ^~~~~~
```
[R/ABC_SMC.R:254:54:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/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:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L257) *style:* **lines should not be more than 80 characters.**
```r
    cat(" ", mean(dispVals), mean(filtVals), mean(compVals), "\t", "accept rate = ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ABC_SMC.R:257:19:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L257) *style:* **Variable and function names should be all lowercase.**
```r
    cat(" ", mean(dispVals), mean(filtVals), mean(compVals), "\t", "accept rate = ",
                  ^~~~~~~~
```
[R/ABC_SMC.R:257:35:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L257) *style:* **Variable and function names should be all lowercase.**
```r
    cat(" ", mean(dispVals), mean(filtVals), mean(compVals), "\t", "accept rate = ",
                                  ^~~~~~~~
```
[R/ABC_SMC.R:257:51:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L257) *style:* **Variable and function names should be all lowercase.**
```r
    cat(" ", mean(dispVals), mean(filtVals), mean(compVals), "\t", "accept rate = ",
                                                  ^~~~~~~~
```
[R/ABC_SMC.R:258:9:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L258) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted / (tried-1), numberAccepted, tried, "\n")
        ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:258:32:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L258) *style:* **Put spaces around all infix operators.**
```r
        numberAccepted / (tried-1), numberAccepted, tried, "\n")
                              ~^~
```
[R/ABC_SMC.R:258:37:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L258) *style:* **Variable and function names should be all lowercase.**
```r
        numberAccepted / (tried-1), numberAccepted, tried, "\n")
                                    ^~~~~~~~~~~~~~
```
[R/ABC_SMC.R:261:5:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L261) *style:* **Variable and function names should be all lowercase.**
```r
    nextWeights <- rep(1,numParticles)
    ^~~~~~~~~~~
```
[R/ABC_SMC.R:261:26:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L261) *style:* **Commas should always have a space after.**
```r
    nextWeights <- rep(1,numParticles)
                         ^
```
[R/ABC_SMC.R:261:26:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L261) *style:* **Variable and function names should be all lowercase.**
```r
    nextWeights <- rep(1,numParticles)
                         ^~~~~~~~~~~~
```
[R/ABC_SMC.R:262:5:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L262) *style:* **Variable and function names should be all lowercase.**
```r
    nextDisp <- 1:numParticles
    ^~~~~~~~
```
[R/ABC_SMC.R:262:19:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L262) *style:* **Variable and function names should be all lowercase.**
```r
    nextDisp <- 1:numParticles
                  ^~~~~~~~~~~~
```
[R/ABC_SMC.R:263:5:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L263) *style:* **Variable and function names should be all lowercase.**
```r
    nextFilt <- 1:numParticles
    ^~~~~~~~
```
[R/ABC_SMC.R:263:19:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L263) *style:* **Variable and function names should be all lowercase.**
```r
    nextFilt <- 1:numParticles
                  ^~~~~~~~~~~~
```
[R/ABC_SMC.R:264:5:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L264) *style:* **Variable and function names should be all lowercase.**
```r
    nextComp <- 1:numParticles
    ^~~~~~~~
```
[R/ABC_SMC.R:264:19:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L264) *style:* **Variable and function names should be all lowercase.**
```r
    nextComp <- 1:numParticles
                  ^~~~~~~~~~~~
```
[R/ABC_SMC.R:271:61:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L271) *style:* **Put spaces around all infix operators.**
```r
    d <- read.table(paste("particles_t=", t - 2, ".txt", sep="",
                                                           ~^~
```
[R/ABC_SMC.R:275:63:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L275) *style:* **Put spaces around all infix operators.**
```r
      d <- read.table(paste("particles_t=", t - 1, ".txt", sep="",
                                                             ~^~
```
[R/ABC_SMC.R:278:15:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L278) *style:* **Put spaces around all infix operators.**
```r
	    d <- read.table(paste("particles_t=", t, ".txt", sep="",
             ~^~~
```
[R/ABC_SMC.R:279:44:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/ABC_SMC.R#L279) *style:* **Put spaces around all infix operators.**
```r
	                          collapse = NULL), header = F)
                                          ~^
```
[R/generateArtificialData.R:4:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L4) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
generate.Artificial.Data <- function(n_species, n_traits, n_communities,
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/generateArtificialData.R:6:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/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/be4a45a496048d216670492c58e3829f8cd5b1a0/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/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L9) *style:* **Use two spaces to indent, never tabs.**
```r
	                                    mean = 0, sd = 1), 3),
^
```
[R/generateArtificialData.R:9:23:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L9) *style:* **Put spaces around all infix operators.**
```r
	pool_richness <- n_species
                     ~^~~
```
[R/generateArtificialData.R:10:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L10) *style:* **Use two spaces to indent, never tabs.**
```r
	                       ncol = n_traits, nrow = pool_richness)
^
```
[R/generateArtificialData.R:11:21:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L11) *style:* **Put spaces around all infix operators.**
```r
	traits_pool <- matrix( round( rnorm(n = (pool_richness * n_traits),
                   ~^~~
```
[R/generateArtificialData.R:11:47:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L11) *style:* **Put spaces around all infix operators.**
```r
	traits_pool <- matrix( round( rnorm(n = (pool_richness * n_traits),
                                             ~^~
```
[R/generateArtificialData.R:11:49:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L11) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	traits_pool <- matrix( round( rnorm(n = (pool_richness * n_traits),
                                                ^
```
[R/generateArtificialData.R:11:64:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L11) *style:* **Put spaces around all infix operators.**
```r
	traits_pool <- matrix( round( rnorm(n = (pool_richness * n_traits),
                                                              ~^~
```
[R/generateArtificialData.R:12:50:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L12) *style:* **Put spaces around all infix operators.**
```r
	                                    mean = 0, sd = 1), 3),
                                                ~^~
```
[R/generateArtificialData.R:12:58:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L12) *style:* **Put spaces around all infix operators.**
```r
	                                    mean = 0, sd = 1), 3),
                                                        ~^~
```
[R/generateArtificialData.R:13:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L13) *style:* **Use two spaces to indent, never tabs.**
```r
	for(i in 1:pool_richness) {
^
```
[R/generateArtificialData.R:13:37:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L13) *style:* **Put spaces around all infix operators.**
```r
	                       ncol = n_traits, nrow = pool_richness)
                                   ~^~
```
[R/generateArtificialData.R:13:54:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L13) *style:* **Put spaces around all infix operators.**
```r
	                       ncol = n_traits, nrow = pool_richness)
                                                    ~^~
```
[R/generateArtificialData.R:14:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L14) *style:* **Use two spaces to indent, never tabs.**
```r
	  column1[i] <- paste("species", i, sep = "")
^
```
[R/generateArtificialData.R:15:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:16:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L16) *style:* **Use two spaces to indent, never tabs.**
```r
	row1 <- rep(NA, (n_traits + 1))
^
```
[R/generateArtificialData.R:16:12:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L16) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	for(i in 1:pool_richness) {
           ^
```
[R/generateArtificialData.R:17:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L17) *style:* **Use two spaces to indent, never tabs.**
```r
	for(i in 1:n_traits + 1) {
^
```
[R/generateArtificialData.R:17:22:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L17) *style:* **Put spaces around all infix operators.**
```r
	  column1[i] <- paste("species", i, sep = "")
                    ~^~~
```
[R/generateArtificialData.R:18:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L18) *style:* **Use two spaces to indent, never tabs.**
```r
	  row1[i] <- paste("trait", (i - 1), sep="")
^
```
[R/generateArtificialData.R:19:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:19:14:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L19) *style:* **Put spaces around all infix operators.**
```r
	row1 <- rep(NA, (n_traits + 1))
            ~^~~
```
[R/generateArtificialData.R:19:25:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L19) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	row1 <- rep(NA, (n_traits + 1))
                        ^
```
[R/generateArtificialData.R:20:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L20) *style:* **Use two spaces to indent, never tabs.**
```r
	row1[1] <- "species"
^
```
[R/generateArtificialData.R:20:12:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L20) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	for(i in 1:n_traits + 1) {
           ^
```
[R/generateArtificialData.R:21:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L21) *style:* **Use two spaces to indent, never tabs.**
```r
	columns <- matrix(cbind(column1, traits_pool), ncol = (n_traits + 1))
^
```
[R/generateArtificialData.R:21:19:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L21) *style:* **Put spaces around all infix operators.**
```r
	  row1[i] <- paste("trait", (i - 1), sep="")
                 ~^~~
```
[R/generateArtificialData.R:21:37:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L21) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	  row1[i] <- paste("trait", (i - 1), sep="")
                                    ^
```
[R/generateArtificialData.R:21:40:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L21) *style:* **Put spaces around all infix operators.**
```r
	  row1[i] <- paste("trait", (i - 1), sep="")
                                      ~^~
```
[R/generateArtificialData.R:22:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L22) *style:* **Use two spaces to indent, never tabs.**
```r
	traits_pool_df <- as.data.frame(columns)
^
```
[R/generateArtificialData.R:23:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L23) *style:* **Use two spaces to indent, never tabs.**
```r
	names(traits_pool_df) <- row1
^
```
[R/generateArtificialData.R:23:17:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L23) *style:* **Put spaces around all infix operators.**
```r
	row1[1] <- "species"
               ~^~~
```
[R/generateArtificialData.R:24:17:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L24) *style:* **Put spaces around all infix operators.**
```r
	columns <- matrix(cbind(column1, traits_pool), ncol = (n_traits + 1))
               ~^~~
```
[R/generateArtificialData.R:24:61:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L24) *style:* **Put spaces around all infix operators.**
```r
	columns <- matrix(cbind(column1, traits_pool), ncol = (n_traits + 1))
                                                           ~^~
```
[R/generateArtificialData.R:24:63:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L24) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	columns <- matrix(cbind(column1, traits_pool), ncol = (n_traits + 1))
                                                              ^
```
[R/generateArtificialData.R:25:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L25) *style:* **Use two spaces to indent, never tabs.**
```r
	comm_spec_matrix <- matrix(rep(0, (n_communities * pool_richness)),
^
```
[R/generateArtificialData.R:25:24:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L25) *style:* **Put spaces around all infix operators.**
```r
	traits_pool_df <- as.data.frame(columns)
                      ~^~~
```
[R/generateArtificialData.R:26:31:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L26) *style:* **Put spaces around all infix operators.**
```r
	names(traits_pool_df) <- row1
                             ~^~~
```
[R/generateArtificialData.R:28:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L28) *style:* **Use two spaces to indent, never tabs.**
```r
	occurence <- 10^rnorm(pool_richness, mean = 0, sd = occurence_distribution)
^
```
[R/generateArtificialData.R:28:26:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L28) *style:* **Put spaces around all infix operators.**
```r
	comm_spec_matrix <- matrix(rep(0, (n_communities * pool_richness)),
                        ~^~~
```
[R/generateArtificialData.R:28:43:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L28) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	comm_spec_matrix <- matrix(rep(0, (n_communities * pool_richness)),
                                          ^
```
[R/generateArtificialData.R:28:58:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L28) *style:* **Put spaces around all infix operators.**
```r
	comm_spec_matrix <- matrix(rep(0, (n_communities * pool_richness)),
                                                        ~^~
```
[R/generateArtificialData.R:30:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L30) *style:* **Use two spaces to indent, never tabs.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
^
```
[R/generateArtificialData.R:31:19:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L31) *style:* **Put spaces around all infix operators.**
```r
	occurence <- 10^rnorm(pool_richness, mean = 0, sd = occurence_distribution)
                 ~^~~
```
[R/generateArtificialData.R:31:24:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L31) *style:* **Put spaces around all infix operators.**
```r
	occurence <- 10^rnorm(pool_richness, mean = 0, sd = occurence_distribution)
                      ~^~
```
[R/generateArtificialData.R:31:51:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L31) *style:* **Put spaces around all infix operators.**
```r
	occurence <- 10^rnorm(pool_richness, mean = 0, sd = occurence_distribution)
                                                 ~^~
```
[R/generateArtificialData.R:31:59:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L31) *style:* **Put spaces around all infix operators.**
```r
	occurence <- 10^rnorm(pool_richness, mean = 0, sd = occurence_distribution)
                                                         ~^~
```
[R/generateArtificialData.R:32:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L32) *style:* **Use two spaces to indent, never tabs.**
```r
	richness_values[which(richness_values > pool_richness)] <- pool_richness
^
```
[R/generateArtificialData.R:33:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L33) *style:* **Use two spaces to indent, never tabs.**
```r
	richness_values[which(richness_values < 0)] <- 0
^
```
[R/generateArtificialData.R:33:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L33) *style:* **lines should not be more than 80 characters.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/generateArtificialData.R:33:25:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L33) *style:* **Put spaces around all infix operators.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                       ~^~~
```
[R/generateArtificialData.R:33:34:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L33) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                                 ^
```
[R/generateArtificialData.R:33:61:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L33) *style:* **Put spaces around all infix operators.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                                                           ~^~
```
[R/generateArtificialData.R:33:69:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L33) *style:* **Put spaces around all infix operators.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                                                                    ^~
```
[R/generateArtificialData.R:33:74:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L33) *style:* **Put spaces around all infix operators.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                                                                        ~^~
```
[R/generateArtificialData.R:33:76:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L33) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                                                                           ^
```
[R/generateArtificialData.R:33:89:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L33) *style:* **Put spaces around all infix operators.**
```r
	richness_values <- round((rnorm(n_communities, mean = 0, sd = 1) * (sd_richness * pool_richness) +
                                                                                ~^~
```
[R/generateArtificialData.R:34:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L34) *style:* **Use two spaces to indent, never tabs.**
```r
	for(i in 1:n_communities){
^
```
[R/generateArtificialData.R:35:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L35) *style:* **Use two spaces to indent, never tabs.**
```r
	  if(mechanism_random == T){
^
```
[R/generateArtificialData.R:35:47:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L35) *style:* **Put spaces around all infix operators.**
```r
	richness_values[which(richness_values > pool_richness)] <- pool_richness
                                             ~^~
```
[R/generateArtificialData.R:35:65:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L35) *style:* **Put spaces around all infix operators.**
```r
	richness_values[which(richness_values > pool_richness)] <- pool_richness
                                                               ~^~~
```
[R/generateArtificialData.R:36:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L36) *style:* **Use two spaces to indent, never tabs.**
```r
	    present_species <- sample(c(1:pool_richness), richness_values[i],
^
```
[R/generateArtificialData.R:36:47:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L36) *style:* **Put spaces around all infix operators.**
```r
	richness_values[which(richness_values < 0)] <- 0
                                             ~^
```
[R/generateArtificialData.R:37:12:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L37) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	for(i in 1:n_communities){
           ^
```
[R/generateArtificialData.R:38:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L38) *style:* **Use two spaces to indent, never tabs.**
```r
	  }else{
^
```
[R/generateArtificialData.R:38:13:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L38) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	  if(mechanism_random == T){
            ^
```
[R/generateArtificialData.R:39:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L39) *style:* **Use two spaces to indent, never tabs.**
```r
	    opt_traits <- rnorm(n_traits, mean = 0, sd = 1)
^
```
[R/generateArtificialData.R:39:29:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L39) *style:* **Put spaces around all infix operators.**
```r
	    present_species <- sample(c(1:pool_richness), richness_values[i],
                           ~^~~
```
[R/generateArtificialData.R:40:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L40) *style:* **Use two spaces to indent, never tabs.**
```r
	    opt_traits_matrix <- c()
^
```
[R/generateArtificialData.R:41:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L41) *style:* **Use two spaces to indent, never tabs.**
```r
	    for(j in 1:n_traits){
^
```
[R/generateArtificialData.R:42:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L42) *style:* **Use two spaces to indent, never tabs.**
```r
	      for(k in 1:pool_richness){
^
```
[R/generateArtificialData.R:42:24:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L42) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits <- rnorm(n_traits, mean = 0, sd = 1)
                      ~^~~
```
[R/generateArtificialData.R:42:48:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L42) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits <- rnorm(n_traits, mean = 0, sd = 1)
                                              ~^~
```
[R/generateArtificialData.R:43:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L43) *style:* **Use two spaces to indent, never tabs.**
```r
		      l <- (j - 1) * pool_richness + k
^~
```
[R/generateArtificialData.R:44:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L44) *style:* **Use two spaces to indent, never tabs.**
```r
		      opt_traits_matrix[l] <- opt_traits[j]
^~
```
[R/generateArtificialData.R:44:16:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L44) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	    for(j in 1:n_traits){
               ^
```
[R/generateArtificialData.R:45:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L45) *style:* **Use two spaces to indent, never tabs.**
```r
	      }
^
```
[R/generateArtificialData.R:45:18:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L45) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	      for(k in 1:pool_richness){
                 ^
```
[R/generateArtificialData.R:46:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L46) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:46:25:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L46) *style:* **Put spaces around all infix operators.**
```r
		      l <- (j - 1) * pool_richness + k
                       ~^~~
```
[R/generateArtificialData.R:46:28:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L46) *style:* **Place a space before left parenthesis, except in a function call.**
```r
		      l <- (j - 1) * pool_richness + k
                           ^
```
[R/generateArtificialData.R:46:31:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L46) *style:* **Put spaces around all infix operators.**
```r
		      l <- (j - 1) * pool_richness + k
                             ~^~
```
[R/generateArtificialData.R:46:36:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L46) *style:* **Put spaces around all infix operators.**
```r
		      l <- (j - 1) * pool_richness + k
                                  ~^
```
[R/generateArtificialData.R:47:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L47) *style:* **Use two spaces to indent, never tabs.**
```r
	    opt_traits_matrix <- matrix(opt_traits_matrix, ncol = n_traits)
^
```
[R/generateArtificialData.R:47:44:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L47) *style:* **Put spaces around all infix operators.**
```r
		      opt_traits_matrix[l] <- opt_traits[j]
                                          ~^~~
```
[R/generateArtificialData.R:48:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L48) *style:* **Use two spaces to indent, never tabs.**
```r
	    traits_distances <- abs(traits_pool - opt_traits_matrix)
^
```
[R/generateArtificialData.R:49:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L49) *style:* **Use two spaces to indent, never tabs.**
```r
	    trait_distances_onedimen <- c()
^
```
[R/generateArtificialData.R:50:1:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L50) *style:* **Use two spaces to indent, never tabs.**
```r
	    for(m in 1:pool_richness){
^
```
[R/generateArtificialData.R:50:31:](https://github.com/thijsjanzen/STEPCAM/blob/be4a45a496048d216670492c58e3829f8cd5b1a0/R/generateArtificialData.R#L50) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits_matrix <- matrix(opt_traits_matrix, ncol = n_traits)
                             ~^~~
```


Well, I think it's a good thing for us, I moved device handling in vendor repo for this reason, in this way we can build for multiple devices just adding the device tree repo + dependencies and handle all our supported devices in our vendor repo! Note 4 is trlte right? I took a quick look at the device tree and I think we can build aosp for that without big issue, and maybe made a unified device tree like we did for jflte devices... When we fix the unified devices issue...!


ok


RE: 06-linear_algebra.md
cc: @lucdemortier @reshamametis @aramnath @gfsoileau @julialintern @galvin-mj

Hello @thisisniall

It looks like you know your linear algebra, but it would have been nice to see what results you got for the various problems in this section. By the way, it's fine to use the `numpy` methods for adding and multiplying matrices, and so on. You don't need to write your own. Note however, that all these problems are easy to solve on a piece of paper as well!

👍


oprava důležitého souboru:)


The " ’ " character given in the specs is incorrect, fitchfork expects the " ' " character (The one you use to represent a character literal). The first time I also copied and pasted from the specs.

[CharString.cpp:126](https://github.com/Quantum-Sicarius/COS110/blob/master/Prac5/Task2/CharString.cpp#L126)
[CharString.cpp:128](https://github.com/Quantum-Sicarius/COS110/blob/master/Prac5/Task2/CharString.cpp#L128)


@arturopuente, as @blackjid pointed out, it is a really bad attitude to change the original authors of a library and publish it on Ruby Gems. Could you please delete it so someone who finds it there doesn't download it by mistake (as I did)?


lol


@nin--jin Это с молом?


@sraue @lrusak in case you are interested - OE/LE is using fakeroot anyway for other things. so you can drop yet another patch.

this was in my todo list for long time. /dev/console is nowadays mandatory in initramfs..


ppp


@alehinsasha


Конечно.


Sorry, it was fixed in the next commit


hometask


I tested this development with the Gherkin following script:

```
@hello
Feature: hello (Function to validate the environment.)

	Scenario Outline: Function to validate the environment.
		Given me a hello, please. Best Regards '<author>'.
		Given me a hello, please. Best Regards '<author>'.
		    |key|expected|actual|
		Given me a hello, please. Best Regards '<author>'.
		    |key|expected|actual|
			  |zip|35000|<zip>|
			  |city|Rennes|<city>|

		Given me a bye, please. Best Regards '<author>'.
		Given me a bye, please. Best Regards '<author>'.
			  |zip|<zip>|
			  |city|<city>|

		Given me a cat, please. Best Regards '<author>'.

	Examples:
	#Begin Examples#
	|author|zip|city|
	|Jenkins Q1|35000|Rennes|
	|Jenkins Q2|35000|Rennes|
	#End Examples#
```


Build report #160890128 for sha 0a08129ec5c6fb6b204c81fa6de3ae2f58df6656:

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


RE: 05a-python.md
cc: @lucdemortier @reshamametis @aramnath @gfsoileau @julialintern @galvin-mj

Hello @neokt

Good work on the Python problems! Nice, concise code!

👍


Optimizations (when needed)


Committing via github.com to make sure all changes went through for submission