# Zhang, Jin and Wu, Yuehua (2005), 
# 'Likelihood-ratio tests for normality', 
# Computational Statistics & Data Analysis, Vol. 49, No. 3, pp. 709-721. 
           
# Regenerate table 2 from zhang2005 (page 713) 
law.index <- 2
M <- 10^6 
vectn <- c(5:10,seq(12,20,2),25,30,40,50,70,100,150,200,300,500,1000)
stat.indices <- 3
levels <- 1 - c(0.001,0.01,0.05,seq(0.10,0.90,0.10),0.95,0.99,0.999) 
alter <- list(stat3=3)
table2 <- many.crit(stat.indices,law.index,M,vectn,levels,alter,law.pars=NULL,parstats=NULL,model=NULL)
print(table2,digits=3,latex.output=FALSE)

# LaTex output : latex.output=TRUE
