p_0 = NULL
L = NULL
d <- c(12.59972,34.65492,44.69007,60.80685,83.68946,100.37111)
theta <- 0.2 # choice
options <- list(nchains = 2,
niter = 4000,
nadapt = 0.8)
AUCs <- c(0.43, 1.4, 5.98, 7.98, 11.90, 3.45)
x <- c(1,2,3,4,5,6)
y <- c(FALSE,FALSE,FALSE,FALSE,TRUE,FALSE)
D_AUC <- c(0, 1.3, -0.34, -2.7,0.39, -2.45)
### Betapriors ###
betapriors = NULL
pkpop(y, AUCs, d, x, theta, p_0, L, betapriors, D_AUC, options)
Run the code above in your browser using DataLab