[Vegan-commits] r784 - pkg/vegan/R

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

Author: gsimpson
Date: 2009-04-03 17:58:10 +0200 (Fri, 03 Apr 2009)
New Revision: 784

Modified:
   pkg/vegan/R/betadisper.R
Log:
simplify .C call in betadisper

Modified: pkg/vegan/R/betadisper.R
===================================================================
--- pkg/vegan/R/betadisper.R	2009-04-03 15:24:56 UTC (rev 783)
+++ pkg/vegan/R/betadisper.R	2009-04-03 15:58:10 UTC (rev 784)
@@ -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