# NOT RUN {
## data:
n <- 25
sd0 <- 3
x <- rnorm(n, mean = 2, sd = sd0)
## prior:
nu <- 0
tau <- 2
## posterior:
NormalNormalPosterior(datamean = mean(x), sigma = sd0,
n = n, nu = nu, tau = tau)
# }
Run the code above in your browser using DataLab