# NOT RUN {
# }
# NOT RUN {
## read in table files
runno <- 45
xpdb <- xpose.data(runno)
## create proportion (visual) predictive check
cat.pc(xpdb,idv=NULL)
cat.pc(xpdb,idv="DOSE")
cat.pc(xpdb,idv="DOSE",histo=F)
cat.pc(xpdb,idv="TIME",histo=T,level.to.plot=1)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab