# NOT RUN {
#Choulakian, Lockhart and Stephens (1994)
counts <- c(10, 19, 18, 15, 11, 13, 7, 10, 13, 23, 15, 22)
phat <- rep(1/12, 12)
(stats1 <- cvmTest(counts, phat))
#Choulakian, Lockhart and Stephens (1994)
counts <- c(1 ,4 ,11 ,4 ,0)
phat <- c(0.05, 0.3, 0.3, 0.3, 0.05)
(stat2 <- cvmTest(counts, phat))
#Utilizing Benford's Law
#Setting pave to TRUE
#genomic data, Lesperance et al (2016)
genomic<- c(48, 14, 12, 6, 18, 5, 7, 8, 9)
phat<- log10(1+1/1:9)
(stat3 <- cvmTest(genomic, phat, pave = TRUE))
# }
Run the code above in your browser using DataLab