nl.path <- "C:/Program Files/NetLogo 6.0/app"
NLStart(nl.path)
# NLLoadModel(...)
allpatches <- NLGetPatches(c("pxcor","pycor","pcolor"))
str(allpatches)
# only a subset of patches
subsetpatches <- NLGetPatches(c("pxcor","pycor","pcolor"),
"patches with [pxcor < 5]")
str(subsetpatches)
# or as a list (slightly faster):
colors.list <- NLGetPatches(c("pxcor","pycor","pcolor"),
"patches with [pxcor < 5]", as.data.frame=FALSE)
str(colors.list)
# or as a list with one list element for each patch
# (very slow!, not recommended especially for large patchsets)
colors.list2 <- NLGetPatches(c("pxcor","pycor","pcolor"),
"patches with [pxcor < 5]", as.data.frame=FALSE,
patches.by.row=TRUE)
str(colors.list2)
Run the code above in your browser using DataLab