Nothing
library(BGLR)
data(mice)
X=scale(mice.X) # markers
A=mice.A # pedigree-relationships
pheno=mice.pheno
fm=BGLR(y=pheno$Obesity.BMI,
ETA=list(
fixed=list(~factor(GENDER)+factor(Litter),data=pheno,model='FIXED'),
cage=list(~factor(cage),data=pheno,model='BRR'),
ped=list(K=A,model='RKHS'),
mrk=list(X=X,model='BayesB')
)
)
fm$ETA$fixed$b
fm$ETA$cage$b
fm$ETA$ped$u
fm$ETA$mrk$b
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.