[inst/examples/Ants/Ants.R:12:2:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L12) *style:* **Commented code should be removed.**
```r
#library(NetLogoR)
 ^~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:13:2:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L13) *style:* **Commented code should be removed.**
```r
#library(testthat) # for testing
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:16:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L16) *style:* **Variable or function name should be snake_case.**
```r
nAnts <- 125 # varies from 0 to 200 in the NetLogo model
^~~~~
```
[inst/examples/Ants/Ants.R:17:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L17) *style:* **Variable or function name should be snake_case.**
```r
rDiff <- 50 # varies from 0 to 99 in the NetLogo model
^~~~~
```
[inst/examples/Ants/Ants.R:18:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L18) *style:* **Variable or function name should be snake_case.**
```r
rEvap <- 10 # varies from 0 to 99 in the NetLogo model
^~~~~
```
[inst/examples/Ants/Ants.R:19:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L19) *style:* **Commented code should be removed.**
```r
# torus = FALSE
  ^~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:25:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L25) *style:* **Lines should not be more than 80 characters.**
```r
# As all the NLworldMatrix must have the same extent, you can copy past the object to a new name
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:29:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L29) *style:* **Lines should not be more than 80 characters.**
```r
chemical <- createWorld(minPxcor = -35, maxPxcor = 35, minPycor = -35, maxPycor = 35, data = 0) # amount of chemical on the patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:29:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L29) *style:* **Lines should not be more than 80 characters.**
```r
chemical <- createWorld(minPxcor = -35, maxPxcor = 35, minPycor = -35, maxPycor = 35, data = 0) # amount of chemical on the patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:33:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L33) *style:* **Variable or function name should be snake_case.**
```r
nestScent <- chemical # higher closer to the nest
^~~~~~~~~
```
[inst/examples/Ants/Ants.R:34:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L34) *style:* **Variable or function name should be snake_case.**
```r
distNest <- NLdist(agents = patches(nest), agents2 = cbind(x = 0, y = 0))
^~~~~~~~
```
[inst/examples/Ants/Ants.R:35:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L35) *style:* **Lines should not be more than 80 characters.**
```r
patchNest <- which(distNest < 5) # patch/cell numbers for the ones at distance less than 5 from [x = 0, y = 0]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:35:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L35) *style:* **Variable or function name should be snake_case.**
```r
patchNest <- which(distNest < 5) # patch/cell numbers for the ones at distance less than 5 from [x = 0, y = 0]
^~~~~~~~~
```
[inst/examples/Ants/Ants.R:35:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L35) *style:* **Lines should not be more than 80 characters.**
```r
patchNest <- which(distNest < 5) # patch/cell numbers for the ones at distance less than 5 from [x = 0, y = 0]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:36:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L36) *style:* **Lines should not be more than 80 characters.**
```r
nest <- NLset(world = nest, agents = patches(nest), val = 0) # 0 to all the patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:36:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L36) *style:* **Lines should not be more than 80 characters.**
```r
nest <- NLset(world = nest, agents = patches(nest), val = 0) # 0 to all the patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:37:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L37) *style:* **Lines should not be more than 80 characters.**
```r
nest <- NLset(world = nest, agents = PxcorPycorFromCell(world = nest, cellNum = patchNest), val = 1) # and reassign 1 to the patches in the nest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:37:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L37) *style:* **Lines should not be more than 80 characters.**
```r
nest <- NLset(world = nest, agents = PxcorPycorFromCell(world = nest, cellNum = patchNest), val = 1) # and reassign 1 to the patches in the nest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:38:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L38) *style:* **Lines should not be more than 80 characters.**
```r
nestScent <- NLset(world = nestScent, agents = patches(nestScent), val = 200 - distNest) # spread nestScent over the whole world, stronger near the nest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:38:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L38) *style:* **Variable or function name should be snake_case.**
```r
nestScent <- NLset(world = nestScent, agents = patches(nestScent), val = 200 - distNest) # spread nestScent over the whole world, stronger near the nest
^~~~~~~~~
```
[inst/examples/Ants/Ants.R:38:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L38) *style:* **Lines should not be more than 80 characters.**
```r
nestScent <- NLset(world = nestScent, agents = patches(nestScent), val = 200 - distNest) # spread nestScent over the whole world, stronger near the nest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:41:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L41) *style:* **Variable or function name should be snake_case.**
```r
foodSource <- chemical # number (1, 2, or 3) to identify the food sources
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:43:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L43) *style:* **Lines should not be more than 80 characters.**
```r
distFood1 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = 0.6 * maxPxcor(foodSource), y = 0)) # setup food source 1 on the right
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:43:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L43) *style:* **Variable or function name should be snake_case.**
```r
distFood1 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = 0.6 * maxPxcor(foodSource), y = 0)) # setup food source 1 on the right
^~~~~~~~~
```
[inst/examples/Ants/Ants.R:43:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L43) *style:* **Lines should not be more than 80 characters.**
```r
distFood1 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = 0.6 * maxPxcor(foodSource), y = 0)) # setup food source 1 on the right
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:44:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L44) *style:* **Variable or function name should be snake_case.**
```r
patchFood1 <- which(distFood1 < 5)
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:45:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L45) *style:* **Lines should not be more than 80 characters.**
```r
foodSource <- NLset(world = foodSource, agents = patches(foodSource), val = 0) # 0 to all patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:45:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L45) *style:* **Variable or function name should be snake_case.**
```r
foodSource <- NLset(world = foodSource, agents = patches(foodSource), val = 0) # 0 to all patches
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:45:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L45) *style:* **Lines should not be more than 80 characters.**
```r
foodSource <- NLset(world = foodSource, agents = patches(foodSource), val = 0) # 0 to all patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:46:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L46) *style:* **Lines should not be more than 80 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood1), val = 1) # and reassign 1 to the patches in the foodSource 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:46:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L46) *style:* **Variable or function name should be snake_case.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood1), val = 1) # and reassign 1 to the patches in the foodSource 1
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:46:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L46) *style:* **Lines should not be more than 80 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood1), val = 1) # and reassign 1 to the patches in the foodSource 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:47:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L47) *style:* **Lines should not be more than 80 characters.**
```r
distFood2 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.6 * maxPxcor(foodSource), y = -0.6 * maxPycor(foodSource))) # setup food source 2 on the lower-left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:47:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L47) *style:* **Variable or function name should be snake_case.**
```r
distFood2 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.6 * maxPxcor(foodSource), y = -0.6 * maxPycor(foodSource))) # setup food source 2 on the lower-left
^~~~~~~~~
```
[inst/examples/Ants/Ants.R:47:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L47) *style:* **Lines should not be more than 80 characters.**
```r
distFood2 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.6 * maxPxcor(foodSource), y = -0.6 * maxPycor(foodSource))) # setup food source 2 on the lower-left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:48:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L48) *style:* **Variable or function name should be snake_case.**
```r
patchFood2 <- which(distFood2 < 5)
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:49:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L49) *style:* **Lines should not be more than 80 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood2), val = 2) # and reassign 2 to the patches in the foodSource 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:49:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L49) *style:* **Variable or function name should be snake_case.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood2), val = 2) # and reassign 2 to the patches in the foodSource 2
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:49:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L49) *style:* **Lines should not be more than 80 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood2), val = 2) # and reassign 2 to the patches in the foodSource 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:50:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L50) *style:* **Lines should not be more than 80 characters.**
```r
distFood3 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.8 * maxPxcor(foodSource), y = 0.8 * maxPycor(foodSource))) # setup food source 3 on the upper-left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:50:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L50) *style:* **Variable or function name should be snake_case.**
```r
distFood3 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.8 * maxPxcor(foodSource), y = 0.8 * maxPycor(foodSource))) # setup food source 3 on the upper-left
^~~~~~~~~
```
[inst/examples/Ants/Ants.R:50:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L50) *style:* **Lines should not be more than 80 characters.**
```r
distFood3 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.8 * maxPxcor(foodSource), y = 0.8 * maxPycor(foodSource))) # setup food source 3 on the upper-left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:51:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L51) *style:* **Variable or function name should be snake_case.**
```r
patchFood3 <- which(distFood3 < 5)
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:52:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L52) *style:* **Lines should not be more than 80 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood3), val = 3) # and reassign 3 to the patches in the foodSource 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:52:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L52) *style:* **Variable or function name should be snake_case.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood3), val = 3) # and reassign 3 to the patches in the foodSource 3
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:52:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L52) *style:* **Lines should not be more than 80 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood3), val = 3) # and reassign 3 to the patches in the foodSource 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:54:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L54) *style:* **Lines should not be more than 80 characters.**
```r
patchFood123 <- PxcorPycorFromCell(world = food, cellNum = c(patchFood1, patchFood2, patchFood3))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:54:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L54) *style:* **Variable or function name should be snake_case.**
```r
patchFood123 <- PxcorPycorFromCell(world = food, cellNum = c(patchFood1, patchFood2, patchFood3))
^~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:55:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L55) *style:* **Lines should not be more than 80 characters.**
```r
food <- NLset(world = food, agents = patchFood123, val = sample(c(1,2), size = NLcount(patchFood123), replace = TRUE)) # set "food" at sources to either 1 or 2, randomly
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:55:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L55) *style:* **Lines should not be more than 80 characters.**
```r
food <- NLset(world = food, agents = patchFood123, val = sample(c(1,2), size = NLcount(patchFood123), replace = TRUE)) # set "food" at sources to either 1 or 2, randomly
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:55:69:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L55) *style:* **Commas should always have a space after.**
```r
food <- NLset(world = food, agents = patchFood123, val = sample(c(1,2), size = NLcount(patchFood123), replace = TRUE)) # set "food" at sources to either 1 or 2, randomly
                                                                    ^
