I have a data set composed of 2 subjects and measures for 8 times for each subject.
dat <- data.frame(rep(c(1, 2), 2), rep(c("t1", "t2"), 2
