sim.dir <- file.path(.find.package("bayesTFR"), "ex-data", 'bayesTFR.output')
pred <- tfr.predict(sim.dir=sim.dir,
output.dir=file.path(getwd(), 'exampleTFRpred'),
burnin=25, verbose=TRUE)
# If the above function was run previously, do
# pred <- get.tfr.prediction(sim.dir=file.path(getwd(), 'exampleTFRpred'))
summary(pred, country='Ireland')Run the code above in your browser using DataLab