[inst/examples/Ants/Ants.R:13:2:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L13) *style:* **Commented code should be removed.**
```r
#library(testthat) # for testing
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:19:2:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L19) *style:* **Commented code should be removed.**
```r
#torus <- FALSE
 ^~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:88:1:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L88) *style:* **Variable or function name should be lowerCamelCase.**
```r
f_fS_world <- of(world = world, var = c("food", "foodSource"), agents = patches(world))
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:99:4:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L99) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:103:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L103) *style:* **Variable or function name should be lowerCamelCase.**
```r
  nestChem_pHere <- of(world = world, agents = pHere, var = c("nest", "chemical"))
  ^~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:133:4:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L133) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:138:4:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L138) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:143:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L143) *style:* **Variable or function name should be lowerCamelCase.**
```r
  foodChem_pHere <- of(world = world, agents = pHere, var = c("food", "chemical"))
  ^~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:170:4:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L170) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:175:4:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L175) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:193:4:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L193) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:198:4:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L198) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:211:4:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L211) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:217:2:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L217) *style:* **Commented code should be removed.**
```r
#time <- 0
 ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:253:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L253) *style:* **Variable or function name should be lowerCamelCase.**
```r
  f_fS_world <- of(world = world, var = c("food", "foodSource"), agents = patches(world))
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:259:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L259) *style:* **Commented code should be removed.**
```r
  # time <- time + 1
    ^~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:260:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L260) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:263:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L263) *style:* **Commented code should be removed.**
```r
  # plot(world2raster(world)$layer.5) # food
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:264:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L264) *style:* **Commented code should be removed.**
```r
  # points(ants, pch = 16)
    ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:266:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Ants/Ants.R#L266) *style:* **Commented code should be removed.**
```r
  # expect_equivalent(NLcount(ants), nAnts)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:31:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Butterfly/Butterfly-1.R#L31) *style:* **Commented code should be removed.**
```r
# t1 <- createTurtles(n = 100, coords = cbind(xcor = 85, ycor = 95)) # can try with 100 butterflies
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:65:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Butterfly/Butterfly-1.R#L65) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:33:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L33) *style:* **Commented code should be removed.**
```r
# torus <- TRUE # just for reminder, to be used in the movement functions (e.g., fd())
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:89:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L89) *style:* **Commented code should be removed.**
```r
#   plot(world2raster(field)[[1]])
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:90:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L90) *style:* **Commented code should be removed.**
```r
#   points(sheep, pch = 16, col = "red")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:91:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L91) *style:* **Commented code should be removed.**
```r
#   points(wolves, pch = 16, col = "black")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:93:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L93) *style:* **Commented code should be removed.**
```r
#   grass <- NLset(world = grass, agents = patches(grass), val = 0) # cannot plot an empty world
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:94:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L94) *style:* **Commented code should be removed.**
```r
#   plot(grass)
    ^~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:95:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L95) *style:* **Commented code should be removed.**
```r
#   points(sheep, pch = 16, col = "red")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:96:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L96) *style:* **Commented code should be removed.**
```r
#   points(wolves, pch = 16, col = "black")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:110:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L110) *style:* **Commented code should be removed.**
```r
  # turtles <- right(turtles, angle = runif(n = NLcount(turtles), min = 0, max = 50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:111:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L111) *style:* **Commented code should be removed.**
```r
  # turtles <- left(turtles, angle = runif(n = NLcount(turtles), min = 0, max = 50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:119:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L119) *style:* **Commented code should be removed.**
