#This example is from section 5.1.2 of the referenced text
k <- c(1:128)
#Define model distribution (exp) and observed distribution (obs)
C1 <- 1/sum(1/k)
exp <- C1/k
C2 <- 1/sum(1/k^2)
obs <- C2/k^2
rms.pval(obs,exp,10000)
Run the code above in your browser using DataLab