nldoc
commented
1 year ago Dear @vardavas , thanks for using nlrx. I had a look at your code example. You simply misspelled the parameters in your experiment.
- The parameter "similar-wanted" is actually defined as "%-similar-wanted" on the Netlogo GUI of the segregation model.
- The parameter "visualization" is a string chooser, thus the content needs to be escaped as a string (\")
I replaced your experiment definition with the one below and was able to successfully run the code. Please give it a try:
nl@experiment <- experiment(expname="Segregation",
outpath=outpath,
repetition=1,
tickmetrics="true",
idsetup="setup",
idgo="go",
idfinal=NA_character_,
idrunnum=NA_character_,
runtime=20,
#stopcond= "all? turtles [ happy? ]",
evalticks=seq(5,10),
metrics=c("percent-similar",
"percent-unhappy"),
variables = list(),
constants = list("density" = 95,
"%-similar-wanted" = 45,
# "district-size" = 16,
"visualization" = "\"square-x\""))
vardavas
Hello,
I'm very new to the nlrx package. I have made the provided examples of working on the Wolf Sheep Predation model found at https://cran.r-project.org/web/packages/nlrx/vignettes/simdesign-examples.html . However, I'm now trying to use nlrx on a modified version of Schelling's segregation model, and I'm not getting it to work. I've thus instead tried with the unmodified version of the Segregation model found at http://www.netlogoweb.org/launch#http://ccl.northwestern.edu/netlogo/models/models/Sample%20Models/Social%20Science/Segregation.nlogo . That also failed to work. I provide the code I used below.
Perhaps this is a very basic issue. Please could anyone advise on this?
Thanks. Raff
THIS DIDN'T WORK:
library(nlrx) library(here)
https://cran.r-project.org/web/packages/nlrx/vignettes/simdesign-examples.html
setwd("/Users/rvardava/Downloads/")
setwd("D:/USERS/rvardava/Documents/Projects/ComplexityPolicyCourse-RNetlogo")
netlogopath <- file.path("/Applications/NetLogo 6.1.1/")
netlogopath <- file.path("C:/Program Files/NetLogo 6.0.2")
C:\Program Files\NetLogo 6.0.2\app\models\Sample Models\System Dynamics
modelpath <- paste0(getwd(),"/NL-Models/Segregation.nlogo") outpath <- paste0(getwd(),"/output/")
nl <- nl(nlversion = "6.0.2", nlpath = netlogopath, modelpath = modelpath, jvmmem = 1024)
nl@experiment <- experiment(expname="Segregation", outpath=outpath, repetition=1, tickmetrics="true", idsetup="setup", idgo="go", idfinal=NAcharacter, idrunnum=NAcharacter, runtime=20,
stopcond= "all? turtles [ happy? ]",
nl@simdesign <- simdesign_simple(nl=nl, nseeds=1)
results <- run_nl_all(nl)
JAVA_HOME not defined, using java on PATH. If you encounter errors, set JAVA_HOME or update your PATH to include java.exe. Exception in thread "main" Expected a literal value. at position 0 in at org.nlogo.core.Fail$.exception(Fail.scala:27) at org.nlogo.core.Fail$.exception(Fail.scala:25) at org.nlogo.core.Fail$.exception(Fail.scala:23) at org.nlogo.parse.LiteralParser.readLiteralPrefix(LiteralParser.scala:83) at org.nlogo.parse.LiteralParser.getLiteralValue(LiteralParser.scala:33) at org.nlogo.parse.CompilerUtilities$.$anonfun$readFromString$3(CompilerUtilities.scala:22) at org.nlogo.parse.CompilerUtilities$.$anonfun$numberOrElse$1(CompilerUtilities.scala:37) at scala.util.Either$RightProjection.getOrElse(Either.scala:636) at org.nlogo.parse.CompilerUtilities$.numberOrElse(CompilerUtilities.scala:36) at org.nlogo.parse.CompilerUtilities$.readFromString(CompilerUtilities.scala:22) at org.nlogo.fileformat.LabLoader.$anonfun$readProtocolElement$4(LabLoader.scala:70) at scala.collection.TraversableLike$WithFilter.$anonfun$map$2(TraversableLike.scala:739) at scala.collection.Iterator.foreach(Iterator.scala:929) at scala.collection.Iterator.foreach$(Iterator.scala:929) at scala.collection.AbstractIterator.foreach(Iterator.scala:1417) at scala.collection.IterableLike.foreach(IterableLike.scala:71) at scala.collection.IterableLike.foreach$(IterableLike.scala:70) at scala.collection.AbstractIterable.foreach(Iterable.scala:54) at scala.collection.TraversableLike$WithFilter.map(TraversableLike.scala:738) at org.nlogo.fileformat.LabLoader.readEnumeratedValueSetElement$1(LabLoader.scala:66) at org.nlogo.fileformat.LabLoader.$anonfun$readProtocolElement$5(LabLoader.scala:77) at scala.collection.immutable.List.flatMap(List.scala:335) at org.nlogo.fileformat.LabLoader.valueSets$1(LabLoader.scala:74) at org.nlogo.fileformat.LabLoader.readProtocolElement(LabLoader.scala:94) at org.nlogo.fileformat.LabLoader.$anonfun$apply$1(LabLoader.scala:45) at scala.collection.immutable.List.map(List.scala:283) at org.nlogo.fileformat.LabLoader.apply(LabLoader.scala:45) at org.nlogo.fileformat.LabLoader.apply(LabLoader.scala:30) at org.nlogo.fileformat.LabFormat.load(NLogoLabFormat.scala:37) at org.nlogo.fileformat.LabFormat.load$(NLogoLabFormat.scala:35) at org.nlogo.fileformat.NLogoLabFormat.load(NLogoLabFormat.scala:40) at org.nlogo.headless.BehaviorSpaceCoordinator$.$anonfun$selectProtocol$1(BehaviorSpaceCoordinator.scala:34) at scala.Option.map(Option.scala:146) at org.nlogo.headless.BehaviorSpaceCoordinator$.selectProtocol(BehaviorSpaceCoordinator.scala:32) at org.nlogo.headless.Main$.runExperiment(Main.scala:23) at org.nlogo.headless.Main$.$anonfun$main$1(Main.scala:12) at org.nlogo.headless.Main$.$anonfun$main$1$adapted(Main.scala:12) at scala.Option.foreach(Option.scala:257) at org.nlogo.headless.Main$.main(Main.scala:12) at org.nlogo.headless.Main.main(Main.scala) Error in util_gather_results(nl, outfile, seed, siminputrow) :
Output file is empty - simulation aborted due to a runtime error! Make sure that parameter value definitions of the experiment are valid and the model code is running properly!
THE FOLLOWING EXAMPLE WORKED:
library(nlrx) library(here)
https://cran.r-project.org/web/packages/nlrx/vignettes/simdesign-examples.html
setwd("/Users/rvardava/Downloads/")
setwd("D:/USERS/rvardava/Documents/Projects/ComplexityPolicyCourse-RNetlogo")
netlogopath <- file.path("/Applications/NetLogo 6.1.1/")
netlogopath <- file.path("C:/Program Files/NetLogo 6.0.2")
C:\Program Files\NetLogo 6.0.2\app\models\Sample Models\System Dynamics
modelpath <- file.path(netlogopath, "app/models/Sample Models/Biology/Wolf Sheep Predation.nlogo") outpath <- paste0(getwd(),"/output/")
results<-readRDS(paste0(outpath,"wolf-sheep.rds"))
nl <- nl(nlversion = "6.0.2", nlpath = netlogopath, modelpath = modelpath, jvmmem = 1024)
nl@experiment <- experiment(expname="wolf-sheep", outpath=outpath, repetition=5, tickmetrics="true", idsetup="setup", idgo="go", idfinal=NAcharacter, idrunnum=NAcharacter, runtime=50, evalticks=seq(40,50), metrics=c("count sheep", "count wolves", "count patches with [pcolor = green]"), variables = list(), constants = list("initial-number-sheep" = 20, "initial-number-wolves" = 20, "model-version" = "\"sheep-wolves-grass\"", "grass-regrowth-time" = 30, "sheep-gain-from-food" = 4, "wolf-gain-from-food" = 20, "sheep-reproduce" = 4, "wolf-reproduce" = 5, "show-energy?" = "false"))
nl@simdesign <- simdesign_simple(nl=nl, nseeds=1)
results <- run_nl_all(nl)