[Vegan-commits] r785 - branches/1.15/R

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

Author: gsimpson
Date: 2009-04-03 17:59:11 +0200 (Fri, 03 Apr 2009)
New Revision: 785

Modified:
   branches/1.15/R/betadisper.R
Log:
merge r784 to 1.15 branch

Modified: branches/1.15/R/betadisper.R
===================================================================
--- branches/1.15/R/betadisper.R	2009-04-03 15:58:10 UTC (rev 784)
+++ branches/1.15/R/betadisper.R	2009-04-03 15:59:11 UTC (rev 785)
@@ -15,7 +15,7 @@
     x[row(x) > col(x)] <- d^2
     x <- x + t(x)
     storage.mode(x) <- "double"
-    .C(stats:::R_dblcen, x, as.integer(n), DUP = FALSE)
+    .C("dblcen", x, as.integer(n), DUP = FALSE, PACKAGE="stats")
     e <- eigen(-x/2, symmetric = TRUE)
     vectors <- e$vectors
     eig <- e$values