# New test is a simple chi-square test:
chitest=function(x, pnull, param, TSextra) {
nbins=TSextra$nbins
bins=quantile(x, (0:nbins)/nbins)
O=hist(x, bins, plot=FALSE)$counts
if(param[1]!=-99) { #with parameter estimation
E=length(x)*diff(pnull(bins, param))
chi=sum((O-E)^2/E)
pval=1-pchisq(chi, nbins-1-length(param))
}
else {
E=length(x)*diff(pnull(bins))
chi=sum((O-E)^2/E)
pval=1-pchisq(chi,nbins-1)
}
out=ifelse(TSextra$statistic, chi, pval)
names(out)="ChiSquare"
out
}
TSextra=list(nbins=10, statistic=FALSE) # Use 10 bins, test routine returns p-value
run.studies(chitest, TSextra=TSextra, With.p.value=TRUE, maxProcessor=1, B=200)
Run the code above in your browser using DataLab