# NOT RUN {
# }
# NOT RUN {
library(xpose4)
## move to the directory where results from PsN
## are found
cur.dir <- getwd()
setwd(paste(cur.dir,"/binary/vpc_36",sep=""))
xpose.VPC.categorical(level.to.plot=1,max.plots.per.page=4)
xpose.VPC.categorical(level.to.plot=1,max.plots.per.page=4,by="DOSE")
## ordered categorical plots
setwd(paste(cur.dir,"/ordered_cat/vpc_45",sep=""))
xpose.VPC.categorical()
## count
setwd(paste(cur.dir,"/count/vpc65b",sep=""))
xpose.VPC.categorical()
setwd(paste(cur.dir,"/count/vpc65a",sep=""))
xpose.VPC.categorical()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab