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