# NOT RUN {
# 90% Confidence Ellipse for Reading and Vocab from ability.cov
x.bar <- ability.cov$center[5:6]
Sigma <- ability.cov$cov[5:6,5:6]
n <- ability.cov$n.obs
p <- length(ability.cov$center)
confidenceEllipse(X.mean = x.bar,
eig = eigen(Sigma),
n = n, p = p,
alpha = 0.10)
# }
Run the code above in your browser using DataLab