Nothing
library(RNetLogo)
# path to NetLogo installation folder
# PLEASE FILL IN THE PATH TO YOUR NetLogo INSTALLATION FOLDER !!!!
path.to.NetLogo <- "C:/Program Files/NetLogo 6.0/app"
# start NetLogo, if it is not started yet
if (!exists("nl.test1", -1))
{
# an reference name
nl.test1 <- "nl.test1"
NLStart(path.to.NetLogo, gui=TRUE, nl.obj=nl.test1)
}
# load a sample model
model.path <- "/models/Sample Models/Earth Science/Fire.nlogo"
NLLoadModel(paste(path.to.NetLogo,model.path,sep=""),nl.obj=nl.test1)
# quit NetLogo
# if it is a NetLogo instance with GUI, it can't be started again in the same R session.
# You have to restart the R session to start NetLogo with GUI again.
NLQuit(nl.obj=nl.test1)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.