data(FORMGMT.dat)
lm.obj <- lm(Y ~ X1+X2+X3+X4+X5+X6, data = FORMGMT.dat)
summary(lm.obj)
##Now with bayes.lm.ref
n.samples <- 500
out.bayes.lm.ref <- bayes.lm.ref(lm.obj, n.samples)
summary(out.bayes.lm.ref)Run the code above in your browser using DataLab