if (FALSE) {
sim.dir <- file.path(find.package("bayesLife"), "ex-data", "bayesLife.output")
pred.dir <- file.path(getwd(), "exampleLEpred")
# stores 10 trajectories out of 30 (60-30) into
# exampleLEpred/predictions/ascii_trajectories.csv (for female)
# and exampleLEpred/predictions/joint_male/ascii_trajectories.csv (for male)
e0.predict(sim.dir = sim.dir, output.dir = pred.dir,
burnin = 30, save.as.ascii = 10, verbose = TRUE)
# stores all 30 trajectories into the current directory
convert.e0.trajectories(dir = pred.dir, n = "all", output.dir = ".", verbose = TRUE)
# Note: If the output.dir argument in e0.predict is omitted,
# call convert.e0.trajectories with dir = sim.dir
}
Run the code above in your browser using DataLab