[Distr-commits] r441 - branches/distr-2.2/pkg/distrMod/R pkg/distrMod/R

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Tue Mar 24 13:21:17 CET 2009


Author: ruckdeschel
Date: 2009-03-24 13:21:17 +0100 (Tue, 24 Mar 2009)
New Revision: 441

Modified:
   branches/distr-2.2/pkg/distrMod/R/AllShow.R
   pkg/distrMod/R/AllShow.R
Log:
distrMod: changed AllShow: deleted tab in nuisance and fixed part when parts are named.

Modified: branches/distr-2.2/pkg/distrMod/R/AllShow.R
===================================================================
--- branches/distr-2.2/pkg/distrMod/R/AllShow.R	2009-03-24 12:09:43 UTC (rev 440)
+++ branches/distr-2.2/pkg/distrMod/R/AllShow.R	2009-03-24 12:21:17 UTC (rev 441)
@@ -37,7 +37,7 @@
                     cat(gettextf("nuisance:\t%s\n", object at nuisance))
                 else{
                     cat(gettext("nuisance:\n"))
-                    cat(gettextf("\t%s:\t%s\n", names(object at nuisance), 
+                    cat(gettextf("%s:\t%s\n", names(object at nuisance), 
                         object at nuisance))
                 }
             }
@@ -50,7 +50,7 @@
                               collapse = ""))
                 else{
                     cat(gettext("fixed part of param.:\n"))
-                    cat(paste(gettextf("\t%s:\t%s\n", names(object at fixed), 
+                    cat(paste(gettextf("%s:\t%s\n", names(object at fixed), 
                         object at fixed), collapse = ""))
                 }
             }else{

Modified: pkg/distrMod/R/AllShow.R
===================================================================
--- pkg/distrMod/R/AllShow.R	2009-03-24 12:09:43 UTC (rev 440)
+++ pkg/distrMod/R/AllShow.R	2009-03-24 12:21:17 UTC (rev 441)
@@ -37,7 +37,7 @@
                     cat(gettextf("nuisance:\t%s\n", object at nuisance))
                 else{
                     cat(gettext("nuisance:\n"))
-                    cat(gettextf("\t%s:\t%s\n", names(object at nuisance), 
+                    cat(gettextf("%s:\t%s\n", names(object at nuisance), 
                         object at nuisance))
                 }
             }
@@ -50,7 +50,7 @@
                               collapse = ""))
                 else{
                     cat(gettext("fixed part of param.:\n"))
-                    cat(paste(gettextf("\t%s:\t%s\n", names(object at fixed), 
+                    cat(paste(gettextf("%s:\t%s\n", names(object at fixed), 
                         object at fixed), collapse = ""))
                 }
             }else{



More information about the Distr-commits mailing list