# NOT RUN {
# Craig's data from Siegel & Castellan, p 186
soa.mat<-matrix(c(.797,.873,.888,.923,.942,.956,
.794,.772,.908,.982,.946,.913,
.838,.801,.853,.951,.883,.837,
.815,.801,.747,.859,.887,.902),nrow=4,byrow=TRUE)
page.trend.test(soa.mat)
# }
Run the code above in your browser using DataLab