# Data are from Bishop et al. (1978)
list(t = 17, m = c(NA,8,17,17,15,13,6,19,11,14,3,12,24,17,20,9,8),
T = c(10,24,21,19,17,16,26,24,25,23,23,36,29,26,13,8),
wd = c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1),
wr = c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1),
littleu = c(15,44,37,45,14,71,45,55,32,71,12,69,69,42,40,28,0),
R = c(15,52,54,62,29,84,51,74,43,85,15,81,93,59,60,37,8))