nl.path <- "C:/Program Files/NetLogo 6.0/app"
NLStart(nl.path)
# NLLoadModel(...)
# for NetLogo 2D:
input <- NLGetPatches(c("pxcor","pycor","pcolor"))
str(input)
# for NetLogo 3D:
input <- NLGetPatches(c("pxcor","pycor","pzcor","pcolor"))
str(input)
input$pcolor <- floor(abs(rnorm(nrow(input))*100))
patch.var <- "pcolor"
NLSetPatchSet(patch.var, input)
Run the code above in your browser using DataLab