X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2FCDAM.global.R;h=5644ca5ad3af09ebfb47dd79f1f950a9bbec1ab6;hb=477a8f1b7e5841202ef29d3d8af3c93acd35c043;hp=184bffaf0cfc18372d41abc68e32efd9052fd645;hpb=bea9a4387337eaa1990123745315eb04a1759fc9;p=ape.git

diff --git a/R/CDAM.global.R b/R/CDAM.global.R
index 184bffa..5644ca5 100644
--- a/R/CDAM.global.R
+++ b/R/CDAM.global.R
@@ -143,7 +143,7 @@
 	Rmat <- apply(Y,2,rank)
 
 	## Correction factors for tied ranks (eq. 3.3)
-	t.ranks <- apply(Rmat, 2, function(x) summary(as.factor(x)))
+	t.ranks <- apply(Rmat, 2, function(x) summary(as.factor(x), maxsum=nd))
 	TT <- sum(unlist(lapply(t.ranks, function(x) sum((x^3)-x))))
 	# if(!silent) cat("TT = ",TT,'\n')