```
[inst/examples/Ants/Ants.R:59:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L59) *style:* **Lines should not be more than 80 characters.**
```r
ants <- createTurtles(n = nAnts, coords = cbind(xcor = 0, ycor = 0), color = "red") # red = not carrying food
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:59:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L59) *style:* **Lines should not be more than 80 characters.**
```r
ants <- createTurtles(n = nAnts, coords = cbind(xcor = 0, ycor = 0), color = "red") # red = not carrying food
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:62:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L62) *style:* **Commented code should be removed.**
```r
# plot(world2raster(world)$layer.5) # food
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:63:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L63) *style:* **Commented code should be removed.**
```r
# points(turtles2spdf(ants), pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:66:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L66) *style:* **Lines should not be more than 80 characters.**
```r
f_fS_world <- of(world = world, var = c("food", "foodSource"), agents = patches(world))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:66:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L66) *style:* **Variable or function name should be snake_case.**
```r
f_fS_world <- of(world = world, var = c("food", "foodSource"), agents = patches(world))
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:67:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L67) *style:* **Lines should not be more than 80 characters.**
```r
food1 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 1, "food"]) # sum of food values for the patches with foodSource equals to 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:67:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L67) *style:* **Lines should not be more than 80 characters.**
```r
food1 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 1, "food"]) # sum of food values for the patches with foodSource equals to 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:68:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L68) *style:* **Lines should not be more than 80 characters.**
```r
food2 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 2, "food"]) # sum of food values for the patches with foodSource equals to 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:68:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L68) *style:* **Lines should not be more than 80 characters.**
```r
food2 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 2, "food"]) # sum of food values for the patches with foodSource equals to 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:69:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L69) *style:* **Lines should not be more than 80 characters.**
```r
food3 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 3, "food"]) # sum of food values for the patches with foodSource equals to 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:69:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L69) *style:* **Lines should not be more than 80 characters.**
```r
food3 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 3, "food"]) # sum of food values for the patches with foodSource equals to 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:73:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L73) *style:* **Variable or function name should be snake_case.**
```r
toNest <- function(turtles){
^~~~~~
```
[inst/examples/Ants/Ants.R:74:4:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L74) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:76:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L76) *style:* **Variable or function name should be snake_case.**
```r
  pHere <- patchHere(world = world, turtles = turtles)
  ^~~~~
```
[inst/examples/Ants/Ants.R:76:12:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L76) *warning:* **no visible global function definition for ‘patchHere’**
```r
  pHere <- patchHere(world = world, turtles = turtles)
           ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:77:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L77) *style:* **Lines should not be more than 80 characters.**
