正定値でない共分散行列によって特異でない正規ランダム ベクトルを作成できるのはなぜですか? たとえば、実行できませんchol(V)
。
pigeon<-data.frame(response=c(10,19,27,28,9,13,25,29,4,10,20,18,5,6,12,17),
treatment=factor(rep(1:4,4)),
subject=factor(rep(1:4,each=4))
)
m<-dcast(pigeon,subject~treatment, value.var="response")
fit<-lm(as.matrix(m[,-1])~1)
V<-cov(residuals(fit))
eigen(V)$values
rmvnorm(mean=rep(0,4),sigma=V,n=subject,method="chol")