# \donttest{
data(dat)
cols <- list(subject = 'subject', formula = 'formula', y = 'AUC')
p4a <- averageBE(dat, colSpec = cols, xlength = 50)
p4t <- totalVarianceBE(dat, colSpec = cols, xlength = 50)
p4w <- withinVarianceBE(dat, colSpec = cols, xlength = 50)
plot(p4a)
plot(p4t)
plot(p4w)
# three period case
dd3 <- dat[dat$period < 4,]
p3a <- averageBE(dd3, colSpec = cols, xlength = 50)
plot(p3a)
# two period case
dd2 <- dat[dat$period < 3,]
p2a <- averageBE(dd2, colSpec = cols, xlength = 50)
plot(p2a)
# }
Run the code above in your browser using DataLab