[inst/examples/Ants/Ants.R:12:2:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L12) *style:* **Commented code should be removed.**
```r
#library(NetLogoR)
 ^~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:13:2:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L13) *style:* **Commented code should be removed.**
```r
#library(testthat) # for testing
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:19:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L19) *style:* **Commented code should be removed.**
```r
# torus = FALSE
  ^~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:29:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L29) *style:* **Lines should not be more than 100 characters.**
```r
chemical <- createWorld(minPxcor = -35, maxPxcor = 35, minPycor = -35, maxPycor = 35, data = 0) # amount of chemical on the patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:29:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L29) *style:* **Lines should not be more than 100 characters.**
```r
chemical <- createWorld(minPxcor = -35, maxPxcor = 35, minPycor = -35, maxPycor = 35, data = 0) # amount of chemical on the patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:35:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L35) *style:* **Lines should not be more than 100 characters.**
```r
patchNest <- which(distNest < 5) # patch/cell numbers for the ones at distance less than 5 from [x = 0, y = 0]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:35:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L35) *style:* **Lines should not be more than 100 characters.**
```r
patchNest <- which(distNest < 5) # patch/cell numbers for the ones at distance less than 5 from [x = 0, y = 0]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:37:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L37) *style:* **Lines should not be more than 100 characters.**
```r
nest <- NLset(world = nest, agents = PxcorPycorFromCell(world = nest, cellNum = patchNest), val = 1) # and reassign 1 to the patches in the nest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:37:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L37) *style:* **Lines should not be more than 100 characters.**
```r
nest <- NLset(world = nest, agents = PxcorPycorFromCell(world = nest, cellNum = patchNest), val = 1) # and reassign 1 to the patches in the nest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:38:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L38) *style:* **Lines should not be more than 100 characters.**
```r
nestScent <- NLset(world = nestScent, agents = patches(nestScent), val = 200 - distNest) # spread nestScent over the whole world, stronger near the nest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:38:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L38) *style:* **Lines should not be more than 100 characters.**
```r
nestScent <- NLset(world = nestScent, agents = patches(nestScent), val = 200 - distNest) # spread nestScent over the whole world, stronger near the nest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:43:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L43) *style:* **Lines should not be more than 100 characters.**
```r
distFood1 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = 0.6 * maxPxcor(foodSource), y = 0)) # setup food source 1 on the right
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:43:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L43) *style:* **Lines should not be more than 100 characters.**
```r
distFood1 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = 0.6 * maxPxcor(foodSource), y = 0)) # setup food source 1 on the right
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:46:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L46) *style:* **Lines should not be more than 100 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood1), val = 1) # and reassign 1 to the patches in the foodSource 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:46:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L46) *style:* **Lines should not be more than 100 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood1), val = 1) # and reassign 1 to the patches in the foodSource 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:47:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L47) *style:* **Lines should not be more than 100 characters.**
```r
distFood2 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.6 * maxPxcor(foodSource), y = -0.6 * maxPycor(foodSource))) # setup food source 2 on the lower-left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:47:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L47) *style:* **Lines should not be more than 100 characters.**
```r
distFood2 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.6 * maxPxcor(foodSource), y = -0.6 * maxPycor(foodSource))) # setup food source 2 on the lower-left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:49:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L49) *style:* **Lines should not be more than 100 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood2), val = 2) # and reassign 2 to the patches in the foodSource 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:49:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L49) *style:* **Lines should not be more than 100 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood2), val = 2) # and reassign 2 to the patches in the foodSource 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:50:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L50) *style:* **Lines should not be more than 100 characters.**
```r
distFood3 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.8 * maxPxcor(foodSource), y = 0.8 * maxPycor(foodSource))) # setup food source 3 on the upper-left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:50:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L50) *style:* **Lines should not be more than 100 characters.**
```r
distFood3 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.8 * maxPxcor(foodSource), y = 0.8 * maxPycor(foodSource))) # setup food source 3 on the upper-left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:52:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L52) *style:* **Lines should not be more than 100 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood3), val = 3) # and reassign 3 to the patches in the foodSource 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:52:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L52) *style:* **Lines should not be more than 100 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood3), val = 3) # and reassign 3 to the patches in the foodSource 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:55:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L55) *style:* **Lines should not be more than 100 characters.**
```r
food <- NLset(world = food, agents = patchFood123, val = sample(c(1,2), size = NLcount(patchFood123), replace = TRUE)) # set "food" at sources to either 1 or 2, randomly
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:55:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L55) *style:* **Lines should not be more than 100 characters.**
```r
food <- NLset(world = food, agents = patchFood123, val = sample(c(1,2), size = NLcount(patchFood123), replace = TRUE)) # set "food" at sources to either 1 or 2, randomly
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:55:69:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L55) *style:* **Commas should always have a space after.**
```r
food <- NLset(world = food, agents = patchFood123, val = sample(c(1,2), size = NLcount(patchFood123), replace = TRUE)) # set "food" at sources to either 1 or 2, randomly
                                                                    ^