```r
  nest_chem_pHere <- of(world = world, agents = pHere, var = c("nest", "chemical")) # nest values (1 or 0) and chemical in the order of the turtles
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:77:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L77) *style:* **Variable or function name should be snake_case.**
```r
  nest_chem_pHere <- of(world = world, agents = pHere, var = c("nest", "chemical")) # nest values (1 or 0) and chemical in the order of the turtles
  ^~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:77:22:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L77) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  nest_chem_pHere <- of(world = world, agents = pHere, var = c("nest", "chemical")) # nest values (1 or 0) and chemical in the order of the turtles
                     ^~
```
[inst/examples/Ants/Ants.R:78:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L78) *style:* **Variable or function name should be snake_case.**
```r
  whoTurtles <- of(agents = turtles, var = "who")
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:78:17:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L78) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  whoTurtles <- of(agents = turtles, var = "who")
                ^~
```
[inst/examples/Ants/Ants.R:81:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L81) *style:* **Lines should not be more than 80 characters.**
```r
  turtlesIn <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 1]) # whoTurtles for which their nest value equals 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:81:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L81) *style:* **Variable or function name should be snake_case.**
```r
  turtlesIn <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 1]) # whoTurtles for which their nest value equals 1
  ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:81:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L81) *warning:* **no visible global function definition for ‘turtle’, Did you mean 'turtles'?**
```r
  turtlesIn <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 1]) # whoTurtles for which their nest value equals 1
  ^~~~~~
