[R/ABC_SMC.R:2:1:](https://github.com/thijsjanzen/STEPCAM/blob/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/R/generateArtificialData.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:16:1:](https://github.com/thijsjanzen/STEPCAM/blob/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/R/generateArtificialData.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/generateArtificialData.R:19:14:](https://github.com/thijsjanzen/STEPCAM/blob/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/R/generateArtificialData.R#L45) *style:* **Use two spaces to indent, never tabs.**
```r
	      }
^
```
[R/generateArtificialData.R:45:18:](https://github.com/thijsjanzen/STEPCAM/blob/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/R/generateArtificialData.R#L46) *style:* **Use two spaces to indent, never tabs.**
```r
	    }
^
```
[R/generateArtificialData.R:46:25:](https://github.com/thijsjanzen/STEPCAM/blob/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/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/6d337e7609c34b8029f91e2a2575922f65ed0a81/R/generateArtificialData.R#L50) *style:* **Put spaces around all infix operators.**
```r
	    opt_traits_matrix <- matrix(opt_traits_matrix, ncol = n_traits)
                             ~^~~
```


Setting Nuke dependency in Podspec currently breaks the CocoaPods use, as Nuke is not already 4.0.

> "s.dependency 'Nuke', '~> 4.0'"

```
pod update
Update all pods
Updating local specs repositories
Analyzing dependencies
Pre-downloading: `Nuke` from `https://github.com/kean/Nuke`
Pre-downloading: `Nuke-Alamofire-Plugin` from `https://github.com/kean/Nuke-Alamofire-Plugin`, branch `swift3`
[!] Unable to satisfy the following requirements:

- `Nuke (from `https://github.com/kean/Nuke`)` required by `Podfile`
- `Nuke (~> 4.0)` required by `Nuke-Alamofire-Plugin (1.0)`
```


Good point!


Norm


@rkorytkowski this is usually a symptom of some other error. For instance, i frequently get this error when the moduleApplicationContext fails to load in unit tests because of exceptions like ClassNotFoundException. I have just got the same exact error now even after applying your commit. :)
Full stack trace here: http://pastebin.com/rLVu6PDm


Ciao amico!

Ecco alcuni link utili che ho scelto solo  per voi, dategli un’occhiata <http://maria.paulandmorgan.com/lyo>

I miei migliori auguri, lessandra Orsi


Horrible, just horrible!


Sorry, it was a crazy week at work, so I haven't been able to get back to this before now.

So I think one potential issue is that a lot of the custom packages I'm thinking of aren't in `emacs-packages.nix` at all, they're in `applications/editors/emacs-modes/<foo>` and pulled into the `emacsPackageGen` expression in `all-packages.nix`, and often under camelCase names.  So it's not just a matter of dropping them from `emacs-packages.nix`, I think we would need to maintain aliases, at least for one release?

Still, if you think it's feasible to proceed by, say, dropping related groups of packages from `emacs-packages.nix` (assuming they all exist in `melpaStable` or `melpa`), I can at least work on that.


@tommywo - I noticed after implementing this test, that we are storing the full contents of the To: header, not just the particular mailbox:

```
  {
    "mailbox": "one",
    "id": "20160918T124904-0034",
    "from": "james@archbox.localdomain",
    "to": "one@inbucket,two@inbucket",
    "subject": "Swaks Multi-Recipient",
    "date": "2016-09-18T12:49:04.06494606-07:00",
    "size": 401
  }
```

This is *probably* the right thing to do, but I wanted to make sure it matched your intent.  Keep in mind it can also contain names outside of the recipient address:

```
  {
    "mailbox": "yimmy",
    "id": "20160918T131855-0036",
    "from": "Test User <user@localhost>",
    "to": "Yimmy Inbucket <yimmy@inbucket>",
    "subject": "Test Names",
    "date": "2016-09-18T13:18:55.463980427-07:00",
    "size": 230
  }
```

At least we are matching the From header functionality.


For what it's worth, I measured a 1.3% slowdown (non-pgo build):

Total time (ms) : 148221
Nodes searched  : 202696778
Nodes/second    : 1367530
master

Total time (ms) : 150193
Nodes searched  : 202696778
Nodes/second    : 1349575
testedpatch


yes, it's 17.


Приложение, Огонь 🔥


I got the file reading to the 2d array working.......kinda. There is an
additional element on each row of the array to hold the new line char. This
was the easiest without having to read a line from the text file, strip the
/n, then change the string into chars, then put it in the array. Maybe
later use the numpy library to make this nicer? I just wanted to get it
working so we can move on and get more done. I left the variable for the
width at 10 so we can still use this to check for a shot out of bounds.

On Sun, Sep 18, 2016 at 1:28 PM, David Schwehr <dpschwehr@gmail.com> wrote:

> I got reading the file and filling the array to work but I can't omitt the
> newline character. Supossedly there is a strip('/n') that should work with
> reading a file line by line but we need to read char by char. If you were
> able to leave out the /n than that is farther than I got.
>
> On Sun, Sep 18, 2016 at 1:24 PM, Emmanuel-Armstrong <
> notifications@github.com> wrote:
>
>> Oh crap I just realized, I've done some work on the file reading and
>> writing but I totally forgot to push it up to git! I'll see if I have any
>> more than you and if so I'll push up what I have when I get home from work
>> in a couple hours. Sorry about that!
>>
>>
>> On Sep 18, 2016 12:53 PM, "dssquared" <notifications@github.com> wrote:
>>
>> > I've started working with reading in the board file and filling the
>> array,
>> > about half success now. Once the board array is filled we can start
>> working
>> > on the rest. Not sure if we want to make a nother text file for the
>> client
>> > to keep track of the board since the client is re-invoked each time.
>> Can't
>> > really use an array since the program is restarted each time but
>> writing to
>> > a file from an array could be a pain. I will finish the server side
>> > creating the board array first, might use a list within a list.
>> > What do you guys want to work on or feel comfortable about working on?
>> >
>> > David
>> >
>> > On Sat, Sep 17, 2016 at 6:35 PM, David Schwehr <dpschwehr@gmail.com>
>> > wrote:
>> >
>> > > Just checked, the address for localhost is correct, the port numbers
>> and
>> > > ip being set from command line arguments is already implemented and I
>> > > checked the connection already. I was going to play around with
>> different
>> > > ways of making the board and http stuff next. I put a board.txt file
>> in
>> > the
>> > > folder too to use to test reading the file and creating an array or
>> list
>> > of
>> > > lists for the board.
>> > > Remember to git pull before working on anything to make sure you have
>> the
>> > > most recent version.
>> > > I will be working on it some tonight and spending most the day on it
>> > > tomorrow.
>> > >
>> > > On Sat, Sep 17, 2016 at 6:30 PM, David Schwehr <dpschwehr@gmail.com>
>> > > wrote:
>> > >
>> > >> Right now the server is on 127.0.0.1( i may have the address wrong
>> but
>> > it
>> > >> should be the address of localhost, which is the same no matter what
>> > >> machine it is running on) just to run it on your local machine to
>> test,
>> > it
>> > >> will be changed to the ip address of the machine it is running on
>> when
>> > they
>> > >> grade it.
>> > >>
>> > >> On Sat, Sep 17, 2016 at 6:26 PM, David Schwehr <dpschwehr@gmail.com>
>> > >> wrote:
>> > >>
>> > >>> It is getting the fire commands from the command line arguments,
>> that
>> > is
>> > >>> why the client is being invoked every play. The connection is made
>> > with the
>> > >>> port number and IP address passed in from the command line
>> arguments. I
>> > >>> have already wrote the code for the connection using the socket
>> > library.
>> > >>> Thev ariables for the x and y coords passed from the command line
>> are
>> > >>> working just as you had them in your test.py, I added it to the
>> > client.py
>> > >>> file already. These variable will be used in the methods that send
>> the
>> > http
>> > >>> message. The http and passing in the variable I think will be the
>> easy
>> > >>> part, some of it is done and it works. The time consuming part is
>> > going to
>> > >>> be writing the code to maintain the board and "serving" the display
>> of
>> > the
>> > >>> board.
>> > >>> Tracking sunk ships will work as you suggested and this will be put
>> in
>> > a
>> > >>> method called from read_board or process_reply or done inside of
>> > >>> process_reply.
>> > >>>
>> > >>> On Sat, Sep 17, 2016 at 6:10 PM, tyler-sassaman <
>> > >>> notifications@github.com> wrote:
>> > >>>
>> > >>>> I was thinking about tracking sunk ships. Just a thought, but what
>> if
>> > >>>> we had a global variable for each ship (carrier = 5), and every
>> time
>> > we hit
>> > >>>> that type of ship we decrement that value, and compare it to 0. so
>> if
>> > >>>> carrier gets to 0 then it has been hit 5 times which is the same
>> > thing as
>> > >>>> being sunk.
>> > >>>>
>> > >>>> —
>> > >>>> You are receiving this because you authored the thread.
>> > >>>> Reply to this email directly, view it on GitHub
>> > >>>> <https://github.com/dssquared/Networks_Lab1/commit/
>> > 7f5b3dc1ba8a89d303ffa5a927903a77492af920#commitcomment-19068085>,
>> > >>>> or mute the thread
>> > >>>> <https://github.com/notifications/unsubscribe-auth/AE8DG_
>> y6gkDXIV5_
>> > YwVT263okb39zDjcks5qrIFygaJpZM4J_dYG>
>> > >>>> .
>> > >>>>
>> > >>>
>> > >>>
>> > >>
>> > >
>> >
>> > —
>> > You are receiving this because you commented.
>> > Reply to this email directly, view it on GitHub
>> > <https://github.com/dssquared/Networks_Lab1/commit/7f5b3dc1b
>> a8a89d303ffa5a927903a77492af920#commitcomment-19071806>,
>> > or mute the thread
>> > <https://github.com/notifications/unsubscribe-auth/
>> ANiCOS9eO_caF6oZivfhC4W6aceQXCnFks5qrYi_gaJpZM4J_dYG>
>>
>> > .
>> >
>>
>> —
>> You are receiving this because you authored the thread.
>> Reply to this email directly, view it on GitHub
>> <https://github.com/dssquared/Networks_Lab1/commit/7f5b3dc1ba8a89d303ffa5a927903a77492af920#commitcomment-19071958>,
>> or mute the thread
>> <https://github.com/notifications/unsubscribe-auth/AE8DG5F6ycythOV16iTCINZqZXSNnY3Fks5qrZAFgaJpZM4J_dYG>
>> .
>>
>
>


Done, https://github.com/ValdikSS/openvpn-with-patches/commit/25ad257c8d4f657f01bf7638d0f15b47304d81ad


@ericdrowell
Why did you delete Graph and Heap sections?


I got some syntax errors fixed in server.py and it will run, but with the
while(1) infinite loop you have to go into the task manager to kill the
process since you have to run it from the command line to send in
arguments. We wont have to worry about it once the client stuff is more
complete to where the client will close the connection and the server wont
get stuck in a loop.

On Sun, Sep 18, 2016 at 2:23 PM, David Schwehr <dpschwehr@gmail.com> wrote:

> I got the file reading to the 2d array working.......kinda. There is an
> additional element on each row of the array to hold the new line char. This
> was the easiest without having to read a line from the text file, strip the
> /n, then change the string into chars, then put it in the array. Maybe
> later use the numpy library to make this nicer? I just wanted to get it
> working so we can move on and get more done. I left the variable for the
> width at 10 so we can still use this to check for a shot out of bounds.
>
> On Sun, Sep 18, 2016 at 1:28 PM, David Schwehr <dpschwehr@gmail.com>
> wrote:
>
>> I got reading the file and filling the array to work but I can't omitt
>> the newline character. Supossedly there is a strip('/n') that should work
>> with reading a file line by line but we need to read char by char. If you
>> were able to leave out the /n than that is farther than I got.
>>
>> On Sun, Sep 18, 2016 at 1:24 PM, Emmanuel-Armstrong <
>> notifications@github.com> wrote:
>>
>>> Oh crap I just realized, I've done some work on the file reading and
>>> writing but I totally forgot to push it up to git! I'll see if I have any
>>> more than you and if so I'll push up what I have when I get home from
>>> work
>>> in a couple hours. Sorry about that!
>>>
>>>
>>> On Sep 18, 2016 12:53 PM, "dssquared" <notifications@github.com> wrote:
>>>
>>> > I've started working with reading in the board file and filling the
>>> array,
>>> > about half success now. Once the board array is filled we can start
>>> working
>>> > on the rest. Not sure if we want to make a nother text file for the
>>> client
>>> > to keep track of the board since the client is re-invoked each time.
>>> Can't
>>> > really use an array since the program is restarted each time but
>>> writing to
>>> > a file from an array could be a pain. I will finish the server side
>>> > creating the board array first, might use a list within a list.
>>> > What do you guys want to work on or feel comfortable about working on?
>>> >
>>> > David
>>> >
>>> > On Sat, Sep 17, 2016 at 6:35 PM, David Schwehr <dpschwehr@gmail.com>
>>> > wrote:
>>> >
>>> > > Just checked, the address for localhost is correct, the port numbers
>>> and
>>> > > ip being set from command line arguments is already implemented and I
>>> > > checked the connection already. I was going to play around with
>>> different
>>> > > ways of making the board and http stuff next. I put a board.txt file
>>> in
>>> > the
>>> > > folder too to use to test reading the file and creating an array or
>>> list
>>> > of
>>> > > lists for the board.
>>> > > Remember to git pull before working on anything to make sure you
>>> have the
>>> > > most recent version.
>>> > > I will be working on it some tonight and spending most the day on it
>>> > > tomorrow.
>>> > >
>>> > > On Sat, Sep 17, 2016 at 6:30 PM, David Schwehr <dpschwehr@gmail.com>
>>> > > wrote:
>>> > >
>>> > >> Right now the server is on 127.0.0.1( i may have the address wrong
>>> but
>>> > it
>>> > >> should be the address of localhost, which is the same no matter what
>>> > >> machine it is running on) just to run it on your local machine to
>>> test,
>>> > it
>>> > >> will be changed to the ip address of the machine it is running on
>>> when
>>> > they
>>> > >> grade it.
>>> > >>
>>> > >> On Sat, Sep 17, 2016 at 6:26 PM, David Schwehr <dpschwehr@gmail.com
>>> >
>>> > >> wrote:
>>> > >>
>>> > >>> It is getting the fire commands from the command line arguments,
>>> that
>>> > is
>>> > >>> why the client is being invoked every play. The connection is made
>>> > with the
>>> > >>> port number and IP address passed in from the command line
>>> arguments. I
>>> > >>> have already wrote the code for the connection using the socket
>>> > library.
>>> > >>> Thev ariables for the x and y coords passed from the command line
>>> are
>>> > >>> working just as you had them in your test.py, I added it to the
>>> > client.py
>>> > >>> file already. These variable will be used in the methods that send
>>> the
>>> > http
>>> > >>> message. The http and passing in the variable I think will be the
>>> easy
>>> > >>> part, some of it is done and it works. The time consuming part is
>>> > going to
>>> > >>> be writing the code to maintain the board and "serving" the
>>> display of
>>> > the
>>> > >>> board.
>>> > >>> Tracking sunk ships will work as you suggested and this will be
>>> put in
>>> > a
>>> > >>> method called from read_board or process_reply or done inside of
>>> > >>> process_reply.
>>> > >>>
>>> > >>> On Sat, Sep 17, 2016 at 6:10 PM, tyler-sassaman <
>>> > >>> notifications@github.com> wrote:
>>> > >>>
>>> > >>>> I was thinking about tracking sunk ships. Just a thought, but
>>> what if
>>> > >>>> we had a global variable for each ship (carrier = 5), and every
>>> time
>>> > we hit
>>> > >>>> that type of ship we decrement that value, and compare it to 0.
>>> so if
>>> > >>>> carrier gets to 0 then it has been hit 5 times which is the same
>>> > thing as
>>> > >>>> being sunk.
>>> > >>>>
>>> > >>>> —
>>> > >>>> You are receiving this because you authored the thread.
>>> > >>>> Reply to this email directly, view it on GitHub
>>> > >>>> <https://github.com/dssquared/Networks_Lab1/commit/
>>> > 7f5b3dc1ba8a89d303ffa5a927903a77492af920#commitcomment-19068085>,
>>> > >>>> or mute the thread
>>> > >>>> <https://github.com/notifications/unsubscribe-auth/AE8DG_y6g
>>> kDXIV5_
>>> > YwVT263okb39zDjcks5qrIFygaJpZM4J_dYG>
>>> > >>>> .
>>> > >>>>
>>> > >>>
>>> > >>>
>>> > >>
>>> > >
>>> >
>>> > —
>>> > You are receiving this because you commented.
>>> > Reply to this email directly, view it on GitHub
>>> > <https://github.com/dssquared/Networks_Lab1/commit/7f5b3dc1b
>>> a8a89d303ffa5a927903a77492af920#commitcomment-19071806>,
>>> > or mute the thread
>>> > <https://github.com/notifications/unsubscribe-auth/ANiCOS9eO
>>> _caF6oZivfhC4W6aceQXCnFks5qrYi_gaJpZM4J_dYG>
>>>
>>> > .
>>> >
>>>
>>> —
>>> You are receiving this because you authored the thread.
>>> Reply to this email directly, view it on GitHub
>>> <https://github.com/dssquared/Networks_Lab1/commit/7f5b3dc1ba8a89d303ffa5a927903a77492af920#commitcomment-19071958>,
>>> or mute the thread
>>> <https://github.com/notifications/unsubscribe-auth/AE8DG5F6ycythOV16iTCINZqZXSNnY3Fks5qrZAFgaJpZM4J_dYG>
>>> .
>>>
>>
>>
>


# hello-world

Hi there,

Writing a few testing scripts.


delette pic1/2


Hey @ianrrees ,

sorry it took me almost forever implementing it - had a lot less time to spare then expected lately - the newest commit seems to be usable now, a hand in testing would be welcome if you like. I'm yet to implement the frequency counter and modulation support.

Not quite sure if I should even use the IVI counter class, as it defines lot's of options of which the siglent would only support 3 or 4 - the help() would be polluted with a lot of unsupported stuff.

Known problems include the unability to remove/clear the arbitrary waveform memory (I couldn't find a command capable of doing it!) and that the burst mode settings being always overriden rather then read (the BTWV? command gave me some headache during testing so I discarded it for now... BTWV trigger settings are also discarded by siglent if not issued one at a time)

I've also added an arb_mode switch to choose between DDS and TrueArb, but going into burst mode will switch back to DDS as TrueArb is not supported, while setting sampling_rate instead of frequency will switch into TrueArb from DDS, as the SRATE command is not supported otherwise...

Let me know what you think - I'm new to python, so critique is welcome =)