```
[inst/examples/Ants/Ants.R:59:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L59) *style:* **Lines should not be more than 100 characters.**
```r
ants <- createTurtles(n = nAnts, coords = cbind(xcor = 0, ycor = 0), color = "red") # red = not carrying food
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:59:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L59) *style:* **Lines should not be more than 100 characters.**
```r
ants <- createTurtles(n = nAnts, coords = cbind(xcor = 0, ycor = 0), color = "red") # red = not carrying food
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:62:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L62) *style:* **Commented code should be removed.**
```r
# plot(world2raster(world)$layer.5) # food
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:63:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L63) *style:* **Commented code should be removed.**
```r
# points(turtles2spdf(ants), pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:66:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L66) *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:67:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L67) *style:* **Lines should not be more than 100 characters.**
```r
food1 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 1, "food"]) # sum of food values for the patches with foodSource equals to 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:67:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L67) *style:* **Lines should not be more than 100 characters.**
```r
food1 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 1, "food"]) # sum of food values for the patches with foodSource equals to 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:68:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L68) *style:* **Lines should not be more than 100 characters.**
```r
food2 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 2, "food"]) # sum of food values for the patches with foodSource equals to 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:68:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L68) *style:* **Lines should not be more than 100 characters.**
```r
food2 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 2, "food"]) # sum of food values for the patches with foodSource equals to 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:69:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L69) *style:* **Lines should not be more than 100 characters.**
```r
food3 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 3, "food"]) # sum of food values for the patches with foodSource equals to 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:69:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L69) *style:* **Lines should not be more than 100 characters.**
```r
food3 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 3, "food"]) # sum of food values for the patches with foodSource equals to 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:74:4:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L74) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:77:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L77) *style:* **Lines should not be more than 100 characters.**
```r
  nest_chem_pHere <- of(world = world, agents = pHere, var = c("nest", "chemical")) # nest values (1 or 0) and chemical in the order of the turtles
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:77:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L77) *style:* **Variable or function name should be lowerCamelCase.**
```r
  nest_chem_pHere <- of(world = world, agents = pHere, var = c("nest", "chemical")) # nest values (1 or 0) and chemical in the order of the turtles
  ^~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:81:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L81) *style:* **Lines should not be more than 100 characters.**
```r
  turtlesIn <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 1]) # whoTurtles for which their nest value equals 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:82:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L82) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesIn) != 0){
    ^