```r
# # Test move()
  ^~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:120:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L120) *style:* **Commented code should be removed.**
```r
# plot(wolves@.Data[, "xcor"], wolves@.Data[, "ycor"], col = rainbow(NLcount(wolves)), pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:122:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L122) *style:* **Commented code should be removed.**
```r
#   wolves <- move(wolves)
    ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:123:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L123) *style:* **Commented code should be removed.**
```r
#   points(wolves@.Data[, "xcor"], wolves@.Data[, "ycor"], col = rainbow(NLcount(wolves)), pch = 16)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:149:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L149) *style:* **Commented code should be removed.**
```r
# # Test eatGrass()
  ^~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:150:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L150) *style:* **Commented code should be removed.**
```r
# grass <- createWorld(minPxcor = 1, maxPxcor = 10, minPycor = 1, maxPycor = 10)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:151:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L151) *style:* **Commented code should be removed.**
```r
# grass <- NLset(world = grass, agents = patches(grass), val = c(rep(1, 50), rep(0, 50)))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:152:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L152) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:153:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L153) *style:* **Commented code should be removed.**
```r
# countdown <- NLset(world = countdown, agents = patches(countdown), val = 0)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:154:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L154) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:155:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L155) *style:* **Commented code should be removed.**
```r
# sheep <- createTurtles(n = 10, coords = cbind(xcor = 1:10, ycor = 1:10))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:156:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L156) *style:* **Commented code should be removed.**
```r
# sheep <- turtlesOwn(turtles = sheep, tVar = "energy", tVal = 1:10)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:157:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L157) *style:* **Commented code should be removed.**
```r
# resultsEatGrass <- eatGrass()
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:158:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L158) *style:* **Commented code should be removed.**
```r
# fieldEat <- resultsEatGrass[[1]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:162:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L162) *style:* **Commented code should be removed.**
```r
# sheepEat <- resultsEatGrass[[2]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:163:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L163) *style:* **Commented code should be removed.**
```r
# of(agents = sheepEat, var = "energy")[6:10] == (6:10 + gainFoodSheep)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:180:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L180) *style:* **Commented code should be removed.**
```r
# # Test death()
  ^~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:185:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L185) *style:* **Commented code should be removed.**
```r
# count1 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:186:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L186) *style:* **Commented code should be removed.**
```r
# count2 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:188:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L188) *style:* **Commented code should be removed.**
```r
#   energy <- runif(NLcount(wolves), min = -10, max = 100)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:189:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L189) *style:* **Commented code should be removed.**
```r
#   wolves <- NLset(turtles = wolves, agents = wolves, var = "energy", val = energy)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:190:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L190) *style:* **Commented code should be removed.**
```r
#   count1 <- c(count1, NLcount(wolves) - length(energy[energy < 0]))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:191:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L191) *style:* **Commented code should be removed.**
```r
#   wolves <- death(wolves)
    ^~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:192:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L192) *style:* **Commented code should be removed.**
```r
#   count2 <- c(count2, NLcount(wolves))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:194:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L194) *style:* **Commented code should be removed.**
```r
# plot(1:length(count1), count1, pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:195:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L195) *style:* **Commented code should be removed.**
```r
# points(1:length(count2), count2, pch = 16, col = "red")
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:229:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L229) *style:* **Commented code should be removed.**
```r
# # Test reproduce()
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:234:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L234) *style:* **Commented code should be removed.**
```r
# count1 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:235:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L235) *style:* **Commented code should be removed.**
```r
# count2 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:237:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L237) *style:* **Commented code should be removed.**
```r
#   count1 <- c(count1,NLcount(wolves) + NLcount(wolves) * reproWolf / 100)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:238:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L238) *style:* **Commented code should be removed.**
```r
#   wolves <- reproduce(wolves, reproWolf)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:239:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L239) *style:* **Commented code should be removed.**
```r
#   count2 <- c(count2, NLcount(wolves))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:241:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L241) *style:* **Commented code should be removed.**
```r
# plot(1:length(count1), count1, pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:242:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L242) *style:* **Commented code should be removed.**
```r
# points(1:length(count2), count2, pch = 16, col = "red")
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:268:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L268) *style:* **Commented code should be removed.**
```r
# # Test catchSheep()
  ^~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:271:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L271) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:272:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L272) *style:* **Commented code should be removed.**
```r
# countdown <- NLset(world = countdown, agents = patches(countdown), val = 0)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:273:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L273) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:276:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L276) *style:* **Commented code should be removed.**
```r
# wolves <- createTurtles(n = 5, coords = cbind(xcor = 1:5, ycor = 1:5))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:277:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L277) *style:* **Commented code should be removed.**
```r
# wolves <- turtlesOwn(turtles = wolves, tVar = "energy", tVal = 1:5)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:278:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L278) *style:* **Commented code should be removed.**
```r
# catchSheepResults <- catchSheep()
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:279:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L279) *style:* **Commented code should be removed.**
```r
# sheepCatch <- catchSheepResults[[1]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:280:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L280) *style:* **Commented code should be removed.**
```r
# wolvesCatch <- catchSheepResults[[2]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:281:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L281) *style:* **Commented code should be removed.**
```r
# NLcount(sheepCatch) == 5
  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:282:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L282) *style:* **Commented code should be removed.**
