d = 3
Sigma = rbind(c(1, 0.8, 0.9),
c(0.8, 1, 0.7),
c(0.9, 0.7, 1))
mu = c(0, 0, 0)
result = EllDistrSimCond(n = 100, xobs = c(NA, 2, NA), d = d,
Sigma = Sigma, mu = mu, density_R2_ = function(x){stats::dchisq(x=x,df=3)})
plot(result)
result2 = EllDistrSimCond(n = 1000, xobs = c(1.3, 2, NA), d = d,
Sigma = Sigma, mu = mu, density_R2_ = function(x){stats::dchisq(x=x,df=3)})
hist(result2)
Run the code above in your browser using DataLab