```
[inst/examples/Ants/Ants.R:88:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L88) *style:* **Lines should not be more than 100 characters.**
```r
  turtlesOut <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 0]) # whoTurtles for which their nest value equals 0
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:89:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L89) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesOut) != 0){
    ^
```
[inst/examples/Ants/Ants.R:90:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L90) *style:* **Lines should not be more than 100 characters.**
```r
    pHereOut <- pHere[nest_chem_pHere[, "nest"] == 0, , drop = FALSE] # pHere for which their nest value equals 0 (drop = FALSE keeps a format matrix when 1 row)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:91:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L91) *style:* **Lines should not be more than 100 characters.**
```r
    world <- NLset(world = world, agents = pHereOut, var = "chemical", val = nest_chem_pHere[nest_chem_pHere[, "nest"] == 0, "chemical"] + 60) # drop some chemical
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:92:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L92) *style:* **Lines should not be more than 100 characters.**
```r
    turtlesOut <- upPatch(turtles = turtlesOut, varPatch = "nestScent") # head toward the greatest value of nestScent
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:95:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L95) *style:* **Lines should not be more than 100 characters.**
```r
  # Because turtles have been modified separately as turtlesIn and turtlesOut, we need to put them back together to execute the following procedure
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:96:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L96) *style:* **Lines should not be more than 100 characters.**
```r
  turtles <- turtleSet(turtlesIn, turtlesOut) # there should not be any problem (e.g., duplicates) as turtles are always either in or out, but never both or neither
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:97:4:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L97) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:102:4:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L102) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:105:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L105) *style:* **Lines should not be more than 100 characters.**
```r
  food_chem_pHere <- of(world = world, agents = pHere, var = c("food", "chemical")) # faster to extract both values at the same time
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:105:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L105) *style:* **Variable or function name should be lowerCamelCase.**
```r
  food_chem_pHere <- of(world = world, agents = pHere, var = c("food", "chemical")) # faster to extract both values at the same time
  ^~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:110:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L110) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesFood) != 0){
    ^
```
[inst/examples/Ants/Ants.R:111:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L111) *style:* **Lines should not be more than 100 characters.**
```r
    turtlesFood <- NLset(turtles = turtlesFood, agents = turtlesFood, var = "color", val = "orange") # pick up food
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:113:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L113) *style:* **Lines should not be more than 100 characters.**
```r
    turtles <- turtleSet(turtlesFood, other(agents = turtles, except = turtlesFood)) # reconstruct the turtles with turtlesFood modified and the others
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:114:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L114) *style:* **Lines should not be more than 100 characters.**
```r
    world <- NLset(world = world, agents = pHere[food_chem_pHere[, "food"] > 0, , drop = FALSE], var = "food", val = food_chem_pHere[food_chem_pHere[, "food"] > 0, "food"] - 1) # and reduce the food source
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:118:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L118) *style:* **Lines should not be more than 100 characters.**
```r
  turtlesChem <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "chemical"] >= 0.05 & food_chem_pHere[, "chemical"] < 2])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:119:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L119) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesChem) != 0){
    ^
```
[inst/examples/Ants/Ants.R:121:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L121) *style:* **Lines should not be more than 100 characters.**
```r
    turtles <- turtleSet(turtlesChem, other(agents = turtles, except = turtlesChem)) # reconstruct the turtles with turtlesChem modified and the others
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:124:4:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L124) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:129:4:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L129) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:147:4:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L147) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:152:4:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L152) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:154:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L154) *style:* **Lines should not be more than 100 characters.**
```r
  turtles <- right(turtles, angle = runif(n = NLcount(turtles), min = -40, max = 40)) # random angle between - 40 (40 to left) and 40 (40 to right)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:158:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L158) *style:* **Commented code should be removed.**
```r
  # turtlesCannot <- right(turtles = turtlesCannot, angle = 180)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:164:4:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L164) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:170:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L170) *style:* **Commented code should be removed.**
```r
# time <- 0
  ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:171:6:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L171) *style:* **Place a space before left parenthesis, except in a function call.**
```r
while(sum(f_fS_world[, "food"]) != 0){ # as long as there is food in the world
     ^
```
[inst/examples/Ants/Ants.R:171:38:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L171) *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:175:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L175) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(aRed) != 0){
    ^
```
[inst/examples/Ants/Ants.R:183:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L183) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(aOrange) != 0){
    ^
```
[inst/examples/Ants/Ants.R:198:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L198) *style:* **Lines should not be more than 100 characters.**
```r
  world <- NLset(world = world, agents = pWorld, var = "chemical", val = pChem * (100 - rEvap) / 100) # slowly evaporate chemical
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:201:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L201) *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:207:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L207) *style:* **Commented code should be removed.**
```r
  # time <- time + 1
    ^~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:208:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L208) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:211:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L211) *style:* **Commented code should be removed.**
```r
  # plot(world2raster(world)$layer.5) # food
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:212:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L212) *style:* **Commented code should be removed.**
```r
  # points(turtles2spdf(ants), pch = 16)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:214:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L214) *style:* **Commented code should be removed.**