```r
# NLcount(wolvesCatch) == 5
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:283:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L283) *style:* **Commented code should be removed.**
```r
# of(agents = wolvesCatch, var = "energy") == (1:5 + gainFoodWolf)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:315:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L315) *style:* **Commented code should be removed.**
```r
# # Test growGrass()
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:316:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L316) *style:* **Commented code should be removed.**
```r
# grass <- createWorld(1, 5, 1, 5)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:317:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L317) *style:* **Commented code should be removed.**
```r
# grass <- NLset(world = grass, agents = patches(grass), val = c(rep(1, 10), rep(0, 15)))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:318:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L318) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:321:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L321) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:322:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L322) *style:* **Commented code should be removed.**
```r
# fieldGrow <- growGrass()
  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:323:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L323) *style:* **Commented code should be removed.**
```r
# of(world = fieldGrow, agents = patches(fieldGrow), var = "grass") == c(rep(1, 15), rep(0, 10))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:332:6:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L332) *style:* **Place a space before left parenthesis, except in a function call.**
```r
while((NLany(sheep) | NLany(wolves)) & time < maxTime) {
     ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:332:7:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L332) *style:* **Place a space before left parenthesis, except in a function call.**
```r
while((NLany(sheep) | NLany(wolves)) & time < maxTime) {
      ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:379:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L379) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:64:1:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L64) *style:* **Variable or function name should be lowerCamelCase.**
```r
doEvent.WolfSheepPredation = function(sim, eventTime, eventType, debug = FALSE) {
^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:64:28:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L64) *style:* **Use <-, not =, for assignment.**
```r
doEvent.WolfSheepPredation = function(sim, eventTime, eventType, debug = FALSE) {
                           ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:113:1:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L113) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationInit <- function(sim) {
^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:185:1:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L185) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationSave <- function(sim) {
^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:199:1:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L199) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationPosition <- function(sim) { # Plot the positions
^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:199:45:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L199) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
WolfSheepPredationPosition <- function(sim) { # Plot the positions
                                            ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:223:1:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L223) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationPopSize <- function(sim) {
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:246:1:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L246) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationEvent <- function(sim){
^~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:332:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L332) *style:* **Commented code should be removed.**
```r
  # turtles <- right(turtles, angle = runif(n = NLcount(turtles), min = 0, max = 50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:333:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L333) *style:* **Commented code should be removed.**
```r
  # turtles <- left(turtles, angle = runif(n = NLcount(turtles), min = 0, max = 50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/agentset-functions.R:2014:11:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/agentset-functions.R#L2014) *style:* **Variable or function name should be lowerCamelCase.**
```r
          var_k <- match(var, dimnames(world@.Data)[[3]])
          ^~~~~
```
[R/agentset-functions.R:2020:13:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/agentset-functions.R#L2020) *style:* **Variable or function name should be lowerCamelCase.**
```r
            val_i <- val[, var[i]]
            ^~~~~
```
[R/agentset-functions.R:2023:15:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/agentset-functions.R#L2023) *style:* **Variable or function name should be lowerCamelCase.**
```r
              val_i <- rep(val_i, NROW(agents))
              ^~~~~
