if (FALSE) {
p<- "C:/Program Files/NetLogo 6.1.1/app"
m<- file.path(p, "models", "Sample Models", "Biology", "Wolf Sheep Predation.nlogo")
output<- c("count sheep", "count wolves")
o<- NLWrapper.Model(p, m, output, 150)
v<- NLWrapper.Run(o)
NLWrapper.Shutdown(o)}
Run the code above in your browser using DataLab