#The new test is a simple chisquare test:
chitest = function(x, y, TSextra) {
nbins=TSextra$nbins
nx=length(x);ny=length(y);n=nx+ny
xy=c(x,y)
bins=quantile(xy, (0:nbins)/nbins)
Ox=hist(x, bins, plot=FALSE)$counts
Oy=hist(y, bins, plot=FALSE)$counts
tmp=sqrt(sum(Ox)/sum(Oy))
chi = sum((Ox/tmp-Oy*tmp)^2/(Ox+Oy))
pval=1-pchisq(chi, nbins-1)
out=ifelse(TSextra$statistic,chi,pval)
names(out)="ChiSquare"
out
}
TSextra=list(nbins=5,statistic=FALSE) # Use 5 bins and calculate p values
run.studies(chitest,TSextra=TSextra, With.p.value=TRUE, B=100)
Run the code above in your browser using DataLab