[inst/examples/Ants/Ants.R:13:2:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Ants/Ants.R#L217) *style:* **Commented code should be removed.**
```r
#time <- 0
 ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:218:40:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Ants/Ants.R#L218) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
while (sum(f_fS_world[, "food"]) != 0) { # as long as there is food in the world
                                       ^
```
[inst/examples/Ants/Ants.R:251:3:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Ants/Ants.R#L251) *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:257:5:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Ants/Ants.R#L257) *style:* **Commented code should be removed.**
```r
  # time <- time + 1
    ^~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:258:5:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Ants/Ants.R#L258) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:261:5:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Ants/Ants.R#L261) *style:* **Commented code should be removed.**
```r
  # plot(world2raster(world)$layer.5) # food
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:262:5:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Ants/Ants.R#L262) *style:* **Commented code should be removed.**
```r
  # points(ants, pch = 16)
    ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:264:5:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Ants/Ants.R#L264) *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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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:222:1:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L222) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationPopSize <- function(sim) {  # Plot the population sizes
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:222:44:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L222) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
WolfSheepPredationPopSize <- function(sim) {  # Plot the population sizes
                                           ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:246:1:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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:331:26:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L331) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
move <- function(turtles){ # sheep and wolves
                         ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:332:5:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/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))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:341:27:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L341) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
death <- function(turtles){ # sheep and wolves
                          ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:354:45:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L354) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
reproduce <- function(turtles, reproTurtles){ # sheep and wolves
                                            ^
```
[R/agentset-functions.R:261:32:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L261) *style:* **Commas should always have a space after.**
```r
    agentsVal <- world[agents[,1], agents[,2]]
                               ^
```
[R/agentset-functions.R:261:44:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L261) *style:* **Commas should always have a space after.**
```r
    agentsVal <- world[agents[,1], agents[,2]]
                                           ^
```
[R/agentset-functions.R:262:40:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L262) *style:* **Commas should always have a space after.**
```r
    pCoords <- agents[order(agentsVal),]
                                       ^
```
[R/agentset-functions.R:274:32:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L274) *style:* **Commas should always have a space after.**
```r
    agentsVal <- world[agents[,1], agents[,2]]
                               ^
```
[R/agentset-functions.R:274:44:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L274) *style:* **Commas should always have a space after.**
```r
    agentsVal <- world[agents[,1], agents[,2]]
                                           ^
```
[R/agentset-functions.R:275:40:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L275) *style:* **Commas should always have a space after.**
```r
    pCoords <- agents[order(agentsVal[,var]),]
                                       ^
```
[R/agentset-functions.R:275:46:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L275) *style:* **Commas should always have a space after.**
```r
    pCoords <- agents[order(agentsVal[,var]),]
                                             ^
```
[R/agentset-functions.R:288:56:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L288) *style:* **Commas should always have a space after.**
```r
      agents@.Data <- agents@.Data[order(agents@.Data[,var]),]
                                                       ^
```
[R/agentset-functions.R:288:62:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L288) *style:* **Commas should always have a space after.**
```r
      agents@.Data <- agents@.Data[order(agents@.Data[,var]),]
                                                             ^
```
[R/agentset-functions.R:356:35:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L356) *style:* **Commas should always have a space after.**
```r
    agentsValues <- world[agents[,1], agents[,2]]
                                  ^
```
[R/agentset-functions.R:356:47:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L356) *style:* **Commas should always have a space after.**
```r
    agentsValues <- world[agents[,1], agents[,2]]
                                              ^
```
[R/agentset-functions.R:370:69:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L370) *style:* **Commas should always have a space after.**
```r
    agentsCell <- cellFromPxcorPycor(world = world, pxcor = agents[,1], pycor = agents[,2])
                                                                    ^
```
[R/agentset-functions.R:370:89:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L370) *style:* **Commas should always have a space after.**
```r
    agentsCell <- cellFromPxcorPycor(world = world, pxcor = agents[,1], pycor = agents[,2])
                                                                                ^
```
[R/agentset-functions.R:371:41:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L371) *style:* **Commas should always have a space after.**
```r
    allVal <- as.numeric(t(world@.Data[,,var])) # t() to retrieve the values by rows
                                        ^
```
[R/agentset-functions.R:385:20:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L385) *style:* **Put spaces around all infix operators.**
```r
    if (length(val)==1) { # simpler for speed if only 1 val
                  ~^~~
```
[R/agentset-functions.R:385:25:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L385) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (length(val)==1) { # simpler for speed if only 1 val
                        ^
```
[R/agentset-functions.R:387:64:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L387) *style:* **Commas should always have a space after.**
```r
        toReturn <- (agents[agents@levels[[var]][agents@.Data[,var]] == val,])
                                                               ^
```
[R/agentset-functions.R:387:77:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L387) *style:* **Commas should always have a space after.**
```r
        toReturn <- (agents[agents@levels[[var]][agents@.Data[,var]] == val,])
                                                                            ^
```
[R/agentset-functions.R:389:42:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L389) *style:* **Commas should always have a space after.**
```r
        toReturn <- agents[agents@.Data[,var] == val,]
                                         ^
```
[R/agentset-functions.R:389:54:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L389) *style:* **Commas should always have a space after.**
```r
        toReturn <- agents[agents@.Data[,var] == val,]
                                                     ^
```
[R/agentset-functions.R:393:64:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L393) *style:* **Commas should always have a space after.**
```r
        toReturn <- (agents[agents@levels[[var]][agents@.Data[,var]] %in% val,])
                                                               ^
```
[R/agentset-functions.R:393:79:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L393) *style:* **Commas should always have a space after.**
```r
        toReturn <- (agents[agents@levels[[var]][agents@.Data[,var]] %in% val,])
                                                                              ^
```
[R/agentset-functions.R:395:42:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L395) *style:* **Commas should always have a space after.**
```r
        toReturn <- agents[agents@.Data[,var] %in% val,]
                                         ^
```
[R/agentset-functions.R:395:56:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L395) *style:* **Commas should always have a space after.**
```r
        toReturn <- agents[agents@.Data[,var] %in% val,]
                                                       ^
```
[R/agentset-functions.R:399:44:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L399) *style:* **Commas should always have a space after.**
```r
    return(toReturn[!is.na(toReturn@.Data[,"who"]),])
                                           ^
```
[R/agentset-functions.R:399:52:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L399) *style:* **Commas should always have a space after.**
```r
    return(toReturn[!is.na(toReturn@.Data[,"who"]),])
                                                   ^
```
[R/agentset-functions.R:686:26:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L686) *style:* **Commas should always have a space after.**
```r
    return(maxAgents[row,,drop = FALSE])
                         ^
```
[R/agentset-functions.R:698:26:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L698) *style:* **Commas should always have a space after.**
```r
    return(maxAgents[row,,drop = FALSE])
                         ^
```
[R/agentset-functions.R:710:26:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L710) *style:* **Commas should always have a space after.**
```r
    return(maxAgents[row,])
                         ^
```
[R/agentset-functions.R:781:26:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L781) *style:* **Commas should always have a space after.**
```r
    return(minAgents[row,,drop = FALSE])
                         ^
```
[R/agentset-functions.R:793:26:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L793) *style:* **Commas should always have a space after.**
```r
    return(minAgents[row,,drop = FALSE])
                         ^
```
[R/agentset-functions.R:805:26:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L805) *style:* **Commas should always have a space after.**
```r
    return(minAgents[row,])
                         ^
```
[R/agentset-functions.R:875:41:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L875) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (class(agents) == "agentMatrix") { # turtles
                                        ^
```
[R/agentset-functions.R:884:1:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L884) *style:* **Lines should not be more than 100 characters.**
```r
      if (all(colnames(agents@.Data)[1:8] == c("xcor", "ycor", "who", "heading", "prevX", "prevY", "breed", "color")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/agentset-functions.R:996:41:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L996) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (class(agents) == "agentMatrix") { # agentMatrix
                                        ^
```
[R/agentset-functions.R:1000:29:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1000) *style:* **Commas should always have a space after.**
```r
      turtles <- agents[row,]
                            ^
```
[R/agentset-functions.R:1005:63:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1005) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (ncol(agents) == 2 & colnames(agents)[1] == "pxcor") { # patches
                                                              ^
```
[R/agentset-functions.R:1008:31:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1008) *style:* **Commas should always have a space after.**
```r
        patches <- agents[row,, drop = FALSE]
                              ^
```
[R/agentset-functions.R:1011:14:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1011) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      } else { # patches
             ^
```
[R/agentset-functions.R:1017:34:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1017) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
          if (ncol(agents) == 3) { # patches with id
                                 ^
```
[R/agentset-functions.R:1020:45:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1020) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
                          FUN = function(x) {sample(x, size = n, replace = FALSE)})
                                            ^
```
[R/agentset-functions.R:1024:18:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1024) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
          } else { # whoNUmbers of turtles with id
                 ^
```
[R/agentset-functions.R:1027:45:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1027) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
                          FUN = function(x) {sample(x, size = n, replace = FALSE)})
                                            ^
```
[R/agentset-functions.R:1113:41:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1113) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (class(agents) == "agentMatrix") { # agentMatrix
                                        ^
```
[R/agentset-functions.R:1119:63:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1119) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (ncol(agents) == 2 & colnames(agents)[1] == "pxcor") { # patches
                                                              ^
```
[R/agentset-functions.R:1122:37:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1122) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      } else if (ncol(agents) == 3) { # patches with id
                                    ^
```
[R/agentset-functions.R:1126:14:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1126) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      } else { # whoNUmbers of turtles with id
             ^
```
[R/agentset-functions.R:1127:42:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1127) *style:* **Commas should always have a space after.**
```r
        whoTurtles <- tapply(X = agents[,"whoTurtles"], INDEX = as.factor(agents[, "id"]),
                                         ^
```
[R/agentset-functions.R:1128:48:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1128) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
                             FUN = function(x) {ifelse(length(x) == 1, x, sample(x, size = 1))})
                                               ^
```
[R/agentset-functions.R:1207:48:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1207) *style:* **Commas should always have a space after.**
```r
      agentsVal <- agentsVal[order(-agentsVal[,"val"]),] # decreasing order
                                               ^
```
[R/agentset-functions.R:1207:56:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1207) *style:* **Commas should always have a space after.**
```r
      agentsVal <- agentsVal[order(-agentsVal[,"val"]),] # decreasing order
                                                       ^
```
[R/agentset-functions.R:1210:41:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1210) *style:* **Commas should always have a space after.**
```r
      maxAgents <- agentsVal[agentsVal[,"val"] >= minVal, , drop = FALSE]
                                        ^
```
[R/agentset-functions.R:1215:54:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1215) *style:* **Commas should always have a space after.**
```r
        toKeep <- sample(1:NROW(maxAgents[maxAgents[,"val"] == minVal,]),
                                                     ^
```
[R/agentset-functions.R:1215:71:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1215) *style:* **Commas should always have a space after.**
```r
        toKeep <- sample(1:NROW(maxAgents[maxAgents[,"val"] == minVal,]),
                                                                      ^
```
[R/agentset-functions.R:1216:1:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1216) *style:* **Lines should not be more than 100 characters.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/agentset-functions.R:1216:59:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1216) *style:* **Commas should always have a space after.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
                                                          ^
```
[R/agentset-functions.R:1216:76:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1216) *style:* **Commas should always have a space after.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
                                                                           ^
```
[R/agentset-functions.R:1216:79:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1216) *style:* **Put spaces around all infix operators.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
                                                                              ^~
```
[R/agentset-functions.R:1217:49:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1217) *style:* **Commas should always have a space after.**
```r
        maxAgents <- rbind(maxAgents[maxAgents[,"val"] > minVal,],
                                                ^
```
[R/agentset-functions.R:1217:65:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1217) *style:* **Commas should always have a space after.**
```r
        maxAgents <- rbind(maxAgents[maxAgents[,"val"] > minVal,],
                                                                ^
```
[R/agentset-functions.R:1218:49:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1218) *style:* **Commas should always have a space after.**
```r
                           maxAgents[maxAgents[,"val"] == minVal,][toKeep,])
                                                ^
```
[R/agentset-functions.R:1218:66:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1218) *style:* **Commas should always have a space after.**
```r
                           maxAgents[maxAgents[,"val"] == minVal,][toKeep,])
                                                                 ^
```
[R/agentset-functions.R:1218:75:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1218) *style:* **Commas should always have a space after.**
```r
                           maxAgents[maxAgents[,"val"] == minVal,][toKeep,])
                                                                          ^
```
[R/agentset-functions.R:1221:25:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1221) *style:* **Commas should always have a space after.**
```r
      return(maxAgents[,c("pxcor", "pycor"), drop = FALSE])
                        ^
```
[R/agentset-functions.R:1243:48:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1243) *style:* **Commas should always have a space after.**
```r
      agentsVal <- agentsVal[order(-agentsVal[,"val"]),] # decreasing order
                                               ^
```
[R/agentset-functions.R:1243:56:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1243) *style:* **Commas should always have a space after.**
```r
      agentsVal <- agentsVal[order(-agentsVal[,"val"]),] # decreasing order
                                                       ^
```
[R/agentset-functions.R:1246:41:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1246) *style:* **Commas should always have a space after.**
```r
      maxAgents <- agentsVal[agentsVal[,"val"] >= minVal, , drop = FALSE]
                                        ^
```
[R/agentset-functions.R:1251:54:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1251) *style:* **Commas should always have a space after.**
```r
        toKeep <- sample(1:NROW(maxAgents[maxAgents[,"val"] == minVal,]),
                                                     ^
```
[R/agentset-functions.R:1251:71:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1251) *style:* **Commas should always have a space after.**
```r
        toKeep <- sample(1:NROW(maxAgents[maxAgents[,"val"] == minVal,]),
                                                                      ^
```
[R/agentset-functions.R:1252:1:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1252) *style:* **Lines should not be more than 100 characters.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/agentset-functions.R:1252:59:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1252) *style:* **Commas should always have a space after.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
                                                          ^
```
[R/agentset-functions.R:1252:76:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1252) *style:* **Commas should always have a space after.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
                                                                           ^
```
[R/agentset-functions.R:1252:79:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1252) *style:* **Put spaces around all infix operators.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
                                                                              ^~
```
[R/agentset-functions.R:1253:49:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1253) *style:* **Commas should always have a space after.**
```r
        maxAgents <- rbind(maxAgents[maxAgents[,"val"] > minVal,],
                                                ^
```
[R/agentset-functions.R:1253:65:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1253) *style:* **Commas should always have a space after.**
```r
        maxAgents <- rbind(maxAgents[maxAgents[,"val"] > minVal,],
                                                                ^
```
[R/agentset-functions.R:1254:49:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1254) *style:* **Commas should always have a space after.**
```r
                           maxAgents[maxAgents[,"val"] == minVal,][toKeep,])
                                                ^
```
[R/agentset-functions.R:1254:66:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1254) *style:* **Commas should always have a space after.**
```r
                           maxAgents[maxAgents[,"val"] == minVal,][toKeep,])
                                                                 ^
```
[R/agentset-functions.R:1254:75:](https://github.com/PredictiveEcology/NetLogoR/blob/170d2c20be581c45d80c9ab3dac9d5f39f6ec6cc/R/agentset-functions.R#L1254) *style:* **Commas should always have a space after.**
```r
                           maxAgents[maxAgents[,"val"] == minVal,][toKeep,])


@danmosemsft said that we needed them for unix (netstandard) and desktop (netfx).


Bang cara run gmba please help me.. termux version


First App Trail


on it.


@yakov116 test


test


This looks like a typo.


listo, gracias


How was this not a breaking change?


This commit has been mentioned on **Discourse Meta**. There might be relevant details there:

https://meta.discourse.org/t/automatic-actions-based-on-words-found-in-posts/66878/6


You beat me to it.


Oh, I wasn't even aware of that file! It was written before I joined the project, and I somehow have managed not to take notice of it before now. :) Alright - I guess that `string` subroutine would be the place to do this, then! Thanks!


/cc @jcredding


netfx will be a partial facade (` <IsPartialFacadeAssembly Condition="'$(TargetGroup)' == 'netfx'">true</IsPartialFacadeAssembly>`). netstandard will be a PNSE shim (` <GeneratePlatformNotSupportedAssemblyMessage Condition="'$(TargetsWindows)' != 'true'">SR.PlatformNotSupported_PerfCounters</GeneratePlatformNotSupportedAssemblyMessage>`)


Що це???


## Global

| Changed            |   Status |
|:-------------------|---------:|
| `metadata_passing` |       +2 |
| `metadata_total`   |       +2 |
| `nodes_count`      |    +1111 |
| `texts_passing`    |       +2 |
| `texts_total`      |       +2 |

## Words

| Changed   |   Status |
|:----------|---------:|
| `grc`     |   +21496 |

## Units

| Changed                                               | Status   |
|:------------------------------------------------------|:---------|
| `./data/tlg0527/tlg017/__cts__.xml`                   | New      |
| `./data/tlg0527/tlg017/tlg0527.tlg017.1st1K-grc1.xml` | New      |
| `./data/tlg0527/tlg018/__cts__.xml`                   | New      |
| `./data/tlg0527/tlg018/tlg0527.tlg018.1st1K-grc1.xml` | New      |
| `./data/tlg0527/tlg017/__cts__.xml`                   | Passing  |
| `./data/tlg0527/tlg017/tlg0527.tlg017.1st1K-grc1.xml` | Passing  |
| `./data/tlg0527/tlg018/__cts__.xml`                   | Passing  |
| `./data/tlg0527/tlg018/tlg0527.tlg018.1st1K-grc1.xml` | Passing  |

*[Hook UI build recap](http://ci.perseids.org/repo/OpenGreekAndLatin/First1KGreek/2945)*


Хтось не змержив конфлікт, а просто додав файл.


tiny nit, you can use the VS "sort usings" refactoring.


Приведи все до ладу. Зламав все к чертям


GLHE_Enhancements (mitchute) - x86_64-MacOS-10.9-clang: Build Failed

Messages:

 * 591 tests had: AUD diffs.

Failures:

integration Test Summary
 * Passed: 593
 * Failed: 18

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


please add a period, and also change "percounters" to PerfCounters


Tu es d'accord avec ce genre de chose ?


Hi
What was incorrect???

On Sep 28, 2017 9:47 PM, "Bhanu" <notifications@github.com> wrote:

> Bug fix: #92 incorrect tracking code in the header was replaces
> @vaishnavisv
>
> --
> You are receiving this because you were mentioned.
> Reply to this email directly or view it on GitHub:
> https://github.com/janastu/ncbs-modular/commit/
> eeb1afb07109298817da7ad2f0f293b1daf34f81
>


I suggest starting a PR, when you have addressed this feedback. Then tests can follow.


@toger5 yeah i just left it as is, because i saw your options to use the script bg, i think it should have the tree bg, but i wasnt sure if i should remove the RTL logic code that i saw there but yeah it completely ok now to remove it.


## Global

| Changed            |   Status |
|:-------------------|---------:|
| `metadata_passing` |       -1 |
| `metadata_total`   |       -1 |
| `nodes_count`      |     -672 |
| `texts_passing`    |       -1 |
| `texts_total`      |       -1 |

## Words

| Changed   |   Status |
|:----------|---------:|
| `grc`     |   -12682 |

## Units

| Changed                                               | Status   |
|:------------------------------------------------------|:---------|
| `./data/tlg0527/tlg018/__cts__.xml`                   | Deleted  |
| `./data/tlg0527/tlg018/tlg0527.tlg018.1st1K-grc1.xml` | Deleted  |

*[Hook UI build recap](http://ci.perseids.org/repo/OpenGreekAndLatin/First1KGreek/2946)*


Bluemix [toolchain](https://console.bluemix.net/devops/toolchains/5eb996ed-9849-4e50-8202-b8c7b70966de "blg361"): [Delivery Pipeline](https://console.bluemix.net/devops/pipelines/c85729ea-5eec-49d8-a52e-385179275694 "itucsdb1705") deployed [itucsdb1705](https://github.com/itucsdb1705/itucsdb1705/releases/tag/deploy-ibm-yp-us-south-toppeker-itu.edu.tr-dev-20170928-164546 "deploy-ibm-yp-us-south-toppeker-itu.edu.tr-dev-20170928-164546") to [dev](https://console.bluemix.net/apps/387666c1-cba5-45b5-b795-549303bb8d04?env_id=ibm:yp:us-south "ibm:yp:us-south:toppeker@itu.edu.tr:dev"), including this commit


This should say `Switched from a PHP session based CSRF token to using a double submit cookie.`. Both, "CSRF" as well as "double submit cookie" are technical terms we should use.


Ja bin auch schon am überlegen. Was tut man nicht alles für die Kundschaft :D


The following doc(s) have been deployed to the [26666](https://26666-static-docs.pantheonsite.io/docs) Multidev environment:


Personally if the username has a `@` I'd just throw away everything after it, otherwise the prefix will become very long and take up most of the 24 char limit that openshift project names can be.


Added


:) I had a few minutes while waiting for answers at work and thought I should do it real quick while thinking about it.


The following doc(s) have been deployed to the [26666](https://26666-static-docs.pantheonsite.io/docs) Multidev environment:
- [/docs/drupal-redis](https://2832cssre-static-docs.pantheonsite.io/docs/drupal-redis)


Minor release would be appreciated since CI pipelines are broken due to this.


Bluemix [toolchain](https://console.bluemix.net/devops/toolchains/5eb996ed-9849-4e50-8202-b8c7b70966de "blg361"): [Delivery Pipeline](https://console.bluemix.net/devops/pipelines/c85729ea-5eec-49d8-a52e-385179275694 "itucsdb1705") deployed [itucsdb1705](https://github.com/itucsdb1705/itucsdb1705/releases/tag/deploy-ibm-yp-us-south-toppeker-itu.edu.tr-dev-20170928-164926 "deploy-ibm-yp-us-south-toppeker-itu.edu.tr-dev-20170928-164926") to [dev](https://console.bluemix.net/apps/387666c1-cba5-45b5-b795-549303bb8d04?env_id=ibm:yp:us-south "ibm:yp:us-south:toppeker@itu.edu.tr:dev"), including this commit


Wow, you added the .gitignore file, with the right exclusions, still .idea/ folders and a lot of xml files are here. We should ask what went wrong here..


## Global

| Changed            |   Status |
|:-------------------|---------:|
| `metadata_passing` |       +3 |
| `metadata_total`   |       +3 |
| `nodes_count`      |    +1304 |
| `texts_passing`    |       +3 |
| `texts_total`      |       +3 |

## Words

| Changed   |   Status |
|:----------|---------:|
| `grc`     |   +27616 |

## Units

| Changed                                               | Status   |
|:------------------------------------------------------|:---------|
| `./data/tlg0527/tlg018/__cts__.xml`                   | New      |
| `./data/tlg0527/tlg018/tlg0527.tlg018.1st1K-grc1.xml` | New      |
| `./data/tlg0527/tlg019/__cts__.xml`                   | New      |
| `./data/tlg0527/tlg019/tlg0527.tlg019.1st1K-grc1.xml` | New      |
| `./data/tlg0527/tlg020/__cts__.xml`                   | New      |
| `./data/tlg0527/tlg020/tlg0527.tlg020.1st1K-grc1.xml` | New      |
| `./data/tlg0527/tlg018/__cts__.xml`                   | Passing  |
| `./data/tlg0527/tlg018/tlg0527.tlg018.1st1K-grc1.xml` | Passing  |
| `./data/tlg0527/tlg019/__cts__.xml`                   | Passing  |
| `./data/tlg0527/tlg019/tlg0527.tlg019.1st1K-grc1.xml` | Passing  |
| `./data/tlg0527/tlg020/__cts__.xml`                   | Passing  |
| `./data/tlg0527/tlg020/tlg0527.tlg020.1st1K-grc1.xml` | Passing  |

*[Hook UI build recap](http://ci.perseids.org/repo/OpenGreekAndLatin/First1KGreek/2947)*


This was actually step 14. Typo when entering the commit message!


The following doc(s) have been deployed to the [266666beal](https://266666beal-static-docs.pantheonsite.io/docs) Multidev environment:


@nfeske: this seems to fix the problem with the 'Conflicting_id' exception in Noux


ok