[inst/examples/Ants/Ants.R:13:2:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/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/bc68300cbbcd3db3d16c774848234dd376bb2149/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/bc68300cbbcd3db3d16c774848234dd376bb2149/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/bc68300cbbcd3db3d16c774848234dd376bb2149/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/bc68300cbbcd3db3d16c774848234dd376bb2149/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:109:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L109) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesIn) != 0){
    ^
```
[inst/examples/Ants/Ants.R:117:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L117) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesOut) != 0){
    ^
```
[inst/examples/Ants/Ants.R:133:4:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/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/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L138) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:141:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L141) *style:* **Variable or function name should be lowerCamelCase.**
```r
  foodChem_pHere <- of(world = world, agents = pHere,
  ^~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:147:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L147) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesFood) != 0){
    ^
```
[inst/examples/Ants/Ants.R:156:97:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L156) *style:* **Trailing whitespace is superfluous.**
```r
                   var = "food", val = foodChem_pHere[foodChem_pHere[, "food"] > 0, "food"] - 1)
                                                                                ^
```
[inst/examples/Ants/Ants.R:163:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L163) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesChem) != 0){
    ^
```
[inst/examples/Ants/Ants.R:169:4:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L169) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:174:4:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L174) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:192:4:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L192) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:197:4:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L197) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:210:4:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L210) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:216:2:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L216) *style:* **Commented code should be removed.**
```r
#time <- 0
 ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:217:6:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L217) *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:217:38:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L217) *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:222:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L222) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(aRed) != 0){
    ^
```
[inst/examples/Ants/Ants.R:230:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L230) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(aOrange) != 0){
    ^
```
[inst/examples/Ants/Ants.R:250:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L250) *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:256:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L256) *style:* **Commented code should be removed.**
```r
  # time <- time + 1
    ^~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:257:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L257) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:260:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L260) *style:* **Commented code should be removed.**
```r
  # plot(world2raster(world)$layer.5) # food
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:261:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L261) *style:* **Commented code should be removed.**
```r
  # points(ants, pch = 16)
    ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:263:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Ants/Ants.R#L263) *style:* **Commented code should be removed.**
```r
  # expect_equivalent(NLcount(ants), nAnts)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:30:66:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Butterfly/Butterfly-1.R#L30) *style:* **Trailing whitespace is superfluous.**
```r
t1 <- createTurtles(n = 1,  coords = cbind(xcor = 85, ycor = 95))
                                                                 ^
```
[inst/examples/Butterfly/Butterfly-1.R:31:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/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:39:4:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Butterfly/Butterfly-1.R#L39) *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:39:20:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Butterfly/Butterfly-1.R#L39) *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:41:53:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Butterfly/Butterfly-1.R#L41) *style:* **Trailing whitespace is superfluous.**
```r
  # The "move" function can be written directly here
                                                    ^
```
[inst/examples/Butterfly/Butterfly-1.R:46:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Butterfly/Butterfly-1.R#L46) *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:46:41:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Butterfly/Butterfly-1.R#L46) *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:54:31:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Butterfly/Butterfly-1.R#L54) *style:* **Trailing whitespace is superfluous.**
```r
    # Creating local variables
                              ^
```
[inst/examples/Butterfly/Butterfly-1.R:69:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Butterfly/Butterfly-1.R#L69) *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/bc68300cbbcd3db3d16c774848234dd376bb2149/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:46:78:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L46) *style:* **Trailing whitespace is superfluous.**
```r
  grassVal <- sample(c(0, 1), size = NLcount(patches(grass)), replace = TRUE)
                                                                             ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:54:35:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L54) *style:* **Trailing whitespace is superfluous.**
```r
# When no patches values are used,
                                  ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:55:79:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L55) *style:* **Trailing whitespace is superfluous.**
```r
# using grass, countdown or field as the world argument required by a function
                                                                              ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:57:69:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L57) *style:* **Trailing whitespace is superfluous.**
```r
# When patches values are used (e.g., when the sheep eat the grass),
                                                                    ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:58:57:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L58) *style:* **Trailing whitespace is superfluous.**
```r
# use only field as the world argument for the functions
                                                        ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:60:25:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L60) *style:* **Trailing whitespace is superfluous.**
```r
# When field is updated,
                        ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:61:80:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L61) *style:* **Trailing whitespace is superfluous.**
```r
# the values on the individual worldMatrix grass and countdown are not updated,
                                                                               ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:82:74:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L82) *style:* **Trailing whitespace is superfluous.**
```r
  pGreen <- NLwith(world = field, var = "grass", agents = patches(field),
                                                                         ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:89:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/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/bc68300cbbcd3db3d16c774848234dd376bb2149/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/bc68300cbbcd3db3d16c774848234dd376bb2149/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/bc68300cbbcd3db3d16c774848234dd376bb2149/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/bc68300cbbcd3db3d16c774848234dd376bb2149/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/bc68300cbbcd3db3d16c774848234dd376bb2149/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/bc68300cbbcd3db3d16c774848234dd376bb2149/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:102:78:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L102) *style:* **Trailing whitespace is superfluous.**
