if (FALSE) {
library(BGLR)
data(wheat)
y<-wheat.Y
X<-wheat.X
fm<-Multitrait(y=y,ETA=list(list(X=X,model='BRR',saveEffects=TRUE)),
nIter=1000,thin=10,burnIn=500)
B<-readBinMatMultitrait('ETA_1_beta.bin')
}
Run the code above in your browser using DataLab