```
[inst/examples/Ants/Ants.R:82:5:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L82) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesIn) != 0){
    ^
```
[inst/examples/Ants/Ants.R:83:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L83) *style:* **Lines should not be more than 80 characters.**
```r
    turtlesIn <- NLset(turtles = turtlesIn, agents = turtlesIn, var = "color", val = "red")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:83:5:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L83) *style:* **Variable or function name should be snake_case.**
```r
    turtlesIn <- NLset(turtles = turtlesIn, agents = turtlesIn, var = "color", val = "red")
    ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:83:18:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L83) *warning:* **no visible global function definition for ‘NLset’**
```r
    turtlesIn <- NLset(turtles = turtlesIn, agents = turtlesIn, var = "color", val = "red")
                 ^~~~~
```
[inst/examples/Ants/Ants.R:84:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L84) *style:* **Lines should not be more than 80 characters.**
```r
    turtlesIn <- right(turtles = turtlesIn, angle = 180) # drop food and head out again
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:84:5:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L84) *style:* **Variable or function name should be snake_case.**
```r
    turtlesIn <- right(turtles = turtlesIn, angle = 180) # drop food and head out again
    ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:84:18:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L84) *warning:* **no visible global function definition for ‘right’**
```r
    turtlesIn <- right(turtles = turtlesIn, angle = 180) # drop food and head out again
                 ^~~~~
```
[inst/examples/Ants/Ants.R:88:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L88) *style:* **Lines should not be more than 80 characters.**
```r
  turtlesOut <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 0]) # whoTurtles for which their nest value equals 0
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:88:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L88) *style:* **Variable or function name should be snake_case.**
```r
  turtlesOut <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 0]) # whoTurtles for which their nest value equals 0
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:88:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L88) *warning:* **no visible global function definition for ‘turtle’, Did you mean 'turtles'?**
```r
  turtlesOut <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 0]) # whoTurtles for which their nest value equals 0
  ^~~~~~
```
[inst/examples/Ants/Ants.R:89:5:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L89) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesOut) != 0){
    ^
```
[inst/examples/Ants/Ants.R:90:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L90) *style:* **Lines should not be more than 80 characters.**
```r
    pHereOut <- pHere[nest_chem_pHere[, "nest"] == 0, , drop = FALSE] # pHere for which their nest value equals 0 (drop = FALSE keeps a format matrix when 1 row)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:90:5:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L90) *style:* **Variable or function name should be snake_case.**
```r
    pHereOut <- pHere[nest_chem_pHere[, "nest"] == 0, , drop = FALSE] # pHere for which their nest value equals 0 (drop = FALSE keeps a format matrix when 1 row)
    ^~~~~~~~
```
[inst/examples/Ants/Ants.R:91:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L91) *style:* **Lines should not be more than 80 characters.**
```r
    world <- NLset(world = world, agents = pHereOut, var = "chemical", val = nest_chem_pHere[nest_chem_pHere[, "nest"] == 0, "chemical"] + 60) # drop some chemical
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:91:14:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L91) *warning:* **no visible global function definition for ‘NLset’**
```r
    world <- NLset(world = world, agents = pHereOut, var = "chemical", val = nest_chem_pHere[nest_chem_pHere[, "nest"] == 0, "chemical"] + 60) # drop some chemical
             ^~~~~
```
[inst/examples/Ants/Ants.R:92:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L92) *style:* **Lines should not be more than 80 characters.**
```r
    turtlesOut <- upPatch(turtles = turtlesOut, varPatch = "nestScent") # head toward the greatest value of nestScent
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:92:5:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L92) *style:* **Variable or function name should be snake_case.**
```r
    turtlesOut <- upPatch(turtles = turtlesOut, varPatch = "nestScent") # head toward the greatest value of nestScent
    ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:92:19:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L92) *warning:* **no visible global function definition for ‘upPatch’, Did you mean 'pmatch'?**
```r
    turtlesOut <- upPatch(turtles = turtlesOut, varPatch = "nestScent") # head toward the greatest value of nestScent
                  ^~~~~~~
