# NOT RUN {
des <- fixed.factor("Factor1", c("1A","1B")) +
fixed.factor("Factor2", c("2A","2B")) +
random.factor("Subject", c("Factor1"))
nobs(des)
stopifnot(nobs(des) == 4)
# }
Run the code above in your browser using DataLab