```
[R/agentset-functions.R:2048:14:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/agentset-functions.R#L2048) *style:* **Variable or function name should be lowerCamelCase.**
```r
             var_k <- match(var[i], dimnames(world@.Data)[[3]])
             ^~~~~
```
[R/Classes.R:94:12:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L94) *style:* **Variable or function name should be lowerCamelCase.**
```r
  function(.Object="agentMatrix", coords, ..., levelsAM) {
           ^~~~~~~
```
[R/Classes.R:95:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L95) *style:* **Variable or function name should be lowerCamelCase.**
```r
    Coords <- TRUE
    ^~~~~~
```
[R/Classes.R:108:7:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L108) *style:* **Variable or function name should be lowerCamelCase.**
```r
      Coords <- FALSE
      ^~~~~~
```
[R/Classes.R:129:41:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L129) *style:* **Commented code should be removed.**
```r
          .Object@levels <- list(NULL) #rep(list(NULL), ncol(.Object@.Data))
                                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:130:12:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L130) *style:* **Commented code should be removed.**
```r
          #names(.Object@levels) <- colnames(otherCols)
           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:159:10:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L159) *style:* **Commented code should be removed.**
```r
        #charCols <- names(charCols)[charCols]
         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:180:11:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L180) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if ((is.matrix(dotCols[[1]]) & is.numeric(dotCols[[1]])) | is(dotCols[[1]], "agentMatrix"))
          ^
```
[R/Classes.R:484:6:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L484) *style:* **Commented code should be removed.**
```r
    #charCols <- match(j, nam)
     ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:485:6:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L485) *style:* **Commented code should be removed.**
```r
    #charCols <- match(nam, j)
     ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:486:34:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L486) *style:* **Commented code should be removed.**
```r
    numCols <- which(!charCols) #colNums[!(colNums %in% charCols)]
                                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:493:8:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L493) *style:* **Commented code should be removed.**
```r
      #numColsJ <- which(colNums %in% numCols)
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:498:8:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L498) *style:* **Commented code should be removed.**
```r
      #charColsJ <- which(colNums %in% charCols)
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:672:17:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L672) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    show(tmp[, -(1:2), drop = FALSE])
                ^
