[Vegan-commits] r515 - in pkg: R inst

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

Author: jarioksa
Date: 2008-10-02 09:07:03 +0200 (Thu, 02 Oct 2008)
New Revision: 515

Modified:
   pkg/R/print.radfit.frame.R
   pkg/inst/ChangeLog
Log:
print.radfit.frame failed if input data had no row names

Modified: pkg/R/print.radfit.frame.R
===================================================================
--- pkg/R/print.radfit.frame.R	2008-10-01 06:08:06 UTC (rev 514)
+++ pkg/R/print.radfit.frame.R	2008-10-02 07:07:03 UTC (rev 515)
@@ -3,6 +3,7 @@
 {
     cat("\nDeviance for RAD models:\n\n")
     out <- sapply(x, function(x) unlist(lapply(x$models, deviance)))
+    colnames(out) <- colnames(out, do.NULL = FALSE, prefix = "row")
     printCoefmat(out, na.print = "", ...)
     invisible(x)
 }

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2008-10-01 06:08:06 UTC (rev 514)
+++ pkg/inst/ChangeLog	2008-10-02 07:07:03 UTC (rev 515)
@@ -4,6 +4,9 @@
 
 Version 1.16-1 (opened September 30, 2008)
 
+	* print.radfit.frame: failed if the input data frame had no row
+	names. 
+	
 	* head.summary.cca & tail.summary.cca: shortcuts to
 	print(summary(x, ...), head, tail) for nicer Sweave tutorials.