```
[inst/examples/Ants/Ants.R:95:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L95) *style:* **Lines should not be more than 80 characters.**
```r
  # Because turtles have been modified separately as turtlesIn and turtlesOut, we need to put them back together to execute the following procedure
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:96:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L96) *style:* **Lines should not be more than 80 characters.**
```r
  turtles <- turtleSet(turtlesIn, turtlesOut) # there should not be any problem (e.g., duplicates) as turtles are always either in or out, but never both or neither
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:96:14:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L96) *warning:* **no visible global function definition for ‘turtleSet’**
```r
  turtles <- turtleSet(turtlesIn, turtlesOut) # there should not be any problem (e.g., duplicates) as turtles are always either in or out, but never both or neither
             ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:97:4:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L97) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:101:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L101) *style:* **Variable or function name should be snake_case.**
```r
lookFood <- function(turtles){
^~~~~~~~
```
[inst/examples/Ants/Ants.R:102:4:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L102) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:104:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L104) *style:* **Variable or function name should be snake_case.**
```r
  pHere <- patchHere(world = world, turtles = turtles)
  ^~~~~
```
[inst/examples/Ants/Ants.R:104:12:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L104) *warning:* **no visible global function definition for ‘patchHere’**
```r
  pHere <- patchHere(world = world, turtles = turtles)
           ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:105:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L105) *style:* **Lines should not be more than 80 characters.**
```r
  food_chem_pHere <- of(world = world, agents = pHere, var = c("food", "chemical")) # faster to extract both values at the same time
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:105:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L105) *style:* **Variable or function name should be snake_case.**
```r
  food_chem_pHere <- of(world = world, agents = pHere, var = c("food", "chemical")) # faster to extract both values at the same time
  ^~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:105:22:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L105) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  food_chem_pHere <- of(world = world, agents = pHere, var = c("food", "chemical")) # faster to extract both values at the same time
                     ^~
```
[inst/examples/Ants/Ants.R:106:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L106) *style:* **Variable or function name should be snake_case.**
```r
  whoTurtles <- of(agents = turtles, var = "who")
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:106:17:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L106) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  whoTurtles <- of(agents = turtles, var = "who")
                ^~
```
[inst/examples/Ants/Ants.R:109:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L109) *style:* **Lines should not be more than 80 characters.**
```r
  turtlesFood <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "food"] > 0])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:109:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L109) *style:* **Variable or function name should be snake_case.**
```r
  turtlesFood <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "food"] > 0])
  ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:109:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L109) *warning:* **no visible global function definition for ‘turtle’, Did you mean 'turtles'?**
```r
  turtlesFood <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "food"] > 0])
  ^~~~~~
```
[inst/examples/Ants/Ants.R:110:5:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L110) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesFood) != 0){
    ^
```
[inst/examples/Ants/Ants.R:111:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L111) *style:* **Lines should not be more than 80 characters.**
```r
    turtlesFood <- NLset(turtles = turtlesFood, agents = turtlesFood, var = "color", val = "orange") # pick up food
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:111:5:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L111) *style:* **Variable or function name should be snake_case.**
```r
    turtlesFood <- NLset(turtles = turtlesFood, agents = turtlesFood, var = "color", val = "orange") # pick up food
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:111:20:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L111) *warning:* **no visible global function definition for ‘NLset’**
```r
    turtlesFood <- NLset(turtles = turtlesFood, agents = turtlesFood, var = "color", val = "orange") # pick up food
                   ^~~~~
```
[inst/examples/Ants/Ants.R:112:5:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L112) *style:* **Variable or function name should be snake_case.**
```r
    turtlesFood <- right(turtles = turtlesFood, angle = 180) # and turn around
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:112:20:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L112) *warning:* **no visible global function definition for ‘right’**
```r
    turtlesFood <- right(turtles = turtlesFood, angle = 180) # and turn around
                   ^~~~~
```
[inst/examples/Ants/Ants.R:113:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L113) *style:* **Lines should not be more than 80 characters.**
```r
    turtles <- turtleSet(turtlesFood, other(agents = turtles, except = turtlesFood)) # reconstruct the turtles with turtlesFood modified and the others
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:113:16:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L113) *warning:* **no visible global function definition for ‘turtleSet’**
```r
    turtles <- turtleSet(turtlesFood, other(agents = turtles, except = turtlesFood)) # reconstruct the turtles with turtlesFood modified and the others
               ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:113:39:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L113) *warning:* **no visible global function definition for ‘other’, Did you mean 'order'?**