```r
  # expect_equivalent(NLcount(ants), nAnts)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:224:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Ants/Ants.R#L224) *style:* **Lines should not be more than 100 characters.**
```r
legend("topright", legend = c("food1", "food2", "food3"), lwd = c(2, 2, 2), col = c("coral", "yellow", "green"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:10:2:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Butterfly/Butterfly-1.R#L10) *style:* **Commented code should be removed.**
```r
#library(NetLogoR)
 ^~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:29:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Butterfly/Butterfly-1.R#L29) *style:* **Lines should not be more than 100 characters.**
```r
t1 <- createTurtles(n = 1, coords = cbind(xcor = 85, ycor = 95)) # the butterfly's initial location is [85, 95]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:29:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Butterfly/Butterfly-1.R#L29) *style:* **Lines should not be more than 100 characters.**
```r
t1 <- createTurtles(n = 1, coords = cbind(xcor = 85, ycor = 95)) # the butterfly's initial location is [85, 95]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:30:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Butterfly/Butterfly-1.R#L30) *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:32:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Butterfly/Butterfly-1.R#L32) *style:* **Commented code should be removed.**
```r
# points(turtles2spdf(t1), pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:38:4:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Butterfly/Butterfly-1.R#L38) *style:* **Place a space before left parenthesis, except in a function call.**
```r
for(time in 1:1000){ # what is inside this loop will be iterated 1000 times
   ^
```
[inst/examples/Butterfly/Butterfly-1.R:38:20:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Butterfly/Butterfly-1.R#L38) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
for(time in 1:1000){ # what is inside this loop will be iterated 1000 times
                   ^
```
[inst/examples/Butterfly/Butterfly-1.R:40:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Butterfly/Butterfly-1.R#L40) *style:* **Lines should not be more than 100 characters.**
```r
  # The "move" function can be written directly here or before in the script as a separate function and then called here
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:44:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Butterfly/Butterfly-1.R#L44) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(runif(n = 1, min = 0, max = 1) < q){ # conditional statement
    ^
```
[inst/examples/Butterfly/Butterfly-1.R:44:41:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Butterfly/Butterfly-1.R#L44) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if(runif(n = 1, min = 0, max = 1) < q){ # conditional statement
                                        ^
```
[inst/examples/Butterfly/Butterfly-1.R:52:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Butterfly/Butterfly-1.R#L52) *style:* **Lines should not be more than 100 characters.**
```r
    # Creating local variables instead of putting everything in the same one line code helps to understand
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:66:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Butterfly/Butterfly-1.R#L66) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:12:2:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L12) *style:* **Commented code should be removed.**
```r
#library(NetLogoR)
 ^~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:33:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/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:45:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L45) *style:* **Lines should not be more than 100 characters.**
```r
  grassVal <- sample(c(0, 1), size = NLcount(patches(grass)), replace = TRUE) # 0 or 1 (i.e., green or brown in the NetLogo model)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:53:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L53) *style:* **Lines should not be more than 100 characters.**
```r
# When no patches values are used, using grass, countdown or field as the world argument required by a function does not change anything
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:55:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L55) *style:* **Lines should not be more than 100 characters.**
```r
# When patches values are used (e.g., when the sheep eat the grass), use only field as the world argument for the functions
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:57:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L57) *style:* **Lines should not be more than 100 characters.**
```r
# When field is updated, the values on the individual NLworld grass and countdown are not updated, only the layers in field are
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:77:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L77) *style:* **Lines should not be more than 100 characters.**
```r
  pGreen <- NLwith(world = field, var = "grass", agents = patches(field), val = 1) # patches equal to 1 (green)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:83:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L83) *style:* **Commented code should be removed.**
```r
#   plot(world2raster(field)[[1]])
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:84:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L84) *style:* **Commented code should be removed.**
```r
#   points(turtles2spdf(sheep), pch = 16, col = "red")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:85:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L85) *style:* **Commented code should be removed.**
```r
#   points(turtles2spdf(wolves), pch = 16, col = "black")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:87:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L87) *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:88:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L88) *style:* **Commented code should be removed.**
```r
#   plot(world2raster(grass))
    ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:89:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L89) *style:* **Commented code should be removed.**
```r
#   points(turtles2spdf(sheep), pch = 16, col = "red")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:90:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L90) *style:* **Commented code should be removed.**
```r
#   points(turtles2spdf(wolves), pch = 16, col = "black")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:96:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L96) *style:* **Lines should not be more than 100 characters.**
```r
# When only one type of input is permitted (e.g., only sheep or only wolves), the function does not need to express arguments
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:97:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L97) *style:* **Lines should not be more than 100 characters.**
```r
# When a function can be used by both sheep and wolves, the argument "turtles" must be used when building the function
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:100:27:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L100) *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/Wolf-Sheep-Predation.R:101:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L101) *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:102:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L102) *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:103:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L103) *style:* **Lines should not be more than 100 characters.**
```r
  # The two above functions can be replaced by this next one, as a negative value to turn right will turn left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:109:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L109) *style:* **Commented code should be removed.**
