search for: prob47

...the crushing disappointment the researcher must have felt :-) I've attached the code for the example where I discovered this. The data are from problem 7 in Chapter 4 of the Higgins text "Introduction to Modern Nonparametric Statistics". Regards, Rob Kushler k <- 3 b <- 6 prob47 <- data.frame(day=factor(rep(1:k,each=b)),blk=factor(rep(1:b,k)), dryhay <- c(1.5,2.1,1.9,2.8,1.4,1.8,1.8,2.0,2.0,2.7,1.6,2.3,1.9,2.5,2.5,2.6,2.1,2.4)) attach(prob47) (ymat <- matrix(dryhay,nrow=b,ncol=k)) library(concord) page.trend.test(ymat) muL <- b*k*(k+1)2/4 varL <- b*(k2)*(k...