[inst/examples/Ants/Ants.R:13:2:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L13) *style:* **Commented code should be removed.**
```r
#library(testthat) # for testing
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:19:2:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/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/e61ddb3cf948279e12b4535d7fe754bab7dc957e/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/e61ddb3cf948279e12b4535d7fe754bab7dc957e/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/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L103) *style:* **Variable or function name should be lowerCamelCase.**
```r
  nestChem_pHere <- of(world = world, agents = pHere, var = c("nest", "chemical"))
  ^~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:133:4:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/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/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L138) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:143:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L143) *style:* **Variable or function name should be lowerCamelCase.**
```r
  foodChem_pHere <- of(world = world, agents = pHere, var = c("food", "chemical"))
  ^~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:170:4:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L170) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:175:4:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L175) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:193:4:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L193) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:198:4:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L198) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:211:4:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L211) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:217:2:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L217) *style:* **Commented code should be removed.**
```r
#time <- 0
 ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:253:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L253) *style:* **Variable or function name should be lowerCamelCase.**
```r
  f_fS_world <- of(world = world, var = c("food", "foodSource"), agents = patches(world))
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:259:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L259) *style:* **Commented code should be removed.**
```r
  # time <- time + 1
    ^~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:260:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L260) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:263:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L263) *style:* **Commented code should be removed.**
```r
  # plot(world2raster(world)$layer.5) # food
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:264:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L264) *style:* **Commented code should be removed.**
```r
  # points(ants, pch = 16)
    ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:266:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Ants/Ants.R#L266) *style:* **Commented code should be removed.**
```r
  # expect_equivalent(NLcount(ants), nAnts)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:31:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Butterfly/Butterfly-1.R#L31) *style:* **Commented code should be removed.**
```r
# t1 <- createTurtles(n = 100, coords = cbind(xcor = 85, ycor = 95)) # can try with 100 butterflies
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:65:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Butterfly/Butterfly-1.R#L65) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:33:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L33) *style:* **Commented code should be removed.**
```r
# torus <- TRUE # just for reminder, to be used in the movement functions (e.g., fd())
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:89:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/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/e61ddb3cf948279e12b4535d7fe754bab7dc957e/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/e61ddb3cf948279e12b4535d7fe754bab7dc957e/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/e61ddb3cf948279e12b4535d7fe754bab7dc957e/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/e61ddb3cf948279e12b4535d7fe754bab7dc957e/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/e61ddb3cf948279e12b4535d7fe754bab7dc957e/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/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L96) *style:* **Commented code should be removed.**
```r
#   points(wolves, pch = 16, col = "black")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:110:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L110) *style:* **Commented code should be removed.**
```r
  # turtles <- right(turtles, angle = runif(n = NLcount(turtles), min = 0, max = 50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:111:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L111) *style:* **Commented code should be removed.**
```r
  # turtles <- left(turtles, angle = runif(n = NLcount(turtles), min = 0, max = 50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:119:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L119) *style:* **Commented code should be removed.**
