# NOT RUN {
obj <- LinearGaussianGaussian(gamma=list(Sigma=matrix(c(2,1,1,2),2,2),
m=c(0.2,0.5,0.6),S=diag(3)))
z <- rGaussian(10,mu = runif(3),Sigma = diag(3))
dPosterior(obj = obj,z=z)
dPosterior(obj = obj,z=z,LOG=FALSE)
# }
Run the code above in your browser using DataLab