library(xpose4)
## move to the directory where results from PsN
## are found
cur.dir <- getwd()
setwd(paste(cur.dir,"/vpc_cont_LLOQ/",sep=""))
xpose.VPC()
xpose.VPC.categorical(censored=T)
xpose.VPC.both()
xpose.VPC.both(subset="DV>1.75")
xpose.VPC.both(add.args.cont=list(ylim=c(0,80)))
xpose.VPC.both(add.args.cont = list(ylim = c(0.01, 80)), xlim = c(0,
40), add.args.cat = list(ylim = c(0, 0.4)), cont.logy = T)
xpose.VPC.both(cont.logy=T)
Run the code above in your browser using DataLab