# NOT RUN {
m <- 3
thetas <- round(runif(m))
draws <- runif(m)
belowhalf <- draws < 0.5
alphas <- betas <- c()
alphas[belowhalf] <- 1.5
alphas[!belowhalf] <- 2
betas[belowhalf] <- 2
betas[!belowhalf] <- 1.5
L <- ceiling(log(m))
QPgen.internal.concave(m, thetas, alphas, betas, L)
# }
Run the code above in your browser using DataLab