```r
# When only one type of input is permitted (e.g., only sheep or only wolves),
                                                                             ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:104:56:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L104) *style:* **Trailing whitespace is superfluous.**
```r
# When a function can be used by both sheep and wolves,
                                                       ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:108:27:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L108) *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:109:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L109) *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:110:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L110) *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:111:62:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L111) *style:* **Trailing whitespace is superfluous.**
```r
  # The two above functions can be replaced by this next one,
                                                             ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:118:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L118) *style:* **Commented code should be removed.**
```r
# # Test move()
  ^~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:119:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L119) *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:121:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L121) *style:* **Commented code should be removed.**
```r
#   wolves <- move(wolves)
    ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:122:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L122) *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:126:24:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L126) *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:127:74:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L127) *style:* **Trailing whitespace is superfluous.**
```r
  pGreen <- NLwith(world = field, var = "grass", agents = patches(field),
                                                                         ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:129:60:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L129) *style:* **Trailing whitespace is superfluous.**
```r
  sheepOnGreen <- turtlesOn(world = field, turtles = sheep,
                                                           ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:135:75:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L135) *style:* **Trailing whitespace is superfluous.**
```r
    sheep <- NLset(turtles = sheep, agents = sheepOnGreen, var = "energy",
                                                                          ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:138:57:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L138) *style:* **Trailing whitespace is superfluous.**
```r
    # If a sheep is on a green patch (value equal to 1),
                                                        ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:147:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L147) *style:* **Commented code should be removed.**
```r
# # Test eatGrass()
  ^~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:148:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L148) *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:149:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L149) *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:150:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L150) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:151:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L151) *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:152:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L152) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:153:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L153) *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:154:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L154) *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:155:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L155) *style:* **Commented code should be removed.**
```r
# resultsEatGrass <- eatGrass()
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:156:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L156) *style:* **Commented code should be removed.**
```r
# fieldEat <- resultsEatGrass[[1]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:157:38:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L157) *style:* **Trailing whitespace is superfluous.**
```r
# of(world = fieldEat, var = "grass",
                                     ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:158:91:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L158) *style:* **Trailing whitespace is superfluous.**
```r
#    agents = patches(grass)) == c(rep(1,9), 0, rep(1, 8), 0, rep(1, 8), 0 , rep(1, 8), 0,
                                                                                ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:160:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L160) *style:* **Commented code should be removed.**
```r
# sheepEat <- resultsEatGrass[[2]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:161:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L161) *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:164:28:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L164) *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:168:61:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L168) *style:* **Trailing whitespace is superfluous.**
```r
  who0 <- whoEnergy[which(whoEnergy[, "energy"] < 0), "who"]
                                                            ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:177:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L177) *style:* **Commented code should be removed.**
```r
# # Test death()
  ^~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:178:85:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L178) *style:* **Trailing whitespace is superfluous.**
```r
# wolves <- createTurtles(n = nWolf, coords = randomXYcor(world = grass, n = nWolf),
                                                                                ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:180:58:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L180) *style:* **Trailing whitespace is superfluous.**
```r
# wolves <- turtlesOwn(turtles = wolves, tVar = "energy",
                                                         ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:182:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L182) *style:* **Commented code should be removed.**
```r
# count1 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:183:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L183) *style:* **Commented code should be removed.**
```r
# count2 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:185:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L185) *style:* **Commented code should be removed.**
```r
#   energy <- runif(NLcount(wolves), min = -10, max = 100)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:186:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L186) *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:187:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L187) *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:188:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L188) *style:* **Commented code should be removed.**
```r
#   wolves <- death(wolves)
    ^~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:189:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L189) *style:* **Commented code should be removed.**
```r
#   count2 <- c(count2, NLcount(wolves))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:191:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L191) *style:* **Commented code should be removed.**
```r
# plot(1:length(count1), count1, pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:192:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L192) *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:195:46:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L195) *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
                                             ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:202:31:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L202) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (NLcount(reproInd) != 0) { # if there is at least one turtle reproducing
                              ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:212:49:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L212) *style:* **Trailing whitespace is superfluous.**
```r
    offspringMoved <- right(turtles = offspring,
                                                ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:217:96:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L217) *style:* **Trailing whitespace is superfluous.**