```
[R/Classes.R:705:1:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L705) *style:* **Variable or function name should be lowerCamelCase.**
```r
head.agentMatrix <- function(x, n = 6L, ...) {
^~~~~~~~~~~~~~~~
```
[R/Classes.R:714:1:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L714) *style:* **Variable or function name should be lowerCamelCase.**
```r
tail.agentMatrix <- function(x, n = 6L, ...) {
^~~~~~~~~~~~~~~~
```
[R/Classes.R:736:36:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L736) *style:* **Variable or function name should be lowerCamelCase.**
```r
cbind.agentMatrix <- function(..., deparse.level) {
                                   ^~~~~~~~~~~~~
```
[R/Classes.R:745:39:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L745) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if (any(colnames(tmp[[1]]@.Data)[-(1:2)] %in% colnames(tmp[[2]]@.Data)[-(1:2)])) {
                                      ^
```
[R/Classes.R:745:77:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L745) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if (any(colnames(tmp[[1]]@.Data)[-(1:2)] %in% colnames(tmp[[2]]@.Data)[-(1:2)])) {
                                                                            ^
```
[R/Classes.R:761:36:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L761) *style:* **Variable or function name should be lowerCamelCase.**
```r
rbind.agentMatrix <- function(..., deparse.level = 1) {
                                   ^~~~~~~~~~~~~
```
[R/Classes.R:775:16:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L775) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        mat[, -(1:2)],
               ^
```
[R/Classes.R:779:18:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L779) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          mat[, -(1:2), drop = FALSE])
                 ^
```
[R/Classes.R:786:52:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L786) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    new("agentMatrix", coords = mat[, 1:2], mat[, -(1:2)])
                                                   ^
```
[R/Classes.R:827:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L827) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Ras <- world2raster(x)
  ^~~
```
[R/Classes.R:843:3:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/Classes.R#L843) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Ras <- world2raster(x)
  ^~~
```
[R/NetLogoR-classes.R:342:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/NetLogoR-classes.R#L342) *style:* **Variable or function name should be lowerCamelCase.**
```r
    NLwMs <- list(...)
    ^~~~~
```
[R/NetLogoR-classes.R:507:11:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/NetLogoR-classes.R#L507) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    floor((cellNum - 1) / b[2]) + seq.int(from = 1, to = prod(b),
          ^
```
[R/patch-functions.R:77:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L77) *style:* **Variable or function name should be lowerCamelCase.**
```r
    DT <- data.table(df, toGiveNeigh)
    ^~
```
[R/patch-functions.R:79:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L79) *style:* **Variable or function name should be lowerCamelCase.**
```r
    DT <- DT[, loose := sum(toGiveNeigh), by = from] # how much each patch give
    ^~
```
[R/patch-functions.R:82:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L82) *style:* **Variable or function name should be lowerCamelCase.**
```r
    DT <- DT[, win := sum(toGiveNeigh), by = to] # how much each patch receive
    ^~
```
[R/patch-functions.R:109:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L109) *style:* **Variable or function name should be lowerCamelCase.**
```r
    DT <- data.table(df, toGiveNeigh)
    ^~
```
[R/patch-functions.R:111:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L111) *style:* **Variable or function name should be lowerCamelCase.**
```r
    DT <- DT[, loose := sum(toGiveNeigh), by = from] # how much each patch give
    ^~
```
[R/patch-functions.R:114:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L114) *style:* **Variable or function name should be lowerCamelCase.**
```r
    DT <- DT[, win := sum(toGiveNeigh), by = to] # how much each patch receive
    ^~
```
[R/patch-functions.R:372:7:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L372) *style:* **Variable or function name should be lowerCamelCase.**
```r
      neighbors_df <- data.frame(neighbors, pCoords)
      ^~~~~~~~~~~~
```
[R/patch-functions.R:375:7:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L375) *style:* **Variable or function name should be lowerCamelCase.**
```r
      neighbors_df <- neighbors_df[order(neighbors_df$id), ]
      ^~~~~~~~~~~~
```
[R/patch-functions.R:465:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L465) *style:* **Variable or function name should be lowerCamelCase.**
```r
    pxcor_ <- round(x)
    ^~~~~~
```
[R/patch-functions.R:466:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L466) *style:* **Variable or function name should be lowerCamelCase.**
```r
    pycor_ <- round(y)
    ^~~~~~
```
[R/patch-functions.R:470:7:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L470) *style:* **Variable or function name should be lowerCamelCase.**
```r
      pxcor_ <- pCoords[, 1]
      ^~~~~~
```
[R/patch-functions.R:471:7:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L471) *style:* **Variable or function name should be lowerCamelCase.**
```r
      pycor_ <- pCoords[, 2]
      ^~~~~~
```
[R/patch-functions.R:480:7:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L480) *style:* **Variable or function name should be lowerCamelCase.**
```r
      pxcor_ <- pxcor_[!is.na(pxcor_)]
      ^~~~~~
```
[R/patch-functions.R:481:7:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L481) *style:* **Variable or function name should be lowerCamelCase.**
```r
      pycor_ <- pycor_[!is.na(pycor_)]
      ^~~~~~
```
[R/patch-functions.R:616:1:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/patch-functions.R#L616) *style:* **Lines should not be more than 100 characters.**
```r
#' @seealso \url{https://ccl.northwestern.edu/netlogo/docs/dictionary.html#patch-at-heading-and-distance}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spades-functions.R:65:29:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L65) *style:* **Variable or function name should be lowerCamelCase.**
```r
setGeneric("wrap", function(X, bounds, withHeading) {
                            ^
```
[R/spades-functions.R:74:25:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L74) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/spades-functions.R:91:25:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L91) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/spades-functions.R:101:25:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L101) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/spades-functions.R:102:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L102) *style:* **Variable or function name should be lowerCamelCase.**
```r
    X <- wrap(X, bounds = extent(bounds))
    ^
```
[R/spades-functions.R:111:25:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L111) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/spades-functions.R:112:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L112) *style:* **Variable or function name should be lowerCamelCase.**
```r
    X <- wrap(X, bounds = extent(bounds))
    ^
```
[R/spades-functions.R:121:25:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L121) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/spades-functions.R:124:7:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L124) *style:* **Variable or function name should be lowerCamelCase.**
```r
      X <- wrap(X, bounds = extent(bounds))
      ^
```
[R/spades-functions.R:136:25:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L136) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds, withHeading) {
                        ^
```
[R/spades-functions.R:161:25:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L161) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds, withHeading) {
                        ^
```
[R/spades-functions.R:162:5:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L162) *style:* **Variable or function name should be lowerCamelCase.**
```r
    X <- wrap(X, bounds = extent(bounds), withHeading = withHeading)
    ^
```
[R/spades-functions.R:171:25:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L171) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds, withHeading) {
                        ^
```
[R/spades-functions.R:174:7:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/spades-functions.R#L174) *style:* **Variable or function name should be lowerCamelCase.**
```r
      X <- wrap(X, bounds = extent(bounds), withHeading = withHeading)
      ^
```
[R/turtle-functions.R:93:32:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L93) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    coords <- cbind(xcor = rep(((maxPxcor(world) - minPxcor(world)) / 2) + minPxcor(world), n),
                               ^
```
[R/turtle-functions.R:93:33:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L93) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    coords <- cbind(xcor = rep(((maxPxcor(world) - minPxcor(world)) / 2) + minPxcor(world), n),
                                ^
```
[R/turtle-functions.R:94:32:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L94) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                    ycor = rep(((maxPycor(world) - minPycor(world)) / 2) + minPycor(world), n))
                               ^
```
[R/turtle-functions.R:94:33:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L94) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                    ycor = rep(((maxPycor(world) - minPycor(world)) / 2) + minPycor(world), n))
                                ^
```
[R/turtle-functions.R:455:35:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L455) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                          xcor = ((world@extent@xmax - world@extent@xmin) / 2) +
                                  ^
```
[R/turtle-functions.R:457:35:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L457) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                          ycor = ((world@extent@ymax - world@extent@ymin) / 2) +
                                  ^
```
[R/turtle-functions.R:1002:9:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L1002) *style:* **Variable or function name should be lowerCamelCase.**
```r
        dist_agents2 <- pointDistance(p1 = agents, p2 = agents2, lonlat = FALSE, allpairs = FALSE)
        ^~~~~~~~~~~~
```
[R/turtle-functions.R:1003:9:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L1003) *style:* **Variable or function name should be lowerCamelCase.**
```r
        dist_to1 <- pointDistance(p1 = agents, p2 = to1, lonlat = FALSE, allpairs = FALSE)
        ^~~~~~~~
```
[R/turtle-functions.R:1004:9:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L1004) *style:* **Variable or function name should be lowerCamelCase.**
```r
        dist_to2 <- pointDistance(p1 = agents, p2 = to2, lonlat = FALSE, allpairs = FALSE)
        ^~~~~~~~
```
[R/turtle-functions.R:1005:9:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L1005) *style:* **Variable or function name should be lowerCamelCase.**
```r
        dist_to3 <- pointDistance(p1 = agents, p2 = to3, lonlat = FALSE, allpairs = FALSE)
        ^~~~~~~~
```
[R/turtle-functions.R:1006:9:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L1006) *style:* **Variable or function name should be lowerCamelCase.**
```r
        dist_to4 <- pointDistance(p1 = agents, p2 = to4, lonlat = FALSE, allpairs = FALSE)
        ^~~~~~~~
```
[R/turtle-functions.R:1007:9:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L1007) *style:* **Variable or function name should be lowerCamelCase.**
```r
        dist_to5 <- pointDistance(p1 = agents, p2 = to5, lonlat = FALSE, allpairs = FALSE)
        ^~~~~~~~
```
[R/turtle-functions.R:1008:9:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L1008) *style:* **Variable or function name should be lowerCamelCase.**
```r
        dist_to6 <- pointDistance(p1 = agents, p2 = to6, lonlat = FALSE, allpairs = FALSE)
        ^~~~~~~~
```
[R/turtle-functions.R:1009:9:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L1009) *style:* **Variable or function name should be lowerCamelCase.**
```r
        dist_to7 <- pointDistance(p1 = agents, p2 = to7, lonlat = FALSE, allpairs = FALSE)
        ^~~~~~~~
```
[R/turtle-functions.R:1010:9:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L1010) *style:* **Variable or function name should be lowerCamelCase.**
```r
        dist_to8 <- pointDistance(p1 = agents, p2 = to8, lonlat = FALSE, allpairs = FALSE)
        ^~~~~~~~
```
[R/turtle-functions.R:1949:9:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L1949) *style:* **Commented code should be removed.**
```r
      # newTurtlesBreed <- of(agents = newTurtles, var = "breed")
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/turtle-functions.R:1950:9:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L1950) *style:* **Commented code should be removed.**
```r
      # newTurtlesColor <- of(agents = newTurtles, var = "color")
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/turtle-functions.R:1952:9:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L1952) *style:* **Commented code should be removed.**
```r
      # turtles@.Data <- rbind(turtles@.Data, newTurtles@.Data)
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/turtle-functions.R:2860:61:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/R/turtle-functions.R#L2860) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      pCoords <- agents[!duplicated(rbind(except, agents))[-(1:nrow(except))], ]
                                                            ^
