y<- rnorm(100)
x<- matrix(1,nrow=100,ncol=1)
v<- cov(matrix(rnorm(10^6),ncol=100))
# only consider additive genetic variance component
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