filespec <- file.path(.path.package("gap"),"tests/twinan90/mzdz.dat")
mzdz <- matrix(scan(filespec,skip=1),ncol=2,byrow=T)
mzdat <- mzdz[1:131,]
dzdat <- mzdz[132:206,]
twinan90(mzdat,dzdat,xlamb=2)
# the normality test can be conducted as follows,
ks.test(mzdat,"pnorm")
ks.test(dzdat,"pnorm")
qqnorm(mzdat)
qqnorm(dzdat)
# contact e-mail for Prof Williams
# http://www.webpages.uidaho.edu/~chrisw/
Run the code above in your browser using DataLab