powered by
lm
bayes.lm.ref
bayes.lm.ref(lm.obj, n.samples, ...)
coda
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 m.1 <- bayes.lm.ref(lm.obj, n.samples) summary(m.1$p.sample)
Run the code above in your browser using DataLab