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

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

Author: jarioksa
Date: 2010-10-04 07:30:18 +0200 (Mon, 04 Oct 2010)
New Revision: 1326

Modified:
   pkg/vegan/R/SSarrhenius.R
Log:
forgot exp(k) in Arrhenius

Modified: pkg/vegan/R/SSarrhenius.R
===================================================================
--- pkg/vegan/R/SSarrhenius.R	2010-10-03 19:37:14 UTC (rev 1325)
+++ pkg/vegan/R/SSarrhenius.R	2010-10-04 05:30:18 UTC (rev 1326)
@@ -4,6 +4,7 @@
 {
     xy <- sortedXyData(mCall[["area"]], LHS, data)
     value <- as.vector(coef(lm(log(xy[,"y"]) ~ log(xy[,"x"]))))
+    value[1] <- exp(value[1])
     names(value) <- mCall[c("k","z")]
     value
 },