data(miscEx)
# only consider additive genetic variance component
o<- estVC(y=pdatF8$bwt, x=pdatF8$sex, v=list(AA=gmF8$AA,DD=gmF8$DD,
HH=NULL, AD=NULL, MH=NULL, EE=diag(length(pdatF8$bwt))))
b<- blup(o)Run the code above in your browser using DataLab