```r
    turtles <- turtleSet(turtlesFood, other(agents = turtles, except = turtlesFood)) # reconstruct the turtles with turtlesFood modified and the others
                                      ^~~~~
```
[inst/examples/Ants/Ants.R:114:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L114) *style:* **Lines should not be more than 80 characters.**
```r
    world <- NLset(world = world, agents = pHere[food_chem_pHere[, "food"] > 0, , drop = FALSE], var = "food", val = food_chem_pHere[food_chem_pHere[, "food"] > 0, "food"] - 1) # and reduce the food source
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:114:14:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L114) *warning:* **no visible global function definition for ‘NLset’**
```r
    world <- NLset(world = world, agents = pHere[food_chem_pHere[, "food"] > 0, , drop = FALSE], var = "food", val = food_chem_pHere[food_chem_pHere[, "food"] > 0, "food"] - 1) # and reduce the food source
             ^~~~~
```
[inst/examples/Ants/Ants.R:118:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L118) *style:* **Lines should not be more than 80 characters.**
```r
  turtlesChem <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "chemical"] >= 0.05 & food_chem_pHere[, "chemical"] < 2])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:118:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L118) *style:* **Variable or function name should be snake_case.**
```r
  turtlesChem <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "chemical"] >= 0.05 & food_chem_pHere[, "chemical"] < 2])
  ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:118:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L118) *warning:* **no visible global function definition for ‘turtle’, Did you mean 'turtles'?**
```r
  turtlesChem <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "chemical"] >= 0.05 & food_chem_pHere[, "chemical"] < 2])
  ^~~~~~
```
[inst/examples/Ants/Ants.R:119:5:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L119) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesChem) != 0){
    ^
```
[inst/examples/Ants/Ants.R:120:5:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L120) *style:* **Variable or function name should be snake_case.**
```r
    turtlesChem <- upPatch(turtles = turtlesChem, varPatch = "chemical")
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:120:20:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L120) *warning:* **no visible global function definition for ‘upPatch’, Did you mean 'pmatch'?**
```r
    turtlesChem <- upPatch(turtles = turtlesChem, varPatch = "chemical")
                   ^~~~~~~
```
[inst/examples/Ants/Ants.R:121:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L121) *style:* **Lines should not be more than 80 characters.**
```r
    turtles <- turtleSet(turtlesChem, other(agents = turtles, except = turtlesChem)) # reconstruct the turtles with turtlesChem modified and the others
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:121:16:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L121) *warning:* **no visible global function definition for ‘turtleSet’**
```r
    turtles <- turtleSet(turtlesChem, other(agents = turtles, except = turtlesChem)) # reconstruct the turtles with turtlesChem modified and the others
               ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:121:39:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L121) *warning:* **no visible global function definition for ‘other’, Did you mean 'order'?**
```r
    turtles <- turtleSet(turtlesChem, other(agents = turtles, except = turtlesChem)) # reconstruct the turtles with turtlesChem modified and the others
                                      ^~~~~
```
[inst/examples/Ants/Ants.R:124:4:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L124) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:128:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L128) *style:* **Variable or function name should be snake_case.**
```r
upPatch <- function(turtles, varPatch){
^~~~~~~
```
[inst/examples/Ants/Ants.R:128:30:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L128) *style:* **Variable or function name should be snake_case.**
```r
upPatch <- function(turtles, varPatch){
                             ^~~~~~~~
```
[inst/examples/Ants/Ants.R:129:4:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L129) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:132:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L132) *style:* **Variable or function name should be snake_case.**
```r
  pAhead <- patchAhead(world = world, turtles = turtles, dist = 1)
  ^~~~~~
```
[inst/examples/Ants/Ants.R:132:13:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L132) *warning:* **no visible global function definition for ‘patchAhead’**
```r
  pAhead <- patchAhead(world = world, turtles = turtles, dist = 1)
            ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:132:24:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L132) *warning:* **no visible binding for global variable ‘world’**
```r
  pAhead <- patchAhead(world = world, turtles = turtles, dist = 1)
                       ^~~~~
```
[inst/examples/Ants/Ants.R:133:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L133) *style:* **Variable or function name should be snake_case.**
```r
  scentAhead <- of(world = world, var = varPatch, agents = pAhead)
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:133:17:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L133) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  scentAhead <- of(world = world, var = varPatch, agents = pAhead)
                ^~
```
[inst/examples/Ants/Ants.R:133:20:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L133) *warning:* **no visible binding for global variable ‘world’**
```r
  scentAhead <- of(world = world, var = varPatch, agents = pAhead)
                   ^~~~~
```
[inst/examples/Ants/Ants.R:134:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L134) *style:* **Variable or function name should be snake_case.**
```r
  pRight <- patchRight(world = world, turtles = turtles, dist = 1, angle = 45)
  ^~~~~~
```
[inst/examples/Ants/Ants.R:134:13:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L134) *warning:* **no visible global function definition for ‘patchRight’**
```r
  pRight <- patchRight(world = world, turtles = turtles, dist = 1, angle = 45)
            ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:134:24:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L134) *warning:* **no visible binding for global variable ‘world’**
```r
  pRight <- patchRight(world = world, turtles = turtles, dist = 1, angle = 45)
                       ^~~~~
```
[inst/examples/Ants/Ants.R:135:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L135) *style:* **Variable or function name should be snake_case.**
```r
  scentRight <- of(world = world, var = varPatch, agents = pRight)
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:135:17:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L135) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  scentRight <- of(world = world, var = varPatch, agents = pRight)
                ^~
