powered by
blup(object)
estVC
aicVC
y<- rnorm(100) x<- matrix(1,nrow=100,ncol=1) v<- cov(matrix(rnorm(10^6),ncol=100)) o<- estVC(y, x, v = list(AA=v,DD=NULL,HH=NULL,AD=NULL, MH=NULL,EE=diag(100))) b<- blup(o)
Run the code above in your browser using DataLab