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