Skip to content
Snippets Groups Projects
Commit 68f0a099 authored by Martin Renoult's avatar Martin Renoult
Browse files

Update Conjugate_priors_Bayes.R

parent 9e14670e
No related branches found
No related tags found
No related merge requests found
......@@ -27,13 +27,14 @@ beta.prior.mean <- c(0,1)
beta.prior.precision <- 1*diag(p)
## Emulate the original Cauchy prior with some specific parameters of InvGamma
prior.shape <- 0.5
prior.rate <- 0.5
prior.shape <- 2
prior.rate <- 2
bmod <- bayesLMConjugate(y ~ x, data=model_data, n.samples,beta.prior.mean, beta.prior.precision, prior.shape, prior.rate)
beta <- as.vector(bmod$p.beta.tauSq.samples[,1])
alpha <- as.vector(bmod$p.beta.tauSq.samples[,2])
sigma <- as.vector(bmod$p.beta.tauSq.samples[,3])
tauSq <- as.vector(bmod$p.beta.tauSq.samples[,3])
sigma <- sqrt(tauSq)
hist(beta)
hist(alpha)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment