# NOT RUN {
x2 <- rGaussian(1,mu = c(0,0.2),Sigma = diag(2))
mu1 <- c(0,0); Sigma1 <- diag(2); A <- matrix(c(2,1,1,1),2,2); b <- runif(2); Sigma21 <- diag(2)*0.2
linearGaussian(x2=x2,mu1 = mu1,Sigma1 = Sigma1,A=A,b=b,Sigma21 = Sigma21)
# }
Run the code above in your browser using DataLab