```
[inst/examples/Ants/Ants.R:135:20:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L135) *warning:* **no visible binding for global variable ‘world’**
```r
  scentRight <- of(world = world, var = varPatch, agents = pRight)
                   ^~~~~
```
[inst/examples/Ants/Ants.R:136:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L136) *style:* **Variable or function name should be snake_case.**
```r
  pLeft <- patchLeft(world = world, turtles = turtles, dist = 1, angle = 45)
  ^~~~~
```
[inst/examples/Ants/Ants.R:136:12:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L136) *warning:* **no visible global function definition for ‘patchLeft’**
```r
  pLeft <- patchLeft(world = world, turtles = turtles, dist = 1, angle = 45)
           ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:136:22:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L136) *warning:* **no visible binding for global variable ‘world’**
```r
  pLeft <- patchLeft(world = world, turtles = turtles, dist = 1, angle = 45)
                     ^~~~~
```
[inst/examples/Ants/Ants.R:137:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L137) *style:* **Variable or function name should be snake_case.**
```r
  scentLeft <- of(world = world, var = varPatch, agents = pLeft)
  ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:137:16:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L137) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  scentLeft <- of(world = world, var = varPatch, agents = pLeft)
               ^~
```
[inst/examples/Ants/Ants.R:137:19:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L137) *warning:* **no visible binding for global variable ‘world’**
```r
  scentLeft <- of(world = world, var = varPatch, agents = pLeft)
                  ^~~~~
```
[inst/examples/Ants/Ants.R:139:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L139) *style:* **Variable or function name should be snake_case.**
```r
  whoTurtles <- of(agents = turtles, var = "who")
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:139:17:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L139) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  whoTurtles <- of(agents = turtles, var = "who")
                ^~
```
[inst/examples/Ants/Ants.R:140:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L140) *style:* **Lines should not be more than 80 characters.**
```r
  tRight <- turtle(turtles, who = whoTurtles[scentRight > scentLeft & scentRight > scentAhead])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:140:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L140) *style:* **Variable or function name should be snake_case.**
```r
  tRight <- turtle(turtles, who = whoTurtles[scentRight > scentLeft & scentRight > scentAhead])
  ^~~~~~
```
[inst/examples/Ants/Ants.R:140:13:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L140) *warning:* **no visible global function definition for ‘turtle’, Did you mean 'turtles'?**
```r
  tRight <- turtle(turtles, who = whoTurtles[scentRight > scentLeft & scentRight > scentAhead])
            ^~~~~~
```
[inst/examples/Ants/Ants.R:141:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L141) *style:* **Variable or function name should be snake_case.**
```r
  tRight <- right(turtles = tRight, angle = 45)
  ^~~~~~
```
[inst/examples/Ants/Ants.R:141:13:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L141) *warning:* **no visible global function definition for ‘right’, Did you mean 'pRight'?**
```r
  tRight <- right(turtles = tRight, angle = 45)
            ^~~~~
```
[inst/examples/Ants/Ants.R:142:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L142) *style:* **Lines should not be more than 80 characters.**
```r
  tLeft <- turtle(turtles, who = whoTurtles[scentLeft > scentRight & scentLeft > scentAhead])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:142:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L142) *style:* **Variable or function name should be snake_case.**
