[Distr-commits] r1083 - branches/distr-2.7/pkg/distr/R pkg/distr/R

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

Author: ruckdeschel
Date: 2016-01-15 17:42:34 +0100 (Fri, 15 Jan 2016)
New Revision: 1083

Modified:
   branches/distr-2.7/pkg/distr/R/plot-methods_LebDec.R
   pkg/distr/R/plot-methods_LebDec.R
Log:
distr: argh some relics from debugging...

Modified: branches/distr-2.7/pkg/distr/R/plot-methods_LebDec.R
===================================================================
--- branches/distr-2.7/pkg/distr/R/plot-methods_LebDec.R	2016-01-15 16:38:52 UTC (rev 1082)
+++ branches/distr-2.7/pkg/distr/R/plot-methods_LebDec.R	2016-01-15 16:42:34 UTC (rev 1083)
@@ -247,9 +247,6 @@
                                   if(is.na(res)) return(NULL)
                                   return(res)}
               iL <- 1:length(to.draw)
-              print(to.draw)
-              print(iL[to.draw==1])
-              print(iL[to.draw==2])
               force(lb0)
               .mp3 <- .mp(dlb,iL[to.draw==1])
               if(1%in%to.draw & !is.null(.mp3)) lb0[[1]][["p"]] <- .mp3
@@ -280,10 +277,6 @@
       ylab0.c <- xlab0[[2]]
       ylab0.d <- ylab0[[3]]
       dots$ylab <- NULL
-      cat("\n----------------\nx\n--------------\n")
-      print(xlab0)
-      cat("\n----------------\ny\n--------------\n")
-      print(ylab0)
 
      if (hasArg("main")){
          mainL <- TRUE

Modified: pkg/distr/R/plot-methods_LebDec.R
===================================================================
--- pkg/distr/R/plot-methods_LebDec.R	2016-01-15 16:38:52 UTC (rev 1082)
+++ pkg/distr/R/plot-methods_LebDec.R	2016-01-15 16:42:34 UTC (rev 1083)
@@ -247,9 +247,6 @@
                                   if(is.na(res)) return(NULL)
                                   return(res)}
               iL <- 1:length(to.draw)
-              print(to.draw)
-              print(iL[to.draw==1])
-              print(iL[to.draw==2])
               force(lb0)
               .mp3 <- .mp(dlb,iL[to.draw==1])
               if(1%in%to.draw & !is.null(.mp3)) lb0[[1]][["p"]] <- .mp3
@@ -280,10 +277,6 @@
       ylab0.c <- xlab0[[2]]
       ylab0.d <- ylab0[[3]]
       dots$ylab <- NULL
-      cat("\n----------------\nx\n--------------\n")
-      print(xlab0)
-      cat("\n----------------\ny\n--------------\n")
-      print(ylab0)
 
      if (hasArg("main")){
          mainL <- TRUE