p0 <- c(A = 0.15, B = 0.45, mean_v = 2.25, sd_v = 0.15, t0 = 0.2)
tnorm_prior <- BuildPrior(
p0 = p0,
p1 = rep(1, 5),
lower = rep(0, 5),
upper = rep(NA, 5),
dist = rep("tnorm", 5),
log_p = rep(TRUE, 5)
)
npar <- length(tnorm_prior)
theta <- runif(npar, 0, 10)
result <- sumlogprior(p_prior_r = tnorm_prior, parameters_r = theta)
print(result)
Run the code above in your browser using DataLab