simfile <- read.table(file = system.file("demo_model", "results",
"bestsims.txt",
package = "HYPEtools"
), header = TRUE, sep = ",")
par <- ReadPar(filename = system.file("demo_model", "par.txt", package = "HYPEtools"))
BestSimsToPar(simfile, 1, par)
Run the code above in your browser using DataLab