```r
    turtles <- NLset(turtles = turtles, agents = offspring, var = c("heading", "xcor", "ycor"),
                                                                                ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:224:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L224) *style:* **Commented code should be removed.**
```r
# # Test reproduce()
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:225:85:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L225) *style:* **Trailing whitespace is superfluous.**
```r
# wolves <- createTurtles(n = nWolf, coords = randomXYcor(world = grass, n = nWolf),
                                                                                ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:227:58:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L227) *style:* **Trailing whitespace is superfluous.**
```r
# wolves <- turtlesOwn(turtles = wolves, tVar = "energy",
                                                         ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:229:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L229) *style:* **Commented code should be removed.**
```r
# count1 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:230:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L230) *style:* **Commented code should be removed.**
```r
# count2 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:232:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L232) *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:233:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L233) *style:* **Commented code should be removed.**
```r
#   wolves <- reproduce(wolves, reproWolf)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:234:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L234) *style:* **Commented code should be removed.**
```r
#   count2 <- c(count2, NLcount(wolves))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:236:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L236) *style:* **Commented code should be removed.**
```r
# plot(1:length(count1), count1, pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:237:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L237) *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:240:26:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L240) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
catchSheep <- function() { # only wolves
                         ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:245:87:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L245) *style:* **Trailing whitespace is superfluous.**
```r
    # sheepWolves[,"id"] represent the rank/order of the individual wolf in the wolves
                                                                                ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:251:56:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L251) *style:* **Commas should always have a space after.**
```r
    whoGrabbingWolves <- whoWolves[unique(sheepWolves[,"id"])]
                                                       ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:255:79:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L255) *style:* **Trailing whitespace is superfluous.**
```r
    wolves <- NLset(turtles = wolves, agents = grabbingWolves, var = "energy",
                                                                              ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:262:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L262) *style:* **Commented code should be removed.**
```r
# # Test catchSheep()
  ^~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:263:83:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L263) *style:* **Trailing whitespace is superfluous.**
```r
# grass <- createNLWorld(minPxcor = 1, maxPxcor = 10, minPycor = 1, maxPycor = 10,
                                                                                ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:265:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L265) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:266:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L266) *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:267:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L267) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:268:79:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L268) *style:* **Trailing whitespace is superfluous.**
```r
# sheep <- createTurtles(n = 10, coords = cbind(xcor = c(1,1,2,2,3,4,5,6,7,8),
                                                                              ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:270:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L270) *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:271:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L271) *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:272:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L272) *style:* **Commented code should be removed.**
```r
# catchSheepResults <- catchSheep()
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:273:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L273) *style:* **Commented code should be removed.**
```r
# sheepCatch <- catchSheepResults[[1]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:274:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L274) *style:* **Commented code should be removed.**
```r
# wolvesCatch <- catchSheepResults[[2]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:275:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L275) *style:* **Commented code should be removed.**
```r
# NLcount(sheepCatch) == 5
  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:276:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L276) *style:* **Commented code should be removed.**
```r
# NLcount(wolvesCatch) == 5
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:277:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L277) *style:* **Commented code should be removed.**
```r
# of(agents = wolvesCatch, var = "energy") == (1:5 + gainFoodWolf)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:280:25:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L280) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
growGrass <- function() { # only patches
                        ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:284:75:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L284) *style:* **Trailing whitespace is superfluous.**
```r
  pBrownCountdown <- of(world = field, var = "countdown", agents = pBrown)
                                                                          ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:289:54:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L289) *style:* **Trailing whitespace is superfluous.**
```r
    pGrow <- pBrown[pBrownCountdown0, , drop = FALSE]
                                                     ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:292:61:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L292) *style:* **Trailing whitespace is superfluous.**
```r
                 val = cbind(grass = rep(1, NLcount(pGrow)),
                                                            ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:299:54:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L299) *style:* **Trailing whitespace is superfluous.**
```r
    pWait <- pBrown[pBrownCountdown1, , drop = FALSE]
                                                     ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:301:69:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L301) *style:* **Trailing whitespace is superfluous.**
```r
    field <- NLset(world = field, var = "countdown", agents = pWait,
                                                                    ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:308:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L308) *style:* **Commented code should be removed.**
```r
# # Test growGrass()
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:309:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L309) *style:* **Commented code should be removed.**
```r
# grass <- createWorld(1, 5, 1, 5)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:310:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L310) *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:311:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L311) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:312:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L312) *style:* **Lines should not be more than 100 characters.**
```r
# countdown <- NLset(world = countdown, agents = patches(countdown), val = c(rep(-1, 15), rep(1, 10)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:312:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L312) *style:* **Commented code should be removed.**
```r
# countdown <- NLset(world = countdown, agents = patches(countdown), val = c(rep(-1, 15), rep(1, 10)))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:313:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L313) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:314:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L314) *style:* **Commented code should be removed.**
```r
# fieldGrow <- growGrass()
  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:315:3:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L315) *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:316:53:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L316) *style:* **Trailing whitespace is superfluous.**
```r
# of(world = fieldGrow, agents = patches(fieldGrow),
                                                    ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:324:8:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L324) *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:324:55:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L324) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