```r
# # Test move()
  ^~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:120:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L120) *style:* **Commented code should be removed.**
```r
# plot(wolves@.Data[, "xcor"], wolves@.Data[, "ycor"], col = rainbow(NLcount(wolves)), pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:122:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L122) *style:* **Commented code should be removed.**
```r
#   wolves <- move(wolves)
    ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:123:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L123) *style:* **Commented code should be removed.**
```r
#   points(wolves@.Data[, "xcor"], wolves@.Data[, "ycor"], col = rainbow(NLcount(wolves)), pch = 16)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:149:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L149) *style:* **Commented code should be removed.**
```r
# # Test eatGrass()
  ^~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:150:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L150) *style:* **Commented code should be removed.**
```r
# grass <- createWorld(minPxcor = 1, maxPxcor = 10, minPycor = 1, maxPycor = 10)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:151:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L151) *style:* **Commented code should be removed.**
```r
# grass <- NLset(world = grass, agents = patches(grass), val = c(rep(1, 50), rep(0, 50)))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:152:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L152) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:153:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L153) *style:* **Commented code should be removed.**
```r
# countdown <- NLset(world = countdown, agents = patches(countdown), val = 0)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:154:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L154) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:155:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L155) *style:* **Commented code should be removed.**
```r
# sheep <- createTurtles(n = 10, coords = cbind(xcor = 1:10, ycor = 1:10))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:156:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L156) *style:* **Commented code should be removed.**
```r
# sheep <- turtlesOwn(turtles = sheep, tVar = "energy", tVal = 1:10)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:157:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L157) *style:* **Commented code should be removed.**
```r
# resultsEatGrass <- eatGrass()
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:158:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L158) *style:* **Commented code should be removed.**
```r
# fieldEat <- resultsEatGrass[[1]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:162:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L162) *style:* **Commented code should be removed.**
```r
# sheepEat <- resultsEatGrass[[2]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:163:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L163) *style:* **Commented code should be removed.**
```r
# of(agents = sheepEat, var = "energy")[6:10] == (6:10 + gainFoodSheep)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:180:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L180) *style:* **Commented code should be removed.**
```r
# # Test death()
  ^~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:185:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L185) *style:* **Commented code should be removed.**
```r
# count1 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:186:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L186) *style:* **Commented code should be removed.**
```r
# count2 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:188:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L188) *style:* **Commented code should be removed.**
```r
#   energy <- runif(NLcount(wolves), min = -10, max = 100)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:189:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L189) *style:* **Commented code should be removed.**
```r
#   wolves <- NLset(turtles = wolves, agents = wolves, var = "energy", val = energy)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:190:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L190) *style:* **Commented code should be removed.**
```r
#   count1 <- c(count1, NLcount(wolves) - length(energy[energy < 0]))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:191:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L191) *style:* **Commented code should be removed.**
```r
#   wolves <- death(wolves)
    ^~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:192:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L192) *style:* **Commented code should be removed.**
```r
#   count2 <- c(count2, NLcount(wolves))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:194:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L194) *style:* **Commented code should be removed.**
```r
# plot(1:length(count1), count1, pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:195:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L195) *style:* **Commented code should be removed.**
```r
# points(1:length(count2), count2, pch = 16, col = "red")
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:229:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L229) *style:* **Commented code should be removed.**
```r
# # Test reproduce()
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:234:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L234) *style:* **Commented code should be removed.**
```r
# count1 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:235:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L235) *style:* **Commented code should be removed.**
```r
# count2 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:237:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L237) *style:* **Commented code should be removed.**
```r
#   count1 <- c(count1,NLcount(wolves) + NLcount(wolves) * reproWolf / 100)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:238:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L238) *style:* **Commented code should be removed.**
```r
#   wolves <- reproduce(wolves, reproWolf)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:239:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L239) *style:* **Commented code should be removed.**
```r
#   count2 <- c(count2, NLcount(wolves))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:241:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L241) *style:* **Commented code should be removed.**
```r
# plot(1:length(count1), count1, pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:242:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L242) *style:* **Commented code should be removed.**
```r
# points(1:length(count2), count2, pch = 16, col = "red")
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:268:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L268) *style:* **Commented code should be removed.**
```r
# # Test catchSheep()
  ^~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:271:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L271) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:272:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L272) *style:* **Commented code should be removed.**
```r
# countdown <- NLset(world = countdown, agents = patches(countdown), val = 0)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:273:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L273) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:276:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L276) *style:* **Commented code should be removed.**
```r
# wolves <- createTurtles(n = 5, coords = cbind(xcor = 1:5, ycor = 1:5))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:277:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L277) *style:* **Commented code should be removed.**
```r
# wolves <- turtlesOwn(turtles = wolves, tVar = "energy", tVal = 1:5)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:278:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L278) *style:* **Commented code should be removed.**
```r
# catchSheepResults <- catchSheep()
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:279:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L279) *style:* **Commented code should be removed.**
```r
# sheepCatch <- catchSheepResults[[1]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:280:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L280) *style:* **Commented code should be removed.**
```r
# wolvesCatch <- catchSheepResults[[2]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:281:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L281) *style:* **Commented code should be removed.**
```r
# NLcount(sheepCatch) == 5
  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:282:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L282) *style:* **Commented code should be removed.**
```r
# NLcount(wolvesCatch) == 5
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:283:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L283) *style:* **Commented code should be removed.**
```r
# of(agents = wolvesCatch, var = "energy") == (1:5 + gainFoodWolf)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:315:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L315) *style:* **Commented code should be removed.**
```r
# # Test growGrass()
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:316:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L316) *style:* **Commented code should be removed.**
```r
# grass <- createWorld(1, 5, 1, 5)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:317:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L317) *style:* **Commented code should be removed.**
```r
# grass <- NLset(world = grass, agents = patches(grass), val = c(rep(1, 10), rep(0, 15)))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:318:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L318) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:321:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L321) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:322:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L322) *style:* **Commented code should be removed.**
```r
# fieldGrow <- growGrass()
  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:323:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L323) *style:* **Commented code should be removed.**
