[Distr-commits] r551 - in branches/distr-2.2/pkg/distrMod: R chm

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

Author: ruckdeschel
Date: 2009-08-26 00:49:21 +0200 (Wed, 26 Aug 2009)
New Revision: 551

Modified:
   branches/distr-2.2/pkg/distrMod/R/0distrModUtils.R
   branches/distr-2.2/pkg/distrMod/chm/distrMod.chm
Log:
+distrMod: yet another issue with "pretty printing", now force arguments est and s to numeric...

Modified: branches/distr-2.2/pkg/distrMod/R/0distrModUtils.R
===================================================================
--- branches/distr-2.2/pkg/distrMod/R/0distrModUtils.R	2009-08-25 21:17:46 UTC (rev 550)
+++ branches/distr-2.2/pkg/distrMod/R/0distrModUtils.R	2009-08-25 22:49:21 UTC (rev 551)
@@ -34,6 +34,8 @@
 }
 
 .show.with.sd <- function(est, s){
+        est <- as.numeric(est); dim(est) <- NULL
+        s <- as.numeric(s); dim(s) <- NULL
   ### code borrowed from print.fitdistr in  package MASS by B.D. Ripley
         digits <- getOption("digits")
         ans <- format(base::rbind(est, s), digits=digits)

Modified: branches/distr-2.2/pkg/distrMod/chm/distrMod.chm
===================================================================
(Binary files differ)