data("KcViabSmall")
xb <- Bscore(KcViabSmall, save.model = TRUE)
## Calling Bscore function from "normalizePlates" and adding the per-plate variance adjustment step:
xopt <- normalizePlates(KcViabSmall, method="Bscore", varianceAdjust="byPlate", save.model = TRUE)
## Access the slots overall.effects and rowcol.effects
ef1 = plateEffects(xb)
ef2 = plateEffects(xopt)
## double-check
stopifnot(
all(xb@rowcol.effects==xopt@rowcol.effects, na.rm=TRUE),
all(xb@overall.effects==xopt@overall.effects, na.rm=TRUE),
identical(ef1, ef2)
)
Run the code above in your browser using DataLab