```r
# of(world = fieldGrow, agents = patches(fieldGrow), var = "grass") == c(rep(1, 15), rep(0, 10))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:332:6:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L332) *style:* **Place a space before left parenthesis, except in a function call.**
```r
while((NLany(sheep) | NLany(wolves)) & time < maxTime) {
     ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:332:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L332) *style:* **Place a space before left parenthesis, except in a function call.**
```r
while((NLany(sheep) | NLany(wolves)) & time < maxTime) {
      ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:379:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L379) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:64:1:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L64) *style:* **Variable or function name should be lowerCamelCase.**
```r
doEvent.WolfSheepPredation = function(sim, eventTime, eventType, debug = FALSE) {
^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:64:28:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L64) *style:* **Use <-, not =, for assignment.**
```r
doEvent.WolfSheepPredation = function(sim, eventTime, eventType, debug = FALSE) {
                           ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:113:1:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L113) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationInit <- function(sim) {
^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:185:1:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L185) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationSave <- function(sim) {
^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:199:1:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L199) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationPosition <- function(sim) { # Plot the positions
^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:199:45:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L199) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
WolfSheepPredationPosition <- function(sim) { # Plot the positions
                                            ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:223:1:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L223) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationPopSize <- function(sim) {
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:246:1:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L246) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationEvent <- function(sim){
^~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:332:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L332) *style:* **Commented code should be removed.**
```r
  # turtles <- right(turtles, angle = runif(n = NLcount(turtles), min = 0, max = 50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:333:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L333) *style:* **Commented code should be removed.**
```r
  # turtles <- left(turtles, angle = runif(n = NLcount(turtles), min = 0, max = 50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/agentset-functions.R:1885:18:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/agentset-functions.R#L1885) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              for(i in varLevels) {
                 ^
```
[R/agentset-functions.R:1905:18:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/agentset-functions.R#L1905) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              for(i in varLevels) {
                 ^
```
[R/agentset-functions.R:1970:30:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/agentset-functions.R#L1970) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (any(var == "who")) { # if the who numbers have been modified, check for duplicates
                             ^
```
[R/agentset-functions.R:2052:11:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/agentset-functions.R#L2052) *style:* **Variable or function name should be lowerCamelCase.**
```r
          var_k <- match(var, dimnames(world@.Data)[[3]])
          ^~~~~
```
[R/agentset-functions.R:2060:14:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/agentset-functions.R#L2060) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          for(i in 1:length(var)) {
             ^
```
[R/agentset-functions.R:2061:13:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/agentset-functions.R#L2061) *style:* **Variable or function name should be lowerCamelCase.**
```r
            val_i <- val[, var[i]]
            ^~~~~
```
[R/agentset-functions.R:2064:15:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/agentset-functions.R#L2064) *style:* **Variable or function name should be lowerCamelCase.**
```r
              val_i <- rep(val_i, NROW(agents))
              ^~~~~
```
[R/agentset-functions.R:2090:14:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/agentset-functions.R#L2090) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          for(i in 1:length(var)) {
             ^
```
[R/agentset-functions.R:2091:14:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/agentset-functions.R#L2091) *style:* **Variable or function name should be lowerCamelCase.**
```r
             var_k <- match(var[i], dimnames(world@.Data)[[3]])
             ^~~~~
```
[R/Classes.R:15:10:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L15) *style:* **Use <-, not =, for assignment.**
```r
    bbox = colRanges(coords)
         ^
```
[R/Classes.R:16:25:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L16) *style:* **Use <-, not =, for assignment.**
```r
    dimnames(bbox)[[2]] = c("min", "max")
                        ^
```
[R/Classes.R:94:12:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L94) *style:* **Variable or function name should be lowerCamelCase.**
```r
  function(.Object="agentMatrix", coords, ..., levelsAM) {
           ^~~~~~~
```
[R/Classes.R:95:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L95) *style:* **Variable or function name should be lowerCamelCase.**
```r
    Coords <- TRUE
    ^~~~~~
```
[R/Classes.R:108:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L108) *style:* **Variable or function name should be lowerCamelCase.**
```r
      Coords <- FALSE
      ^~~~~~
```
[R/Classes.R:129:41:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L129) *style:* **Commented code should be removed.**
```r
          .Object@levels <- list(NULL) #rep(list(NULL), ncol(.Object@.Data))
                                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:130:12:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L130) *style:* **Commented code should be removed.**
```r
          #names(.Object@levels) <- colnames(otherCols)
           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:159:10:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L159) *style:* **Commented code should be removed.**
```r
        #charCols <- names(charCols)[charCols]
         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:180:11:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L180) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if ((is.matrix(dotCols[[1]]) & is.numeric(dotCols[[1]])) | is(dotCols[[1]], "agentMatrix"))
          ^
```
[R/Classes.R:484:6:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L484) *style:* **Commented code should be removed.**
```r
    #charCols <- match(j, nam)
     ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:485:6:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L485) *style:* **Commented code should be removed.**
```r
    #charCols <- match(nam, j)
     ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:486:34:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L486) *style:* **Commented code should be removed.**
```r
    numCols <- which(!charCols) #colNums[!(colNums %in% charCols)]
                                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:488:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L488) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(any(is.na(newCols))) {
      ^
```
[R/Classes.R:492:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L492) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(any(numCols)) {
      ^
```
[R/Classes.R:493:8:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L493) *style:* **Commented code should be removed.**
```r
      #numColsJ <- which(colNums %in% numCols)
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:497:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L497) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(any(charCols)) {
      ^
```
[R/Classes.R:498:8:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L498) *style:* **Commented code should be removed.**
```r
      #charColsJ <- which(colNums %in% charCols)
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:499:10:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L499) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      for(y in j[charCols]) {
         ^
```
[R/Classes.R:508:2:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L508) *style:* **Commented code should be removed.**
```r
#tmp <- data.frame(from@.Data)
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:509:2:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L509) *style:* **Commented code should be removed.**
```r
#rownames(tmp) <- seq_len(NROW(tmp))
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:510:2:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L510) *style:* **Commented code should be removed.**
```r
#nam <- names(from@levels)
 ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:511:2:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L511) *style:* **Commented code should be removed.**
```r
#tmp[,nam] <- lapply(nam, function(n) from@levels[[n]][tmp[,n]])
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Classes.R:646:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L646) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(whInd))
      ^
```
[R/Classes.R:691:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L691) *style:* **Commented code should be removed.**
```r
#     NROW(x@.Data)
      ^~~~~~~~~~~~~
```
[R/Classes.R:725:1:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L725) *style:* **Variable or function name should be lowerCamelCase.**
```r
head.agentMatrix <- function(x, n = 6L, ...) {
^~~~~~~~~~~~~~~~
```
[R/Classes.R:734:1:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L734) *style:* **Variable or function name should be lowerCamelCase.**
```r
tail.agentMatrix <- function(x, n = 6L, ...) {
^~~~~~~~~~~~~~~~
```
[R/Classes.R:756:36:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L756) *style:* **Variable or function name should be lowerCamelCase.**
```r
cbind.agentMatrix <- function(..., deparse.level) {
                                   ^~~~~~~~~~~~~
```
[R/Classes.R:781:36:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L781) *style:* **Variable or function name should be lowerCamelCase.**
```r
rbind.agentMatrix <- function(..., deparse.level = 1) {
                                   ^~~~~~~~~~~~~
```
[R/Classes.R:784:19:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L784) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (levelsSame) { # if same, then faster rbind of the matrices
                  ^
```
[R/Classes.R:792:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L792) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(any(!unlist(lapply(levels, is.null)))) {
      ^
```
[R/Classes.R:846:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L846) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Ras <- world2raster(x)
  ^~~
```
[R/Classes.R:862:3:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/Classes.R#L862) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Ras <- world2raster(x)
  ^~~
```
[R/NetLogoR-classes.R:260:57:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/NetLogoR-classes.R#L260) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    cellValues <- unlist(lapply(1:dim(x)[3], function(z){as.numeric(t(x@.Data[, , z]))}))
                                                        ^
```
[R/NetLogoR-classes.R:293:31:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/NetLogoR-classes.R#L293) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (NROW(value) != nCell) { # assuming value has one row
                              ^
```
[R/NetLogoR-classes.R:341:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/NetLogoR-classes.R#L341) *style:* **Variable or function name should be lowerCamelCase.**
```r
    NLwMs <- list(...)
    ^~~~~
```
[R/NetLogoR-classes.R:343:54:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/NetLogoR-classes.R#L343) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (length(unique(lapply(NLwMs, FUN = function(x){x@extent}))) == 1) {
                                                     ^
```
[R/NetLogoR-classes.R:506:11:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/NetLogoR-classes.R#L506) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    floor((cellNum - 1) / b[2]) + seq.int(from = 1, to = prod(b),
          ^
```
[R/patch-functions.R:77:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L77) *style:* **Variable or function name should be lowerCamelCase.**
```r
    DT <- data.table(df, toGiveNeigh)
    ^~
```
[R/patch-functions.R:79:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L79) *style:* **Variable or function name should be lowerCamelCase.**
```r
    DT <- DT[, loose := sum(toGiveNeigh), by = from] # how much each patch give
    ^~
```
[R/patch-functions.R:82:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L82) *style:* **Variable or function name should be lowerCamelCase.**
```r
    DT <- DT[, win := sum(toGiveNeigh), by = to] # how much each patch receive
    ^~
```
[R/patch-functions.R:109:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L109) *style:* **Variable or function name should be lowerCamelCase.**
```r
    DT <- data.table(df, toGiveNeigh)
    ^~
```
[R/patch-functions.R:111:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L111) *style:* **Variable or function name should be lowerCamelCase.**
```r
    DT <- DT[, loose := sum(toGiveNeigh), by = from] # how much each patch give
    ^~
```
[R/patch-functions.R:114:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L114) *style:* **Variable or function name should be lowerCamelCase.**
```r
    DT <- DT[, win := sum(toGiveNeigh), by = to] # how much each patch receive
    ^~
```
[R/patch-functions.R:361:12:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L361) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    } else { # worldArray
           ^
```
[R/patch-functions.R:365:32:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L365) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (nrow(agents) < 100000) { # df is faster below 100 agents, DT faster above
                               ^
```
[R/patch-functions.R:370:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L370) *style:* **Variable or function name should be lowerCamelCase.**
```r
      neighbors_df <- data.frame(neighbors, pCoords)
      ^~~~~~~~~~~~
```
[R/patch-functions.R:373:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L373) *style:* **Variable or function name should be lowerCamelCase.**
```r
      neighbors_df <- neighbors_df[order(neighbors_df$id), ]
      ^~~~~~~~~~~~
```
[R/patch-functions.R:463:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L463) *style:* **Variable or function name should be lowerCamelCase.**
```r
    pxcor_ <- round(x)
    ^~~~~~
```
[R/patch-functions.R:464:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L464) *style:* **Variable or function name should be lowerCamelCase.**
```r
    pycor_ <- round(y)
    ^~~~~~
```
[R/patch-functions.R:468:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L468) *style:* **Variable or function name should be lowerCamelCase.**
```r
      pxcor_ <- pCoords[, 1]
      ^~~~~~
```
[R/patch-functions.R:469:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L469) *style:* **Variable or function name should be lowerCamelCase.**
```r
      pycor_ <- pCoords[, 2]
      ^~~~~~
```
[R/patch-functions.R:478:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L478) *style:* **Variable or function name should be lowerCamelCase.**
```r
      pxcor_ = pxcor_[!is.na(pxcor_)]
      ^~~~~~
```
[R/patch-functions.R:478:14:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L478) *style:* **Use <-, not =, for assignment.**
```r
      pxcor_ = pxcor_[!is.na(pxcor_)]
             ^
```
[R/patch-functions.R:479:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L479) *style:* **Variable or function name should be lowerCamelCase.**
```r
      pycor_ = pycor_[!is.na(pycor_)]
      ^~~~~~
```
[R/patch-functions.R:479:14:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L479) *style:* **Use <-, not =, for assignment.**
```r
      pycor_ = pycor_[!is.na(pycor_)]
             ^
```
[R/patch-functions.R:614:1:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/patch-functions.R#L614) *style:* **Lines should not be more than 100 characters.**
```r
#' @seealso \url{https://ccl.northwestern.edu/netlogo/docs/dictionary.html#patch-at-heading-and-distance}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spades-functions.R:65:29:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L65) *style:* **Variable or function name should be lowerCamelCase.**
```r
setGeneric("wrap", function(X, bounds, withHeading) {
                            ^
```
[R/spades-functions.R:74:25:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L74) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/spades-functions.R:91:25:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L91) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/spades-functions.R:101:25:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L101) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/spades-functions.R:102:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L102) *style:* **Variable or function name should be lowerCamelCase.**
```r
    X <- wrap(X, bounds = extent(bounds))
    ^
```
[R/spades-functions.R:111:25:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L111) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/spades-functions.R:112:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L112) *style:* **Variable or function name should be lowerCamelCase.**
```r
    X <- wrap(X, bounds = extent(bounds))
    ^
```
[R/spades-functions.R:121:25:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L121) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/spades-functions.R:124:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L124) *style:* **Variable or function name should be lowerCamelCase.**
```r
      X <- wrap(X, bounds = extent(bounds))
      ^
```
[R/spades-functions.R:136:25:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L136) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds, withHeading) {
                        ^
```
[R/spades-functions.R:161:25:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L161) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds, withHeading) {
                        ^
```
[R/spades-functions.R:162:5:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L162) *style:* **Variable or function name should be lowerCamelCase.**
```r
    X <- wrap(X, bounds = extent(bounds), withHeading = withHeading)
    ^
```
[R/spades-functions.R:171:25:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L171) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds, withHeading) {
                        ^
```
[R/spades-functions.R:174:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/spades-functions.R#L174) *style:* **Variable or function name should be lowerCamelCase.**
```r
      X <- wrap(X, bounds = extent(bounds), withHeading = withHeading)
      ^
```
[R/turtle-functions.R:94:32:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L94) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    coords <- cbind(xcor = rep(((maxPxcor(world) - minPxcor(world)) / 2) + minPxcor(world), n),
                               ^
```
[R/turtle-functions.R:94:33:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L94) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    coords <- cbind(xcor = rep(((maxPxcor(world) - minPxcor(world)) / 2) + minPxcor(world), n),
                                ^
```
[R/turtle-functions.R:95:32:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L95) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                    ycor = rep(((maxPycor(world) - minPycor(world)) / 2) + minPycor(world), n))
                               ^
```
[R/turtle-functions.R:95:33:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L95) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                    ycor = rep(((maxPycor(world) - minPycor(world)) / 2) + minPycor(world), n))
                                ^
```
[R/turtle-functions.R:176:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L176) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(n > 1){
      ^
```
[R/turtle-functions.R:183:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L183) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(missing(breed)){
      ^
```
[R/turtle-functions.R:187:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L187) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(li$breed) == 1) {
      ^
```
[R/turtle-functions.R:191:7:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L191) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(missing(color)){
      ^
```
[R/turtle-functions.R:285:33:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L285) *style:* **Commas should always have a space after.**
```r
      colnames(coords) <- c("x","y")
                                ^
```
[R/turtle-functions.R:453:19:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L453) *style:* **Put spaces around all infix operators.**
```r
        newTurtles<- setXY(turtles = turtles, xcor = 0, ycor = 0, world = world, torus = FALSE)
                 ~^
```
[R/turtle-functions.R:460:17:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L460) *style:* **Put spaces around all infix operators.**
```r
      newTurtles<- setXY(turtles = turtles,
               ~^
```
[R/turtle-functions.R:461:34:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L461) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                         xcor = (((world@extent@xmax - world@extent@xmin) / 2) +
                                 ^
```
[R/turtle-functions.R:461:35:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L461) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                         xcor = (((world@extent@xmax - world@extent@xmin) / 2) +
                                  ^
```
[R/turtle-functions.R:463:34:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L463) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                         ycor = (((world@extent@ymax - world@extent@ymin) / 2) +
                                 ^
```
[R/turtle-functions.R:463:35:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L463) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                         ycor = (((world@extent@ymax - world@extent@ymin) / 2) +
                                  ^
```
[R/turtle-functions.R:469:17:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L469) *style:* **Put spaces around all infix operators.**
```r
      newTurtles<- setXY(turtles = turtles, xcor = world@minPxcor, ycor = world@minPycor,
               ~^
```
[R/turtle-functions.R:474:17:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L474) *style:* **Put spaces around all infix operators.**
```r
      newTurtles<- setXY(turtles = turtles, xcor = world@extent@xmin, ycor = world@extent@ymin,
               ~^
```
[R/turtle-functions.R:738:45:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L738) *style:* **Commas should always have a space after.**
```r
    newData[, "who"] <- (max(turtles@.Data[,"who"]) + 1):(max(turtles@.Data[,"who"]) + sum(n))
                                            ^
```
[R/turtle-functions.R:738:78:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L738) *style:* **Commas should always have a space after.**
```r
    newData[, "who"] <- (max(turtles@.Data[,"who"]) + 1):(max(turtles@.Data[,"who"]) + sum(n))
                                                                             ^
```
[R/turtle-functions.R:971:44:](https://github.com/PredictiveEcology/NetLogoR/blob/e61ddb3cf948279e12b4535d7fe754bab7dc957e/R/turtle-functions.R#L971) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
        !inherits(agents2, "agentMatrix")) { # patches to patches
                                           ^
```


Fez merda


Manda seu commit la fera, vamo ve quem commita mais.
vo cria uma release pra sua mãe


Code  Issues 112  Pull requests 2  Pulse
 css-loader/ 2808483
improved runtime
@sokrasokra committed 5 months ago
2 changed files
26 additions and 14 deletions
runtime/index.js
@@ -1,25 +1,37 @@
-export function a(array) {
+export function create(items) {
+  var array = [];
+  items.forEach(function(elements) {
+    elements.forEach(function(item) {
+      array.push(item);
+    });
+  });
   array.toString = function() {
-    // T O D O
-    return this;
+    return this.map(function(item) {
+      if(item[2]) {
+        return '@media ' + item[2] + '{' + item[1] + '}';
+      }
+      return item[1]
+    }).join('\n');
   }
 }

-export function b(id, source, sourceMap) {

Leave a line note
 Cancel  Leave line note
-  return [id, source, "", sourceMap];

Leave a line note
 Cancel  Leave line note
+export function moduleWithSourceMap(id, source, sourceMap) {
+  return [[id, source, '', sourceMap]];
 }

-export function c(id, source) {
-  return b(id, source, null);
+export function moduleWithoutSourceMap(id, source) {
+  return moduleWithSourceMap(id, source, null);
 }

-export function d(data, mediaQuery) {
+export function importStylesheet(data, mediaQuery) {
+  if(typeof data === 'string')
+    return moduleWithoutSourceMap(null, data);
   return data.map(function(item) {
     return [item[0], item[1], joinMediaQuery(item[2], mediaQuery), item[3]];
   })
 }

 function joinMediaQuery(itemA, itemB) {
-  if(itemA && itemB) return "(" + itemA + ") and (" + itemB + ")";
-  return itemA || itemB || "";
+  if(itemA && itemB) return '(' + itemA + ') and (' + itemB + ')';
+  return itemA || itemB || '';
 }
src/index.js
@@ -99,16 +99,16 @@ export default function loader(source, map) {
     declarations.join('\n'),
     '',
     '// CSS',
-    'export default runtime.a([',
+    'export default runtime.create([',
   ].concat(
     includedStylesheetsArray.map((include) => {
       if(!include.mediaQuery) return `  ${include.name},`;
-      return `  runtime.d(${include.name}, ${JSON.stringify(include.mediaQuery)},`;
+      return `  runtime.importStylesheet(${include.name}, ${JSON.stringify(include.mediaQuery)},`;
     })
   ).concat([
     sourceMap ?
-    `  runtime.b(module.id, ${cssJs}, ${sourceMap})` :
-    `  runtime.c(module.id, ${cssJs})`,
+    `  runtime.moduleWithSourceMap(module.id, ${cssJs}, ${sourceMap})` :
+    `  runtime.moduleWithoutSourceMap(module.id, ${cssJs})`,
     ']);'
   ]).join('\n');
 }
0 comments on commit 2808483

Comment on 2808483

Leave a comment
Comment
 Desktop version


this is a comment on the changes


Tua mae é mais pesada que o chrome


ух... это здесь не нужно.
что делают эти строчки ?


давай сразу подчистим закомментированные строчки


а почему убрали авторизацию? теперь каждый пользователь может сюда зайти ?


это лучше сразу удалить


you can remove all restore and disable pragmas, you only need the first one and the last one, so you can group all into one.


TeamCity Chorus :: chorus-linux64-master Continuous [Build 3.0.26.89f70d7689282642d4b3000822a2eb8f8e1e7878](http://build.palaso.org/viewLog.html?buildId=98638&buildTypeId=Chorus_Linux64masterContinuous) outcome was **SUCCESS**
Summary: Tests passed: 938, ignored: 57 Build time: 00:13:06


а что делает меню "Регистрация" у админа ?
куда попадает админ по нажатию на эту кнопку?


このif節は不完全なサロゲートペアを入力したとき(ハイサロゲートでブツ切られた文字列とか)にそれがキャッシュされて以後の検索に影響するのを防ぐものです。
もちろんそのような入力を想定しないなら無くてもOKと思います。


Ini login nya gimana ya ?
Bisa lewat url ngga ?


No worries for the dodge states edits, it's my job and you did an awesome one though! :muscle:
Concerning medics, since I am still working on BJ camp uniform recolors and adjustments (plus a new boss), I'll take a look into it today or tomorrow. Thank you very much in any case!


This the e2e implementation of quote-by-destination makes the assumption that all curves are simple rates (i.e. they only have 2 points, [0,0] and [x,y]).


No that was perfect since I am not fond on zscript and I am just an intuitive guy, yeah not a programmer :smile:


done in https://github.com/openshiftio/launchpad-frontend/commit/56967d3405d8706e425886d288a671fe0f317c65


Thank you for this fix, the only thing that I did on an uncommitted change was adding that goal.bInvulnerable row, but didn't took in consideration dodgetimeout (and I knew there was something weird). Thanks a lot!


How would you feel about adding macros in BufferWriter.h like:

#define FBW_PRINTF_FMT "%.*s"
#define FBW_PRINTF_PARAMS(FBW) static_cast<int>((FWB).size()), (FBW).data()

used like:

Error("HTTP " FBW_PRINTF_FMT, FBW_PRINTF_PARAMS(FBW));

Yes macros are 180 degrees of suck but printf is 180 degrees of suck, so you add em together and get zero.


So here we are using projection to duplicate some columns, right? Ideally we wouldn't duplicate them. The planning code uses a planNode - to - stream idx map which we should be able to just change accordingly.


This commit breaks build:

ERROR: Nothing RPROVIDES 'virtual/libgles2' (but /home/jenkins/6.2/meta-oe-alliance/meta-oe/recipes-qt/qthbbtv/enigma2-plugin-extensions-hbbtv-qt.bb RDEPENDS on or otherwise requires it)
NOTE: Runtime target 'virtual/libgles2' is unbuildable, removing...
Missing or unbuildable dependency chain was: ['virtual/libgles2']
NOTE: Runtime target 'enigma2-plugin-extensions-hbbtv-qt' is unbuildable, removing...
Missing or unbuildable dependency chain was: ['enigma2-plugin-extensions-hbbtv-qt', 'virtual/libgles2']
NOTE: Runtime target 'oe-alliance-enigma2' is unbuildable, removing...
Missing or unbuildable dependency chain was: ['oe-alliance-enigma2', 'oe-alliance-feeds', 'enigma2-plugin-extensions-hbbtv-qt', 'virtual/libgles2']
NOTE: Runtime target 'oe-alliance-base' is unbuildable, removing...


you are right!


This has already been fixed on master [here][1].

[1]: https://github.com/hibernate/hibernate-orm/commit/287221e26e1ce7bfcf537b4f0c6d9476f0d5b1ca#diff-781d50b149bb9d7cb8a5b0b3e0282cf5


Structures definitions


Hue


Thanks for the patch @bradking


Structure definitions


Structures


System link them now, there will be two fewer issues.

#190 and #189


new file added..


ok


Ka ketauan tuh email ama password nya. Hehe. Btw ini bot apa ?


H


def ObservationSequenceProbability(TransitionMatrix,ObservationMatrix,sequence,StartingProbability):
    "Estimation the probability of a sequence of observation given a transition"
    "matrix and an observation matrix (ie. forward pass)."
    # Nomber of distinct hidden state
    NumHiddenState = TransitionMatrix.shape[0]
#    # Nomber of distinct state
#    NumState = ObservationMatrix.shape[0]
    # Computing starting alpha (t=0)
    alpha_0 = np.zeros(NumHiddenState)
    for i in range(NumHiddenState):
        alpha_0[i]=StartingProbability[i]*ObservationMatrix[sequence[0],i]
    # Main loop
    alpha_tmoins1 = alpha_0
    for t in range(1,len(sequence),1):
        # Alpha_t is the vector of the probabilities of observing the sequence from
        # 0 to t for each hidden state i at t
        alpha_t = np.zeros(NumHiddenState)
        for i in range(NumHiddenState):
            # Probability of reaching the hidden state i at time t
            temp = np.dot(alpha_tmoins1,TransitionMatrix[i,:])
            print(temp)
            # Probability of reaching the observed state at time t from hidden state i
            alpha_t[i] = temp*ObservationMatrix[sequence[t],i]
        alpha_tmoins1 = alpha_t
    return np.sum(alpha_tmoins1)


By the way, I was thinking about this (`pg_controldata` still showing `in production` even if the `the server forked off from that timeline` message is thrown; I think the `pg_controldata` status should be updated to something like `wrong timeline` or whatever, but I have not really looked into the Postgres code whether this would be feasible.


Commenting


![](https://github.trello.services/images/mini-trello-icon.png) [NFR33](https://trello.com/c/vxGugWmr/40-nfr33)


> funny & more efficient methods

Please do share!


Cara dapetin auth tolen gimana


Prototypes des fonctions :
   random_fill_battlefield : choisit aléatoirement le type de chaque cellule
   DEBUG_display_battlefield : affiche le terrain en chiffre dans la console
   test : appel les fonctions avec des valeurs fixes
   init_battlefield : initialise le terrain et alloue le membre **cells


Token


Je pense qu'on peut supprimer les define


@nataly2012 Если у тебя в строке будут и пробелы, и точки, то сколько у тебя символов точки никогда не посчитается, т.к. ты используешь elif, который проверится, только если условие в if будет не верным.


Enumérations :
J'ai supprimé LDR et EMPTY pour les raisons cités sur fb


You are referencing the profile strings here instead of the new read receipt strings.


@nataly2012 `text.count(sub)` выдаст такой же результат.


updated


Ruig


There are two problems that I am trying to fix. When maven_core submodule is checked out as submodule with "--recursive", it will not automatically checkout master branch.  HEAD points to disconnected branch, and I get errors on compilation. The idea here is to make sure that maven_core submodule tracks only master branch.