# NOT RUN {
# Reading comprehension pre- and post-test example
data(reading)
withinBlockEffects(
y = reading$Diff1,
w = reading$Group,
calcOptions = list(
block = reading$Block,
pairs = rbind(
c("Basal", "DRTA"),
c("Basal", "Strat"),
c("DRTA", "Strat"),
c("Basal", "DRTA"),
c("Basal", "Strat"),
c("DRTA", "Strat")
),
blockindex = c(rep(1, 3), rep(2, 3))
)
)
# }
Run the code above in your browser using DataLab