require(readxl)
dat <- read_xlsx(exampleData("exampleGosling.xlsx"))
init <- initScenario(dat, uValue = 2,
optimisticRule = "expectation",
fixDistance = 3)
result <- solveScenario(x = init)
Run the code above in your browser using DataLab