[Robast-commits] r1173 - in branches/robast-1.2/pkg/RobAStBase: R man

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

Author: ruckdeschel
Date: 2019-02-26 13:45:41 +0100 (Tue, 26 Feb 2019)
New Revision: 1173

Modified:
   branches/robast-1.2/pkg/RobAStBase/R/outlyingPlot.R
   branches/robast-1.2/pkg/RobAStBase/man/outlyingPlotIC.Rd
   branches/robast-1.2/pkg/RobAStBase/man/plot-methods.Rd
Log:
[RobAStBase] branch 1.2 refined Rd for outlyingPlotIC (with cutoff.quant()) and some minor polishments 

Modified: branches/robast-1.2/pkg/RobAStBase/R/outlyingPlot.R
===================================================================
--- branches/robast-1.2/pkg/RobAStBase/R/outlyingPlot.R	2019-02-26 11:25:09 UTC (rev 1172)
+++ branches/robast-1.2/pkg/RobAStBase/R/outlyingPlot.R	2019-02-26 12:45:41 UTC (rev 1173)
@@ -144,8 +144,8 @@
             devIC <- data.frame(t(evIC[1:dimevIC,,drop=FALSE]))
             CMcd <- PosSemDefSymmMatrix(rrcov::getCov(rrcov::CovMcd(devIC,alpha=0.5)))
             asVar <- CMcd
-            cat("Fall 1\n\n")
-            print(asVar)
+#            cat("Fall 1\n\n")
+#            print(asVar)
           }
        }else{
             if("asCov" %in% names(Risks(IC.y)))
@@ -156,8 +156,8 @@
                    }
                 else{asVar <- getRiskIC(IC.y, risk = asCov())$asCov$value
                    }
-            cat("Fall 2\n\n")
-            print(asVar)
+#            cat("Fall 2\n\n")
+#            print(asVar)
        }
      
           mc$dist.y <- QFNorm(name = gettext("Mahalonobis-Norm"), 

Modified: branches/robast-1.2/pkg/RobAStBase/man/outlyingPlotIC.Rd
===================================================================
--- branches/robast-1.2/pkg/RobAStBase/man/outlyingPlotIC.Rd	2019-02-26 11:25:09 UTC (rev 1172)
+++ branches/robast-1.2/pkg/RobAStBase/man/outlyingPlotIC.Rd	2019-02-26 12:45:41 UTC (rev 1173)
@@ -111,6 +111,10 @@
   Peter Ruckdeschel \email{peter.ruckdeschel at uni-oldenburg.de}
   }
 
+\note{If you want to use the return value of \code{cutoff.quant()} for arguments
+ \code{cutoff.x} or \code{cutoff.y}, remember to set the arguments \code{tf.x}
+ resp. \code{tf.y} to the identity, i.e., \code{function(x)x}.}
+
 \value{
 If argument \code{doplot} is \code{FALSE}:
 A list (returned as \code{invisible()}) with items
@@ -144,6 +148,12 @@
 xn <- c(rnorm(100),rcauchy(20)+20)
 outlyingPlotIC(xn, IC.x=N0.IC0)
 outlyingPlotIC(xn, IC.x=N0.IC1)
+
+## example for usage with cutoff.quant()
+classIC <- optIC(NormLocationScaleFamily(mean = 3.3, sd = 0.67),
+                  risk = asCov())
+outlyingPlotIC(data = chem[-17], classIC, cex.pts = 3, jitter.fac = 1,
+                cutoff.x = cutoff.quant(), tf.x =function(x)(x))
 }
 }
 \keyword{hplot}

Modified: branches/robast-1.2/pkg/RobAStBase/man/plot-methods.Rd
===================================================================
--- branches/robast-1.2/pkg/RobAStBase/man/plot-methods.Rd	2019-02-26 11:25:09 UTC (rev 1172)
+++ branches/robast-1.2/pkg/RobAStBase/man/plot-methods.Rd	2019-02-26 12:45:41 UTC (rev 1173)
@@ -40,7 +40,7 @@
   \item{main}{logical: is a main title to be used? or \cr
               just as argument \code{main} in \code{\link{plot.default}}.}
   \item{inner}{logical: do panels have their own titles? or \cr
-               character vector of / cast to length 'number of plotted 
+               character vector of inner titles/ cast to length 'number of plotted
                dimensions';
                if argument \code{to.draw.arg} is used, this refers to 
                a vector of length \code{length(to.draw.arg)}, the