```r
# # Test move()
  ^~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:110:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L110) *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:112:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L112) *style:* **Commented code should be removed.**
```r
#   wolves <- move(wolves)
    ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:113:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L113) *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:117:24:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L117) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
eatGrass <- function() { # only sheep
                       ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:118:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L118) *style:* **Lines should not be more than 100 characters.**
```r
  pGreen <- NLwith(world = field, var = "grass", agents = patches(field), val = 1) # patches with grass equal to 1 (green)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:119:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L119) *style:* **Lines should not be more than 100 characters.**
```r
  sheepOnGreen <- turtlesOn(world = field, turtles = sheep, agents = pGreen) # sheep on green patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:124:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L124) *style:* **Lines should not be more than 100 characters.**
```r
    sheep <- NLset(turtles = sheep, agents = sheepOnGreen, var = "energy", val = energySheep + gainFoodSheep) # update energy
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:126:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L126) *style:* **Lines should not be more than 100 characters.**
```r
    # If a sheep is on a green patch (value equal to 1), it eats the grass and turns it to brown (value to 0)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:134:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L134) *style:* **Commented code should be removed.**
```r
# # Test eatGrass()
  ^~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:135:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L135) *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:136:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L136) *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:137:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L137) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:138:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L138) *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:139:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L139) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:140:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L140) *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:141:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L141) *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:142:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L142) *style:* **Commented code should be removed.**
```r
# resultsEatGrass <- eatGrass()
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:143:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L143) *style:* **Commented code should be removed.**
```r
# fieldEat <- resultsEatGrass[[1]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:144:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L144) *style:* **Lines should not be more than 100 characters.**
```r
# of(world = fieldEat, var = "grass", agents = patches(grass)) == c(rep(1,9), 0, rep(1, 8), 0, rep(1, 8), 0 , rep(1, 8), 0, rep(1, 8), 0, rep(1, 4), rep(0, 50))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:144:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L144) *style:* **Commented code should be removed.**
```r
# of(world = fieldEat, var = "grass", agents = patches(grass)) == c(rep(1,9), 0, rep(1, 8), 0, rep(1, 8), 0 , rep(1, 8), 0, rep(1, 8), 0, rep(1, 4), rep(0, 50))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:145:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L145) *style:* **Commented code should be removed.**
```r
# sheepEat <- resultsEatGrass[[2]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:146:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L146) *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:149:28:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L149) *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/Wolf-Sheep-Predation.R:152:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L152) *style:* **Lines should not be more than 100 characters.**
```r
  who0 <- whoEnergy[which(whoEnergy[,"energy"] < 0), "who"] # "who" numbers of the turtles with their energy value below 0
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:152:38:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L152) *style:* **Commas should always have a space after.**
```r
  who0 <- whoEnergy[which(whoEnergy[,"energy"] < 0), "who"] # "who" numbers of the turtles with their energy value below 0
                                     ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:161:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L161) *style:* **Commented code should be removed.**
