# NOT RUN {
# this means that E[y3|y1,y2] and V[y3|y1,y2] will be returned
# all continuous w/ unknown means
# }
# NOT RUN {
# To run this, one needs to install Maxima software
res <- cond_expr(neq=3)
# 3 continuous w/ unknown means and the last one with mean 0 and sd 1, d|c1c2c3
res <- cond_expr(neq=4, sdv=c(NA, NA, NA, 1), mv=c(NA, NA, NA, 0))
# 2 continuous w/ unknown means and 2 discrete with mean 0 and sd 1, d1|c1c2c3d2
res <- cond_expr(neq=4, sdv=c(NA, NA, 1, 1), mv=c(NA, NA, 0, 0), nconteq=2)
# }
Run the code above in your browser using DataLab