```
[tests/test-all.R:4:2:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/test-all.R#L4) *style:* **Commented code should be removed.**
```r
#test_package("NetLogoR")
 ^~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-agentMatrix.R:16:49:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L16) *style:* **Commas should always have a space after.**
```r
                   levelsAM = list(char = c("a","b","f"),
                                                ^
```
[tests/testthat/test-agentMatrix.R:16:53:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L16) *style:* **Commas should always have a space after.**
```r
                   levelsAM = list(char = c("a","b","f"),
                                                    ^
```
[tests/testthat/test-agentMatrix.R:28:49:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L28) *style:* **Commas should always have a space after.**
```r
                   levelsAM = list(char = c("a","b","f"),
                                                ^
```
[tests/testthat/test-agentMatrix.R:28:53:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L28) *style:* **Commas should always have a space after.**
```r
                   levelsAM = list(char = c("a","b","f"),
                                                    ^
```
[tests/testthat/test-agentMatrix.R:40:35:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L40) *style:* **Commas should always have a space after.**
```r
     levelsAM = list(char = c("a","b","f"),
                                  ^
```
[tests/testthat/test-agentMatrix.R:40:39:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L40) *style:* **Commas should always have a space after.**
```r
     levelsAM = list(char = c("a","b","f"),
                                      ^
```
[tests/testthat/test-agentMatrix.R:82:49:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L82) *style:* **Commas should always have a space after.**
```r
   expect_equal(dim(coordinates(newAgent)), c(3,2))
                                                ^
```
[tests/testthat/test-agentMatrix.R:103:1:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L103) *style:* **Lines should not be more than 100 characters.**
```r
   expect_equal(colnames(newAgent), c("xcor", "ycor", "char1", "char2", "nums1", "char3", "char4", "nums2"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-agentMatrix.R:115:49:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L115) *style:* **Commas should always have a space after.**
```r
   expect_equal(dim(coordinates(newAgent)), c(3,2))
                                                ^
