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