while ((NLany(sheep) | NLany(wolves)) & time < maxTime ) {
                                                      ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:360:76:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L360) *style:* **Trailing whitespace is superfluous.**
```r
    pGreen <- NLwith(world = field, var = "grass", agents = patches(field),
                                                                           ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:371:5:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L371) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:379:88:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L379) *style:* **Trailing whitespace is superfluous.**
```r
  plot(timeStep, numSheep, type = "l", col = "blue", lwd = 2, ylab = "Population size",
                                                                                ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:380:88:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L380) *style:* **Trailing whitespace is superfluous.**
```r
       xlab = "Time step", ylim = c(min = 0, max = max(c(max(numSheep), max(numWolves),
                                                                                ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:388:88:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L388) *style:* **Trailing whitespace is superfluous.**
```r
  plot(timeStep, numSheep, type = "l", col = "blue", lwd = 2, ylab = "Population size",
                                                                                ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:392:90:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L392) *style:* **Trailing whitespace is superfluous.**
```r
  legend("topleft", legend = c("Sheep", "Wolves"), lwd = c(2, 2), col = c("blue", "red"),
                                                                                ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:395:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L395) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/tests/testthat/test-template.R:64:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/tests/testthat/test-template.R#L64) *style:* **Lines should not be more than 100 characters.**
```r
  expectedOutputEvent1Test1 <- " this is test for event 1. " # please define your expection of your output
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/tests/testthat/test-template.R:66:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/tests/testthat/test-template.R#L66) *style:* **Lines should not be more than 100 characters.**
```r
  expect_equal(simOutput$event1Test1, expectedOutputEvent1Test1) # or other expect function in testthat package.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/tests/testthat/test-template.R:67:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/tests/testthat/test-template.R#L67) *style:* **Lines should not be more than 100 characters.**
```r
  expect_equal(simOutput$event1Test2, as.numeric(999)) # or other expect function in testthat package.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/tests/testthat/test-template.R:75:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/tests/testthat/test-template.R#L75) *style:* **Lines should not be more than 100 characters.**
```r
  expectedOutputEvent2Test1 <- " this is test for event 2. " # please define your expection of your output
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/tests/testthat/test-template.R:77:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/tests/testthat/test-template.R#L77) *style:* **Lines should not be more than 100 characters.**
```r
  expect_equal(simOutput$event2Test1, expectedOutputEvent2Test1) # or other expect function in testthat package.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/tests/testthat/test-template.R:78:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/tests/testthat/test-template.R#L78) *style:* **Lines should not be more than 100 characters.**
```r
  expect_equal(simOutput$event2Test2, as.numeric(777)) # or other expect function in testthat package.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:5:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L5) *style:* **Lines should not be more than 100 characters.**
```r
  description = "Translation into R using the NetLogoR and SpaDES packages of the Wolf-Sheep-Predation NetLogo model created by Wilensky (1997)",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:7:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L7) *style:* **Lines should not be more than 100 characters.**
```r
  authors = c(person("Sarah", "Bauduin", email = "sarahbauduin@hotmail.fr", role = c("aut", "cre"))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:18:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L18) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".plotInitialTime", "numeric", 0, NA, NA, "This describes the simulation time at which the first plot event should occur"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:19:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L19) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".plotInterval", "numeric", 1, NA, NA, "This describes the simulation time at which the first plot event should occur"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:20:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L20) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".saveInitialTime", "numeric", 0, NA, NA, "This describes the simulation time at which the first save event should occur"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:21:1:](https://github.com/PredictiveEcology/NetLogoR/blob/bc68300cbbcd3db3d16c774848234dd376bb2149/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L21) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".saveInterval", "numeric", 1, NA, NA, "This describes the simulation time at which the first save event should occur"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


Starting


@jrieken ok, not making one big call would solve the issue. For now I will revert this commit and tackle this properly in October with https://github.com/Microsoft/vscode/issues/34738
Thanks for feedback


asdf


yes 👍 Bad coding vibe this morning :-/


Yessir.


That's strange, why would it say that alternative names are *.vgn.at => when I look at what my browser says, the alternative names for www.trend.at is : *.trend.at

Possible cause: the HttpHost creation still lacks a "Hostname" information , and only the IP (and the default virtual host served) is taken into account. That would explain a lot of problems. I'll look after that


Created multidev environment [continuity-pro#ci-110](https://dashboard.pantheon.io/sites/f4b4b00a-1cc1-4f25-a05d-4dce395bff80#ci-110).

[![Visit Site](https://raw.githubusercontent.com/pantheon-systems/ci-drops-8/0.1.0/data/img/visit-site-36.png)](https://ci-110-continuity-pro.pantheonsite.io/)


wtf


在吗？麻烦问题 ios 怎么能显示逆地址 信息呢？您新的版本，好像显示不了了。