# NOT RUN {
m1 <- PMXStanModel(path = tempfile("pk_m1"), pk.struct = "1-cmpt", compile=TRUE)
data("examples_data")
dat <- prepareInputData(data.source = d1_nm_poppk, model = m1)
fit <- PMXStanFit(m1, dat, iter=100, chains=1)
fit$plot.trace()
traces(fit)
fit$plot.trace(pars = c("CL", "V", "sigma"))
traces(fit, pars = c("CL", "V", "sigma"))
# }
Run the code above in your browser using DataLab