```r
  tLeft <- turtle(turtles, who = whoTurtles[scentLeft > scentRight & scentLeft > scentAhead])
  ^~~~~
```
[inst/examples/Ants/Ants.R:142:12:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L142) *warning:* **no visible global function definition for ‘turtle’, Did you mean 'turtles'?**
```r
  tLeft <- turtle(turtles, who = whoTurtles[scentLeft > scentRight & scentLeft > scentAhead])
           ^~~~~~
```
[inst/examples/Ants/Ants.R:143:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L143) *style:* **Variable or function name should be snake_case.**
```r
  tLeft <- left(turtles = tLeft, angle = 45)
  ^~~~~
```
[inst/examples/Ants/Ants.R:143:12:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L143) *warning:* **no visible global function definition for ‘left’, Did you mean 'pLeft'?**
```r
  tLeft <- left(turtles = tLeft, angle = 45)
           ^~~~
```
[inst/examples/Ants/Ants.R:145:3:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L145) *style:* **Variable or function name should be snake_case.**
```r
  turtlesMoved <- turtleSet(tRight, tLeft)
  ^~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:145:19:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L145) *warning:* **no visible global function definition for ‘turtleSet’**
```r
  turtlesMoved <- turtleSet(tRight, tLeft)
                  ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:146:1:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L146) *style:* **Lines should not be more than 80 characters.**
```r
  turtles <- turtleSet(turtlesMoved, other(agents = turtles, except = turtlesMoved))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:146:14:](https://github.com/PredictiveEcology/NetLogoR/blob/5ae605bb1673127d5cf86c34279a365ee347705b/inst/examples/Ants/Ants.R#L146) *warning:* **no visible global function definition for ‘turtleSet’**
```r
  turtles <- turtleSet(turtlesMoved, other(agents = turtles, except = turtlesMoved))
             ^~~~~~~~~
```


`$ sequelize db:seed:undo:all`

Sequelize CLI [Node: 8.5.0, CLI: 3.0.0, ORM: 4.8.4]

WARNING: This version of Sequelize CLI is not fully compatible with Sequelize v4. https://github.com/sequelize/cli#sequelize-support

Loaded configuration file "config/config.json".
Using environment "development".
== 20170927151556-demo-user: reverting =======
== 20170927151556-demo-user: reverted (0.008s)


Thank you!


@ryanbr FYI, `thevideo.me` redirect to `tvad.me`

```
https://thevideo.me/embed-w7egyxzz4zvw.html
https://tvad.me/embed-w7egyxzz4zvw.html
```


BTW, a bunch of models are broken after this. The symptoms -- it non-determinstically either  asks to feed a placeholder that it shouldn't, or it works, but it spends 3 minutes of CPU inside _build_initializer_expr.

Don't yet have a short test-case but solution in case someone comes across this

  # hack to work around broken initializer
  from tensorflow.python.ops import variables
  def passthrough(obj, value): return value
  try:
    variables.Variable._build_initializer_expr=passthrough
  except: # older versions of TF don't have this
    pass

cc @alextp , @benoitsteiner


@erictraut @asdanilenk It's a good point, I think we could go with webId or maybe htmlId...


if my memory is correct we changed all instances of click in the language strings to select. that was because you can not click anything on a mobile device


个人认为可以将temp添加为Generator类的成员变量，在构造函数里就将其 **' '** 和 **‘\n’** 处初始化，这样Out()函数中每次只需要填数字的部分就可以了。


Interesting. I wonder why we didn't have problems with this... I've just pushed up `ma/interaction-http-response-parsing` would you mind giving that branch a whirl and let me know if it resolves the issue?


这个判断不必要。可以直接写成：
```
move_run = location[move].num;
```


FixIntervalScheduleInterpolation (JasonGlazer) - x86_64-Linux-Ubuntu-14.04-gcc-4.8: OK (2796 of 2822 tests passed, 0 test warnings)

 * 25 tests had: EIO diffs.
 * 25 tests had: ESO big diffs.
 * 25 tests had: MTR big diffs.
 * 19 tests had: Table big diffs.
 * 6 tests had: SSZ small diffs.
 * 6 tests had: ZSZ small diffs.
 * 12 tests had: ERR diffs.
 * 5 tests had: Table small diffs.
 * 1 test had: SSZ big diffs.
 * 1 test had: ZSZ big diffs.

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.svg) ![Test Badge](http://img.shields.io/badge/tests%20passed-99.08%25-yellow.svg)


Let's go with webId. That follows the convention that we use the platform name (ios, android, web) as a prefix for props that are platform-specific.


ok


这里同上


This line doesn't do anything, does it? The string cache has just been allocated; there can't be any strings in it yet.