[Distr-commits] r957 - branches/distr-2.6/pkg/distr/R

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

Author: ruckdeschel
Date: 2014-08-10 19:00:14 +0200 (Sun, 10 Aug 2014)
New Revision: 957

Modified:
   branches/distr-2.6/pkg/distr/R/qqbounds.R
Log:
[distr]: qqbounds additional information in debug mode

Modified: branches/distr-2.6/pkg/distr/R/qqbounds.R
===================================================================
--- branches/distr-2.6/pkg/distr/R/qqbounds.R	2014-08-10 15:53:07 UTC (rev 956)
+++ branches/distr-2.6/pkg/distr/R/qqbounds.R	2014-08-10 17:00:14 UTC (rev 957)
@@ -18,12 +18,17 @@
    p.l <- p.l(D)(x.in)
    l.x <- length(x.in)
    if(debug){
+     cat("the partition into discrete mass points and cont. points gives\n")
      print(SI)
+     cat("x.in is\n")
      print(x.in)
+     cat("number of mass points:\n")
      print(sum(SI.in))
+     cat("p.r and p.l\n")
      print(cbind(p.r,p.l))
+     cat("length of l.x\n")
      print(l.x)
-     print(c(alpha,n,exact.sCI))
+     print(c(alpha=alpha,n=n,exact.sCI=exact.sCI))
    }
 
    silent0 <- !debug
@@ -34,7 +39,9 @@
                                          silent0),silent=silent0) else NULL
    #print(cbind(c.crit,c.crit.i))
    if(debug){
+      cat("returned c.crit is\n")
       print(str(c.crit))
+      cat("returned c.crit.i is\n")
       print(str(c.crit.i))
    }
    te.i <- withConf.pw  & !is(c.crit.i,"try-error")