sim.dir <- file.path(.find.package("bayesTFR"), "ex-data", 'bayesTFR.output')
pred <- get.tfr.prediction(sim.dir)
tfr.trajectories.plot(pred, country='Burkina Faso', pi=c(80, 95))
tfr.trajectories.table(pred, country='Burkina Faso', pi=c(80, 95))Run the code above in your browser using DataLab