[Vegan-commits] r519 - pkg/R

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

Author: jarioksa
Date: 2008-10-05 19:56:58 +0200 (Sun, 05 Oct 2008)
New Revision: 519

Modified:
   pkg/R/fitted.radfit.R
Log:
fitted.radfit: returns a matrix also with one species communities

Modified: pkg/R/fitted.radfit.R
===================================================================
--- pkg/R/fitted.radfit.R	2008-10-02 14:24:01 UTC (rev 518)
+++ pkg/R/fitted.radfit.R	2008-10-05 17:56:58 UTC (rev 519)
@@ -1,2 +1,5 @@
-"fitted.radfit" <-
-function(object, ...) sapply(object$models, fitted)
+`fitted.radfit` <-
+    function(object, ...)
+{
+    matrix(sapply(object$models, fitted), ncol=length(object$models))
+}