# NOT RUN {
p <- 10
m <- 20
alpha2 <- 1.18
qVec <- rep(4, m)
delta <- 2
bbeta <- 2
constraint <- c(0, 0, 0)
psy <- generatePriorPsi(
p,
m,
delta,
bbeta,
constraint
)
#'
# }
# NOT RUN {
generatePriorLambda(
p,
m,
alpha2,
qVec,
psy,
constraint
)
# }
Run the code above in your browser using DataLab