# NOT RUN {
inputs <- list(tfr.sim.dir=file.path(find.package("bayesTFR"), "ex-data", "bayesTFR.output"))
pasfr <- project.pasfr(inputs, out.file.name=NULL)
head(pasfr)
pasfr.traj <- project.pasfr.traj(inputs, out.file.name=NULL)
head(pasfr.traj)
# }
Run the code above in your browser using DataLab