inst/doc/ProgrammingGuide.R

In NetLogoR: Build and Run Spatially Explicit Agent-Based Models

## ---- eval=FALSE--------------------------------------------------------------
#  # Create a world according to a given extent
#  w1 <- createWorld(minPxcor = 0, maxPxcor = 10, minPycor = 0, maxPycor = 10)
#  
#  # Report the distance between the patch [pxcor = 0, pycor = 0] and the patch [pxcor = 1, pycor = 1]
#  pDist <- NLdist(agents = cbind(pxcor = 0, pycor = 0),
#                  agents2 = cbind(pxcor = 1, pycor = 1), world = w1, torus = TRUE)

## ---- eval=FALSE--------------------------------------------------------------
#  # Create 10 turtles in the world w1
#  t1 <- createTurtles(n = 10, world = w1)
#  
#  # Move all the turtles by a distance of 1
#  t1 <- fd(world = w1, turtles = t1, dist = 1)

## ---- eval=FALSE--------------------------------------------------------------
#  # For all patches, assign a random value between 0 and 1
#  pQuality <- createWorld(minPxcor = 0, maxPxcor = 9, minPycor = 0, maxPycor = 9, data = runif(n = 100, min = 0, max = 1))

## ---- eval=FALSE--------------------------------------------------------------
#  # Now each turtle in t1 has a "sex" variable
#  t1 <- turtlesOwn (turtles = t1, tVar = "sex",
#                    tVal = c("M", "M", "M", "M", "M", "F", "F", "F", "F", "F"))

## ---- eval=FALSE--------------------------------------------------------------
#  # 5 sheep and 5 wolves
#  t2 <- createTurtles(world = w1, n = 10, breed = c(rep("sheep", 5), rep("wolf", 5)))
#  
#  # Or
#  sheep <- createTurtles(world = w1, n = 5, breed = "sheep") # 5 sheep
#  wolves <- createTurtles(world = w1, n = 5, breed = "wolf") # 5 wolves

## ---- eval=FALSE--------------------------------------------------------------
#  # Turtle 0 which was "sheep" becomes "wolf"
#  t2 <- NLset(turtles = t2, agents = turtle(t2, who = 0), var = "breed", val = "wolf")

## ---- eval=FALSE--------------------------------------------------------------
#  # Reports the pQuality value of the patches:
#  # [pxcor = 0, pycor = 0], [pxcor = 0, pycor = 1], and [pxcor = 0, pycor = 2]
#  of(world = pQuality, agents = patch(pQuality, c(0,0,0), c(0,1,2)))

## ---- eval=FALSE--------------------------------------------------------------
#  system.file("examples", package = "NetLogoR")