[16ca9d]: classic-bugs / vol1 / epil / make-BT.R  Maximize  Restore  History

Download this file

12 lines (11 with data), 381 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
source("epil-data.R")
log.Base4 <- log(Base/4)
BT <- Trt * log.Base4
lm.out <- lm(BT ~ log.Base4 + Trt)
BT.resid <- residuals(lm.out)
names(BT.resid) <- NULL #FIXME: JAGS should parse names attribute
beta.Base <- coef(lm.out)["log.Base4"]
beta.Trt <- coef(lm.out)["Trt"]
names(beta.Base) <- NULL
names(beta.Trt) <- NULL
dump(c("BT.resid","beta.Base","beta.Trt"), file="BT-data.R")

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks