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