[inst/examples/Ants/Ants.R:12:2:](https://github.com/PredictiveEcology/NetLogoR/blob/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/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/de9aeb28a6dde2caf85c0cad8c7b4b6a70552bcd/inst/examples/Ants/Ants.R#L146) *warning:* **no visible global function definition for ‘turtleSet’**
```r
  turtles <- turtleSet(turtlesMoved, other(agents = turtles, except = turtlesMoved))
             ^~~~~~~~~
```


This should probably be changed to a function for consistency and so that it will be hoisted to the top of the scope in case it needs to be accessed before it is declared.


uses a method check to see if integer is prime


OK actually nevermind-- re:

> (Can be further optimized in the future by doing EITHER the null-out or the fk query. That'll bring it down to O(1))

^^that's not true-- it has to be two queries (because existing associated records still have to be cleared).  It can still be optimized by adding a `nin` though.


Thx,

I give it a try right now, keep in touch

cheers


I'm shure. This library function should implement the semantics of the C bitwise shift operators. The [C99 standard (TC3)](http://port70.net/~nsz/c/c99/n1256.html#6.5.7) says

> If the value of the right operand is negative or is greater than or equal to the width of the promoted left operand, the behavior is undefined.
So we shouldn't use `leftShift()` with b >= CPUBITWIDTH.


Close #1


some tests failed:
failure: https://travis-ci.org/stellar/stellar-core/builds/280545375?utm_source=github_status&utm_medium=notification


**Whoops!**

There were *1 warnings* that will prevent this PR from being merged. Please take a look, and either fix, or provide a justification for why they can't be fixed.

**WARNINGS**
[`src/content/en/showcase/2017/eleme.md`](https://github.com/Google/WebFundamentals/blame/faa1d3489f18339910a6a743a759258d719df54b/src/content/en/showcase/2017/eleme.md) - No `wf_blink_components` field found in metadata. Add if appropriate.


Yeah, just mobi would be broken right now. Will switch format_match so that `mobi -> epub+mobi`


Note that `ibus-setup` is broken anyway:
```
$ ./result/bin/ibus-setup
Traceback (most recent call last):
  File "/nix/store/ncx6vjf607q0rr7ggdywgwfsl7dbcf5w-ibus-1.5.16/share/ibus/setup/main.py", line 38, in <module>
    gi_require_version('IBus', '1.0')
  File "/nix/store/wn22bw3a44zva0w4ffsql1lhivr65633-python3-3.6.2-env/lib/python3.6/site-packages/gi/__init__.py", line 118, in require_version
    raise ValueError('Namespace %s not available' % namespace)
ValueError: Namespace IBus not available
```


**Configuracion de los Fragment**

Estos frament esta dentro de un activiti conteiner que esta siendo incluido y esta a la vez esta siendo llamada de el layout BottomBar que aqui esta la la configuracion real.
- Frament home

- frament search

- Frament profile


I'm not sure I understand what you are proposing.  Can you clarify?


Anything you can do with my git I can do it with yours... try


This would be perfect for a switch statement ex.


Any ideas on what changed requiring this block of code to before the invokeAction ?


Oh, then I have to move it to 17.09 changelog.  I didn't realize, as the PR got no mention on github.


zla kolejnosc parametrow


Mira si pots fer servir el layout android.support.constraint.ConstraintLayout


denke haben wir im skype geklärt? ;)


@chrisspen congrats! It's finally green. Should I update the PR, or are you going to push some more fixes soon?


Thank you for this comment! Now I know why nextPoint is an argument to this function.


But for now we can't switch explicitly between calc and fpm. Would that be useful?