[Distr-commits] r589 - branches/distr-2.2/pkg

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

Author: ruckdeschel
Date: 2009-09-11 19:00:20 +0200 (Fri, 11 Sep 2009)
New Revision: 589

Modified:
   branches/distr-2.2/pkg/qqplot.R
Log:
argh: a little bug... in qqplot.R

Modified: branches/distr-2.2/pkg/qqplot.R
===================================================================
--- branches/distr-2.2/pkg/qqplot.R	2009-09-11 16:53:13 UTC (rev 588)
+++ branches/distr-2.2/pkg/qqplot.R	2009-09-11 17:00:20 UTC (rev 589)
@@ -167,7 +167,7 @@
          nosym0~"pointw."~ex.p~alpha==alpha0~"%- conf. interval",
          list(ex.p = if(exact.pCI) "exact" else "asympt.",
               alpha0 = alpha*100,
-              nosym0 = if(nosym.pCI) "shortest asymm." else "symm"))
+              nosym0 = if(nosym.pCI&&exact.pCI) "shortest asymm." else "symm"))
       expression2 <- substitute(
          "simult."~ex.s~alpha==alpha0~"%- conf. interval",
          list(ex.s = if(exact.sCI) "exact" else "asympt.",