[Robast-commits] r1171 - branches/robast-1.2/pkg/RobAStBase/R

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

Author: ruckdeschel
Date: 2019-02-26 10:59:43 +0100 (Tue, 26 Feb 2019)
New Revision: 1171

Modified:
   branches/robast-1.2/pkg/RobAStBase/R/qqplot.R
Log:
[RobAStBase] branch 1.2 yet another bug: mixed up n.CI and n

Modified: branches/robast-1.2/pkg/RobAStBase/R/qqplot.R
===================================================================
--- branches/robast-1.2/pkg/RobAStBase/R/qqplot.R	2019-02-26 09:23:00 UTC (rev 1170)
+++ branches/robast-1.2/pkg/RobAStBase/R/qqplot.R	2019-02-26 09:59:43 UTC (rev 1171)
@@ -101,12 +101,13 @@
 
 
 
+    mcl$n <- n
+
     if(is.null(mcl$n.CI)) mcl$n.CI <- n
     if(n.adj){
        r <- radius(neighbor(y))
-       n <- floor((1-r/sqrt(n))*n)
+       mcl$n.CI <- floor((1-r/sqrt(n))*n)
     }
-    mcl$n <- n
     mcl$y <- y at center
     mcl$legend.pref <- paste(mcl$legend.pref,"outlier-adjusted",sep="")