[Distr-commits] r638 - branches/distr-2.3/pkg/distrEx/R

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2010-01-21 22:16:02 +0100 (Thu, 21 Jan 2010)
New Revision: 638

Modified:
   branches/distr-2.3/pkg/distrEx/R/CvMDist.R
Log:
distrEx: forgot to give a name to result of new CvMDist method...

Modified: branches/distr-2.3/pkg/distrEx/R/CvMDist.R
===================================================================
--- branches/distr-2.3/pkg/distrEx/R/CvMDist.R	2010-01-21 19:42:33 UTC (rev 637)
+++ branches/distr-2.3/pkg/distrEx/R/CvMDist.R	2010-01-21 21:16:02 UTC (rev 638)
@@ -53,6 +53,7 @@
  p2 <- 1-p0^2
  n <- length(x1)
  i1 <- 2*(1:n)-1
- d <- mean(i1*p1)/n-mean(p2)+1/3
- return(d^0.5)
+ d <- (mean(i1*p1)/n-mean(p2)+1/3)^.5
+ names(d) <- "CvM distance" 
+ return(d)
 }