```r
# # Test death()
  ^~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:162:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L162) *style:* **Lines should not be more than 100 characters.**
```r
# wolves <- createTurtles(n = nWolf, coords = randomXYcor(world = grass, n = nWolf), breed = "wolf", color = rep("black", nWolf))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:162:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L162) *style:* **Commented code should be removed.**
```r
# wolves <- createTurtles(n = nWolf, coords = randomXYcor(world = grass, n = nWolf), breed = "wolf", color = rep("black", nWolf))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:163:1:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L163) *style:* **Lines should not be more than 100 characters.**
```r
# wolves <- turtlesOwn(turtles = wolves, tVar = "energy", tVal = runif(n = nWolf, min = 0, max = 2 * gainFoodWolf))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:163:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L163) *style:* **Commented code should be removed.**
```r
# wolves <- turtlesOwn(turtles = wolves, tVar = "energy", tVal = runif(n = nWolf, min = 0, max = 2 * gainFoodWolf))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:164:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L164) *style:* **Commented code should be removed.**
```r
# count1 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:165:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L165) *style:* **Commented code should be removed.**
```r
# count2 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:167:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L167) *style:* **Commented code should be removed.**
```r
#   energy <- runif(NLcount(wolves), min = -10, max = 100)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:168:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L168) *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:169:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L169) *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:170:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L170) *style:* **Commented code should be removed.**
```r
#   wolves <- death(wolves)
    ^~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:171:5:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L171) *style:* **Commented code should be removed.**
```r
#   count2 <- c(count2, NLcount(wolves))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:173:3:](https://github.com/PredictiveEcology/NetLogoR/blob/41400bbd8f2a82b588ddd3f3c17b64f08610a494/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L173) *style:* **Commented code should be removed.**
```r
# plot(1:length(count1), count1, pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


why? we'll just upgrade it to the latest when they fix it upstream.


This error markup will be used everywhere, so better move it to partial


why not? 👌  yes, it is just to keep the information of the latest working version. you know, a little particular.


Problematic, for the record, because it's impossible to tell what changed in this diff without unmangling the formatting. You're also violating the .eslintrc which calls for 2 spaces per tab.


Success is like errors, put it in a partial and load it in parent template


有容是谁？


Then you should try whether you torch light works or not.


Write down meaningful Git commit messages!


Format date


I understand these points, yet I believe they are about the putting the `\usepackage[utf8]{inputenc}` statement inside a class. At least I'd interpret it like that.

It would be interesting to know how well pdflatex can handle non-ascii characters in a class definition. I didn't find anything about it. So it seems ASCII is just the safe option here even though other encodings might just work as well.


Use `git commit --amend` to rework.


@shivrajkumar Could we also get changelogs on the releases? They were given in the past but the latest few releases have not included them.

E.g. compare: https://github.com/GeekyAnts/NativeBase/releases/tag/v2.3.2
with: https://github.com/GeekyAnts/NativeBase/releases/tag/v2.2.1


`Route::resource('categories',....`


Don't check in generated files such as ` .ycm_extra_conf.py`.


测定


Don't check in `hash_mod.png`.


What's the benefit? You should mention within Git commit messages.


Has another change
1. Change simulate process for indel. Reduce the strand pattern of indel to two type that is ++ and --
and separate to two function for simulate indel with two strand type and all strand type.

2. For strand -- of indel sample. We do the reverse compliment the whole read not do it separately like the old process. ( First do cutA+cutB and then Do reverse complement or do reverse comp for cut A and cutB separately and then plus in reverse order compCutB + compCutA)

3. For strand -- of fusion sample. We still do the old way which is separately do the reverse complement on cutA and cutB (Do reverse comp with cutA and cutB then plus it together compCutA + compCutB)


Don't leave the dead code.


Are you definitely using `tqdm==4.18.0` from github? It's not on pypi/anaconda yet just in case there are issues such as this.


Thanks @mart-e , you are a great man that made me lost 4 hours of my life ;)
 :postal_horn:


no space between parenthesis


Great thanks!


You can remove this


на этот метод нет ни одного теста, который бы проверял заведомо неверные выражения. поэтому неизвестно, как твой код поведёт себя с тем, с чем работать не должен


![](https://github.trello.services/images/mini-trello-icon.png) [Create game 'engine' using libgdx. Use prototype for inspiration :)](https://trello.com/c/qgNgl2Xa/20-create-game-engine-using-libgdx-use-prototype-for-inspiration)


я по названию переменной не понимаю, что в ней находится и по названию теста не понимаю, почему именно это.


Thanks @weberhofer , this feature is planned for 6.1 and was mistakenly added to the release notes for  6.0.0-beta2. I removed the note and we'll properly announce it when 6.1 comes out.


i am export apk and  testing in samsung galaxy s7 edge not worknig has stoped
Thanks