## Not run:
# model <- pktox
# N <- 15
# p_0 = 0
# L = 0
# doses <- c(12.59972,34.65492,44.69007,60.80685,83.68946,100.37111)
# theta <- 0.2
# options <- list(nchains = 4,niter = 4000,nadapt = 0.9)
# AUCs <- c(1.2303254, 3.3839503,4.3638522, 5.9376084,8.1720269, 9.8009405,
# 1.5330900, 4.2166896, 5.4377306,7.3987646,10.1830398,12.2128046, 2.1126844,
# 5.8108359 , 7.4934992)
# x <- c(1,1,1,2,2,2,2,2,3,3,3,3,2,3,4)
# y <- c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
# FALSE, FALSE, FALSE, FALSE ,FALSE, TRUE,FALSE, FALSE, FALSE)
# D_AUC <- NULL
# betapriors = NULL
# nextDose(model, N, y, AUCs, doses, x, theta, p_0, L, betapriors, D_AUC, options)
# ## End(Not run)
Run the code above in your browser using DataLab