```
[tests/testthat/test-agentMatrix.R:116:1:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L116) *style:* **Lines should not be more than 100 characters.**
```r
   expect_equal(colnames(newAgent), c("xcor", "ycor", "char1", "char2", "nums1", "char3", "char4", "nums2"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-agentMatrix.R:123:15:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L123) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
       spdf = {SpatialPointsDataFrame(
              ^
```
[tests/testthat/test-agentMatrix.R:130:19:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L130) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
       agentMat = {agentMatrix(
                  ^
```
[tests/testthat/test-agentMatrix.R:137:25:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L137) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
       agentMatDirect = {new("agentMatrix",
                        ^
```
[tests/testthat/test-agentMatrix.R:145:26:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L145) *style:* **Put spaces around all infix operators.**
```r
   expect_gt(mb$median[1]/mb$median[3], 3) # expect it is 3 times faster
                        ~^~
```
[tests/testthat/test-agentMatrix.R:148:6:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L148) *style:* **Place a space before left parenthesis, except in a function call.**
```r
   if(require(sf)) {
     ^
```
[tests/testthat/test-agentMatrix.R:159:15:](https://github.com/PredictiveEcology/NetLogoR/blob/8d4f8e988c398c97340166d78c13b339518de211/tests/testthat/test-agentMatrix.R#L159) *style:* **Use <-, not =, for assignment.**
```r
           a1 = st_point(cbind(1, 3))


Subclass first UML diagram


It also looks like this release has compiled without any issues  but did not upload to github. I believe it got an authentication token error.. I'll see if I can figure this  out.

Eugene.


@nataly2012 Если ты просто хочешь вывести число функцией print, то его не обязательно преобразовывать в строку


No, what I meant was that you can do:
```rust
*timeout = group_commit_queues.duration_until_flush()
    .or_else(|| {
        let now = time::Instant::now();
        self.buffered_replay_requests
            .iter()
            .min_by_key(|&(_, &(first, _))| first)
            .map(|earliest| {
                self.replay_batch_timeout
                    .checked_sub(now.duration_since(earliest))
                    .unwrap_or(time::Duration::from_millis(0))
            })
    })
```
It's about the same length, but should be faster.

Also, maybe file a ticket/PR for `Duration::saturating_sub`? :p


I will take a look at it. I agree ( sort of ) to what Grog is writing.
I would like to populate the dropdownlist of pins based on the Analog input pins that are available for each specific controller.

But....
Should it be a requirement that the controller has been attached  before the pin can been selected ?
or
Should it be a requirement that both the controller and the pin has been selected  before you can attach ?

The answer to that question has quite a lot of impact on the logic in the attach and also the design of the gui(s).

I'm currently trying to implement the attach/detach logic for MotorDualPwm, but the question above is relevant for all attach/detach logic.

So a clean definition of what isAttached(...) really means would be good.
Either:
There is a two way binding between the control/controller ?
or
All configuration parameters have been setup and there is a two way binding between the control/controller.


You can just use `0x3D9` instead of `0 * 0xF8 + 0x3D9` because it's the first element. Multiplying by zero is a waste of time.


<img width="1082" alt="screen shot 2017-09-29 at 10 55 26 pm" src="https://user-images.githubusercontent.com/1548835/31024558-a0254336-a569-11e7-83c5-15a44331c7b2.png">


nice shit.


@nataly2012  Можно было и так `n = num%1` :) Попробуй ))


@enumag Thanks ;)


How to run ?


K


I didn't change anything else.

It was written on xcode 8. Haven't had a chance to run through it on 9 yet unfortunately.


fgets возвращает NULL при ошибке или конце файла.
dict - открытый словарь. Если открыть не получилось, то в предыдущем if завершение программы.


Sure, I just copied your name from GitHub.


There is a missing `|` at the end of those lines


How to run ?
How to get token ?


@cemion А если бы мы вводили float число? ;)


@cemion А знаешь, как взять корень квадратный не использую библиотеку math?


This is the cause of #212.