From noreply at r-forge.r-project.org Fri Jan 16 00:09:23 2015 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Fri, 16 Jan 2015 00:09:23 +0100 (CET) Subject: [Robast-commits] r804 - in branches/robast-1.0/pkg/RobAStBase: R inst man Message-ID: <20150115230923.3B1F3185183@r-forge.r-project.org> Author: ruckdeschel Date: 2015-01-16 00:09:22 +0100 (Fri, 16 Jan 2015) New Revision: 804 Modified: branches/robast-1.0/pkg/RobAStBase/R/AllPlot.R branches/robast-1.0/pkg/RobAStBase/R/comparePlot.R branches/robast-1.0/pkg/RobAStBase/R/infoPlot.R branches/robast-1.0/pkg/RobAStBase/R/qqplot.R branches/robast-1.0/pkg/RobAStBase/inst/NEWS branches/robast-1.0/pkg/RobAStBase/man/comparePlot.Rd branches/robast-1.0/pkg/RobAStBase/man/infoPlot.Rd branches/robast-1.0/pkg/RobAStBase/man/plot-methods.Rd Log: [RobAStBase] comparePlot, infoPlot, and the plot-Method for ICs gain optional pattern substitution (like plot) which can be switched off by argument withSubst Modified: branches/robast-1.0/pkg/RobAStBase/R/AllPlot.R =================================================================== --- branches/robast-1.0/pkg/RobAStBase/R/AllPlot.R 2014-12-22 11:31:54 UTC (rev 803) +++ branches/robast-1.0/pkg/RobAStBase/R/AllPlot.R 2015-01-15 23:09:22 UTC (rev 804) @@ -11,13 +11,22 @@ x.vec = NULL, scaleX = FALSE, scaleX.fct, scaleX.inv, scaleY = FALSE, scaleY.fct = pnorm, scaleY.inv=qnorm, scaleN = 9, x.ticks = NULL, y.ticks = NULL, - mfColRow = TRUE, to.draw.arg = NULL){ + mfColRow = TRUE, to.draw.arg = NULL, withSubst = TRUE){ xc <- match.call(call = sys.call(sys.parent(1)))$x + xcc <- as.character(deparse(xc)) dots <- match.call(call = sys.call(sys.parent(1)), expand.dots = FALSE)$"..." dotsLeg <- dotsT <- dotsL <- .makedotsLowLevel(dots) + .mpresubs <- if(withSubst){ + function(inx) + .presubs(inx, c("%C", "%A", "%D" ), + c(as.character(class(x)[1]), + as.character(date()), + xcc)) + }else function(inx)inx + if(!is.logical(inner)){ if(!is.list(inner)) inner <- as.list(inner) @@ -169,11 +178,6 @@ subL <- FALSE lineT <- NA - .mpresubs <- function(inx) - .presubs(inx, c("%C", "%D", "%A"), - c(as.character(class(x)[1]), - as.character(date()), - as.character(deparse(xc)))) if (hasArg(main)){ mainL <- TRUE @@ -307,7 +311,7 @@ do.call(plot, args=c(list(x=x.vec1, y=y.vec1, type = plty, lty = lty, - xlab = xlab, ylab = ylab, + xlab = .mpresubs(xlab), ylab = .mpresubs(ylab), panel.first = pF[[i]], panel.last = pL[[i]]), dots)) .plotRescaledAxis(scaleX, scaleX.fct, scaleX.inv, Modified: branches/robast-1.0/pkg/RobAStBase/R/comparePlot.R =================================================================== --- branches/robast-1.0/pkg/RobAStBase/R/comparePlot.R 2014-12-22 11:31:54 UTC (rev 803) +++ branches/robast-1.0/pkg/RobAStBase/R/comparePlot.R 2015-01-15 23:09:22 UTC (rev 804) @@ -18,7 +18,8 @@ cex.pts = 1, cex.pts.fun = NULL, col.pts = par("col"), pch.pts = 1, jitter.fac = 1, with.lab = FALSE, lab.pts = NULL, lab.font = NULL, alpha.trsp = NA, - which.lbs = NULL, which.Order = NULL, return.Order = FALSE){ + which.lbs = NULL, which.Order = NULL, return.Order = FALSE, + withSubst = TRUE){ .mc <- match.call(call = sys.call(sys.parent(1))) .xc<- function(obj) as.character(deparse(.mc[[obj]])) @@ -170,7 +171,8 @@ lineT <- NA - .mpresubs <- function(inx) + + .mpresubs <- if(withSubst){function(inx) .presubs(inx, c(paste("%C",1:ncomp,sep=""), "%D", paste("%A",1:ncomp,sep="")), @@ -179,7 +181,7 @@ if(is.null(obj3))NULL else as.character(class(obj3)[1]), if(is.null(obj4))NULL else as.character(class(obj4)[1]), as.character(date()), - xc)) + xc))} else function(inx)inx mainL <- FALSE if (hasArg(main)){ @@ -393,7 +395,7 @@ } do.call(plot, args=c(list(x = resc1$X, y = y0, - type = "n", xlab = xlab, ylab = ylab, + type = "n", xlab = .mpresubs(xlab), ylab = .mpresubs(ylab), lty = lty[1], col = addAlphTrsp2col(col[1],0), lwd = lwd[1]), dotsP, list(panel.last = pL[[i]], panel.first=pF[[i]]))) if(plty=="p") Modified: branches/robast-1.0/pkg/RobAStBase/R/infoPlot.R =================================================================== --- branches/robast-1.0/pkg/RobAStBase/R/infoPlot.R 2014-12-22 11:31:54 UTC (rev 803) +++ branches/robast-1.0/pkg/RobAStBase/R/infoPlot.R 2015-01-15 23:09:22 UTC (rev 804) @@ -18,7 +18,8 @@ lab.pts = NULL, lab.font = NULL, alpha.trsp = NA, which.lbs = NULL, which.Order = NULL, return.Order = FALSE, ylab.abs = "absolute information", - ylab.rel= "relative information"){ + ylab.rel= "relative information", + withSubst = TRUE){ objectc <- match.call(call = sys.call(sys.parent(1)))$object dots <- match.call(call = sys.call(sys.parent(1)), @@ -164,11 +165,12 @@ subL <- FALSE lineT <- NA - .mpresubs <- function(inx) + .mpresubs <- if(withSubst){function(inx) .presubs(inx, c("%C", "%D", "%A"), c(as.character(class(object)[1]), as.character(date()), as.character(deparse(objectc)))) + } else function(inx)inx if (hasArg(main)){ mainL <- TRUE @@ -504,7 +506,7 @@ do.call(plot, args=c(list(resc.C$X, resc.C$Y, type = plty, lty = ltyI, col = colI, lwd = lwdI, - xlab = xlab, ylab = ylab.abs, panel.last = pL.abs, + xlab = .mpresubs(xlab), ylab = .mpresubs(ylab.abs), panel.last = pL.abs, panel.first = pF.abs), dotsP1)) do.call(lines, args=c(list(resc$X, resc$Y, type = plty, @@ -568,7 +570,7 @@ }else{do.call(par,args=parArgsL[[i+in1to.draw]])} do.call(plot, args=c(list(resc$X, y.vec1, type = plty, - lty = lty, xlab = xlab, ylab = ylab.rel, + lty = lty, xlab = .mpresubs(xlab), ylab = .mpresubs(ylab.rel), col = col, lwd = lwd, panel.last = pL.rel, panel.first = pF.rel), dotsP)) Modified: branches/robast-1.0/pkg/RobAStBase/R/qqplot.R =================================================================== --- branches/robast-1.0/pkg/RobAStBase/R/qqplot.R 2014-12-22 11:31:54 UTC (rev 803) +++ branches/robast-1.0/pkg/RobAStBase/R/qqplot.R 2015-01-15 23:09:22 UTC (rev 804) @@ -23,7 +23,8 @@ n.adj = TRUE){ mc <- match.call(call = sys.call(sys.parent(1))) - if(missing(xlab)) mc$xlab <- as.character(deparse(mc$x)) + xcc <- as.character(deparse(mc$x)) + if(missing(xlab)) mc$xlab <- xcc if(missing(ylab)) mc$ylab <- as.character(deparse(mc$y)) mcl <- as.list(mc)[-1] Modified: branches/robast-1.0/pkg/RobAStBase/inst/NEWS =================================================================== --- branches/robast-1.0/pkg/RobAStBase/inst/NEWS 2014-12-22 11:31:54 UTC (rev 803) +++ branches/robast-1.0/pkg/RobAStBase/inst/NEWS 2015-01-15 23:09:22 UTC (rev 804) @@ -15,6 +15,9 @@ + comparePlot, infoPlot, and the plot-Method for ICs gain an argument with.automatic.grid; if TRUE a corresponding grid oriented at tickmarks is produced; this also works for rescaled axes ++ comparePlot, infoPlot, and the plot-Method for ICs gain optional + pattern substitution (like plot) which can be switched off by + argument withSubst + arguments panel.first, panel.last for plot-methods can now be lists + infoPlot and comparePlot gain an argument cex.pts.fun to enable individual scaling of the point sizes to be plotted onto each of the plotted curves Modified: branches/robast-1.0/pkg/RobAStBase/man/comparePlot.Rd =================================================================== --- branches/robast-1.0/pkg/RobAStBase/man/comparePlot.Rd 2014-12-22 11:31:54 UTC (rev 803) +++ branches/robast-1.0/pkg/RobAStBase/man/comparePlot.Rd 2015-01-15 23:09:22 UTC (rev 804) @@ -29,7 +29,8 @@ cex.pts = 1, cex.pts.fun = NULL, col.pts = par("col"), pch.pts = 1, jitter.fac = 1, with.lab = FALSE, lab.pts = NULL, lab.font = NULL, alpha.trsp = NA, - which.lbs = NULL, which.Order = NULL, return.Order = FALSE) + which.lbs = NULL, which.Order = NULL, return.Order = FALSE, + withSubst = TRUE) } \arguments{ \item{obj1}{ object of class \code{"InfluenceCurve"} } @@ -134,6 +135,8 @@ vector \code{"dim"}, \code{dimnr} running through the number of rows of the trafo matrix. } + \item{withSubst}{logical; if \code{TRUE} (default) pattern substitution for + titles and lables is used; otherwise no substitution is used. } \item{cex.pts}{size of the points of the \code{data} argument plotted} \item{cex.pts.fun}{rescaling function for the size of the points to be plotted; either \code{NULL} (default), then \code{log(1+abs(x))} is used for each of @@ -191,7 +194,8 @@ and a "generated on "-tag in case of \code{sub}. Of course, if \code{main} / \code{inner} / \code{sub} are \code{character}, this is used for the title; in case of \code{inner} it is then checked whether it -has correct length. In all title arguments, the following patterns are substituted: +has correct length. If argument \code{withSubst} is \code{TRUE}, in all title +and axis lable arguments, the following patterns are substituted: \describe{ \item{\code{"\%C1"},\code{"\%C2"},[\code{"\%C3"},][\code{"\%C4"}]}{class of argument \code{obj}, i=1,..4} Modified: branches/robast-1.0/pkg/RobAStBase/man/infoPlot.Rd =================================================================== --- branches/robast-1.0/pkg/RobAStBase/man/infoPlot.Rd 2014-12-22 11:31:54 UTC (rev 803) +++ branches/robast-1.0/pkg/RobAStBase/man/infoPlot.Rd 2015-01-15 23:09:22 UTC (rev 804) @@ -28,7 +28,8 @@ lab.pts = NULL, lab.font = NULL, alpha.trsp = NA, which.lbs = NULL, which.Order = NULL, return.Order = FALSE, ylab.abs = "absolute information", - ylab.rel= "relative information") + ylab.rel= "relative information", + withSubst = TRUE) } \arguments{ \item{object}{object of class \code{"InfluenceCurve"} } @@ -130,6 +131,8 @@ vector \code{"dim"}, \code{dimnr} running through the number of rows of the trafo matrix. } + \item{withSubst}{logical; if \code{TRUE} (default) pattern substitution for + titles and lables is used; otherwise no substitution is used. } \item{cex.pts}{size of the points of the \code{data} argument plotted} \item{cex.pts.fun}{rescaling function for the size of the points to be plotted; either \code{NULL} (default), then \code{log(1+abs(x))} is used for each of @@ -197,7 +200,8 @@ and a "generated on "-tag in case of \code{sub}. Of course, if \code{main} / \code{inner} / \code{sub} are \code{character}, this is used for the title; in case of \code{inner} it is then checked whether it -has correct length. In all title arguments, the following patterns are substituted: +has correct length. If argument \code{withSubst} is \code{TRUE}, in all title +and axis lable arguments, the following patterns are substituted: \describe{ \item{\code{"\%C"}}{class of argument \code{object}} \item{\code{"\%A"}}{deparsed argument \code{object}} Modified: branches/robast-1.0/pkg/RobAStBase/man/plot-methods.Rd =================================================================== --- branches/robast-1.0/pkg/RobAStBase/man/plot-methods.Rd 2014-12-22 11:31:54 UTC (rev 803) +++ branches/robast-1.0/pkg/RobAStBase/man/plot-methods.Rd 2015-01-15 23:09:22 UTC (rev 804) @@ -19,7 +19,8 @@ x.vec = NULL, scaleX = FALSE, scaleX.fct, scaleX.inv, scaleY = FALSE, scaleY.fct = pnorm, scaleY.inv=qnorm, scaleN = 9, x.ticks = NULL, y.ticks = NULL, - mfColRow = TRUE, to.draw.arg = NULL) + mfColRow = TRUE, to.draw.arg = NULL, + withSubst = TRUE) \S4method{plot}{IC,numeric}(x, y, ..., cex.pts = 1, col.pts = par("col"), pch.pts = 1, jitter.fac = 1, with.lab = FALSE, lab.pts = NULL, lab.font = NULL, alpha.trsp = NA, @@ -120,6 +121,8 @@ vector \code{"dim"}, \code{dimnr} running through the number of rows of the trafo matrix. } + \item{withSubst}{logical; if \code{TRUE} (default) pattern substitution for + titles and lables is used; otherwise no substitution is used. } \item{cex.pts}{size of the points of the second argument plotted} \item{col.pts}{color of the points of the second argument plotted} \item{pch.pts}{symbol of the points of the second argument plotted} @@ -169,7 +172,8 @@ and a "generated on "-tag in case of \code{sub}. Of course, if \code{main} / \code{inner} / \code{sub} are \code{character}, this is used for the title; in case of \code{inner} it is then checked whether it -has correct length. In all title arguments, the following patterns are substituted: +has correct length. If argument \code{withSubst} is \code{TRUE}, in all title +and axis lable arguments, the following patterns are substituted: \describe{ \item{\code{"\%C"}}{class of argument \code{object}} \item{\code{"\%A"}}{deparsed argument \code{object}} From noreply at r-forge.r-project.org Fri Jan 16 00:14:24 2015 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Fri, 16 Jan 2015 00:14:24 +0100 (CET) Subject: [Robast-commits] r805 - branches/robast-1.0/pkg/RobAStBase/R Message-ID: <20150115231424.580D918769B@r-forge.r-project.org> Author: ruckdeschel Date: 2015-01-16 00:14:24 +0100 (Fri, 16 Jan 2015) New Revision: 805 Modified: branches/robast-1.0/pkg/RobAStBase/R/plotWrapper.R Log: [RobAStBase] updated wrapper functions Modified: branches/robast-1.0/pkg/RobAStBase/R/plotWrapper.R =================================================================== --- branches/robast-1.0/pkg/RobAStBase/R/plotWrapper.R 2015-01-15 23:09:22 UTC (rev 804) +++ branches/robast-1.0/pkg/RobAStBase/R/plotWrapper.R 2015-01-15 23:14:24 UTC (rev 805) @@ -161,6 +161,7 @@ ,panel.first= substitute(NULL) ,panel.last= substitute(NULL) ,col = substitute("blue") + ,withSubst = substitute(TRUE) ), scaleList) ##parameter for plotting @@ -318,6 +319,7 @@ ,col = substitute("blue") ,panel.first= substitute(NULL) ,panel.last= substitute(NULL) + ,withSubst = substitute(TRUE) ), scaleList) if(!missing(y)){c(argsList, y = substitute(y) ,cex.pts = substitute(0.3) @@ -529,6 +531,7 @@ ,col = substitute("blue") ,panel.first= substitute(NULL) ,panel.last= substitute(NULL) + ,withSubst = substitute(TRUE) ), scaleList) if(!is.null(IC3)) argsList$obj3 <- substitute(IC3) From noreply at r-forge.r-project.org Fri Jan 16 00:39:40 2015 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Fri, 16 Jan 2015 00:39:40 +0100 (CET) Subject: [Robast-commits] r806 - in branches/robast-1.0/pkg/ROptEst: R inst man Message-ID: <20150115233940.9237F183FA6@r-forge.r-project.org> Author: ruckdeschel Date: 2015-01-16 00:39:40 +0100 (Fri, 16 Jan 2015) New Revision: 806 Modified: branches/robast-1.0/pkg/ROptEst/R/AllPlot.R branches/robast-1.0/pkg/ROptEst/R/cniperCont.R branches/robast-1.0/pkg/ROptEst/R/plotWrapper.R branches/robast-1.0/pkg/ROptEst/inst/NEWS branches/robast-1.0/pkg/ROptEst/man/cniperCont.Rd Log: [ROptEst] + cniperPointPlot gains optional pattern substitution (like plot) which can be switched off by argument withSubst Modified: branches/robast-1.0/pkg/ROptEst/R/AllPlot.R =================================================================== --- branches/robast-1.0/pkg/ROptEst/R/AllPlot.R 2015-01-15 23:14:24 UTC (rev 805) +++ branches/robast-1.0/pkg/ROptEst/R/AllPlot.R 2015-01-15 23:39:40 UTC (rev 806) @@ -10,7 +10,7 @@ x.vec = NULL, scaleX = FALSE, scaleX.fct, scaleX.inv, scaleY = FALSE, scaleY.fct = pnorm, scaleY.inv=qnorm, scaleN = 9, x.ticks = NULL, y.ticks = NULL, - mfColRow = TRUE, to.draw.arg = NULL){ + mfColRow = TRUE, to.draw.arg = NULL, withSubst = TRUE){ mcl <- match.call(call = sys.call(sys.parent(1)), expand.dots = TRUE) Modified: branches/robast-1.0/pkg/ROptEst/R/cniperCont.R =================================================================== --- branches/robast-1.0/pkg/ROptEst/R/cniperCont.R 2015-01-15 23:14:24 UTC (rev 805) +++ branches/robast-1.0/pkg/ROptEst/R/cniperCont.R 2015-01-15 23:39:40 UTC (rev 806) @@ -118,15 +118,32 @@ pch.pts = 19, jitter.fac = 1, with.lab = FALSE, lab.pts = NULL, lab.font = NULL, alpha.trsp = NA, which.lbs = NULL, which.Order = NULL, - return.Order = FALSE){ + return.Order = FALSE, withSubst = TRUE){ mcD <- match.call(expand.dots = FALSE) dots <- as.list(mcD$"...") mc <- match.call(#call = sys.call(sys.parent(1)), expand.dots = TRUE) mcl <- as.list(mc[-1]) + IC1c <- as.character(deparse(IC1)) + IC2c <- as.character(deparse(IC2)) + .mpresubs <- if(withSubst){ + function(inx) + .presubs(inx, c("%C1", "%A1", "%C2", "%A2", "%D" ), + c(as.character(class(IC1)[1]), + IC1c, + as.character(class(IC2)[1]), + IC2c, + as.character(date()) + )) + }else function(inx)inx + if(!is.null(dots$main)) dots$main <- .mpresubs(dots$main) + if(!is.null(dots$sub)) dots$sub <- .mpresubs(dots$sub) + if(!is.null(dots$xlab)) dots$xlab <- .mpresubs(dots$xlab) + if(!is.null(dots$ylab)) dots$ylab <- .mpresubs(dots$ylab) + if(!is(IC1,"IC")) stop ("IC1 must be of class 'IC'") if(!is(IC2,"IC")) stop ("IC2 must be of class 'IC'") if(!identical(IC1 at CallL2Fam, IC2 at CallL2Fam)) @@ -262,7 +279,7 @@ pch.pts = 19, jitter.fac = 1, with.lab = FALSE, lab.pts = NULL, lab.font = NULL, alpha.trsp = NA, which.lbs = NULL, which.Order = NULL, - return.Order = FALSE){ + return.Order = FALSE, withSubst = TRUE){ mc0 <- match.call(#call = sys.call(sys.parent(1)), expand.dots = FALSE) @@ -270,6 +287,21 @@ expand.dots = TRUE) mcl <- as.list(mc[-1]) dots <- as.list(mc0$"...") + L2Famc <- as.character(deparse(L2Fam)) + + .mpresubs <- if(withSubst){ + function(inx) + .presubs(inx, c("%C", "%A", "%D" ), + c(as.character(class(L2Fam)[1]), + L2Famc, + as.character(date()) + )) + }else function(inx)inx + + if(!is.null(dots$main)) dots$main <- .mpresubs(dots$main) + if(!is.null(dots$sub)) dots$sub <- .mpresubs(dots$sub) + if(!is.null(dots$xlab)) dots$xlab <- .mpresubs(dots$xlab) + if(!is.null(dots$ylab)) dots$ylab <- .mpresubs(dots$ylab) if(is.null(mcl$risk)) mcl$risk <- asMSE() robMod <- InfRobModel(center = L2Fam, neighbor = neighbor) @@ -286,6 +318,7 @@ if(withMaxRisk) mcl$fromCniperPlot <- TRUE mcl$withMaxRisk <- NULL + mcl$withSubst <- FALSE do.call(cniperCont, mcl) } Modified: branches/robast-1.0/pkg/ROptEst/R/plotWrapper.R =================================================================== --- branches/robast-1.0/pkg/ROptEst/R/plotWrapper.R 2015-01-15 23:14:24 UTC (rev 805) +++ branches/robast-1.0/pkg/ROptEst/R/plotWrapper.R 2015-01-15 23:39:40 UTC (rev 806) @@ -102,6 +102,7 @@ ,xlab=substitute("Dirac point") ,ylab=substitute("Asymptotic Risk difference (classic - robust)") ,bty = substitute("o") + ,withSubst = TRUE ), scaleList) # print(argsList) ##parameter for plotting Modified: branches/robast-1.0/pkg/ROptEst/inst/NEWS =================================================================== --- branches/robast-1.0/pkg/ROptEst/inst/NEWS 2015-01-15 23:14:24 UTC (rev 805) +++ branches/robast-1.0/pkg/ROptEst/inst/NEWS 2015-01-15 23:39:40 UTC (rev 806) @@ -14,6 +14,8 @@ user-visible CHANGES: + title changed to title style / capitalization + cniperPointPlot gains capacity to deal with "interpolRisk" - risks ++ cniperPointPlot gains optional pattern substitution (like plot) + which can be switched off by argument withSubst GENERAL ENHANCEMENTS: Modified: branches/robast-1.0/pkg/ROptEst/man/cniperCont.Rd =================================================================== --- branches/robast-1.0/pkg/ROptEst/man/cniperCont.Rd 2015-01-15 23:14:24 UTC (rev 805) +++ branches/robast-1.0/pkg/ROptEst/man/cniperCont.Rd 2015-01-15 23:39:40 UTC (rev 806) @@ -21,7 +21,7 @@ pch.pts = 19, jitter.fac = 1, with.lab = FALSE, lab.pts = NULL, lab.font = NULL, alpha.trsp = NA, which.lbs = NULL, which.Order = NULL, - return.Order = FALSE) + return.Order = FALSE, withSubst = TRUE) cniperPoint(L2Fam, neighbor, risk, lower, upper) @@ -37,7 +37,7 @@ pch.pts = 19, jitter.fac = 1, with.lab = FALSE, lab.pts = NULL, lab.font = NULL, alpha.trsp = NA, which.lbs = NULL, which.Order = NULL, - return.Order = FALSE) + return.Order = FALSE, withSubst = TRUE) } \arguments{ @@ -121,6 +121,8 @@ reduction by argument \code{which.lbs}, and ordering is according to the norm given by \code{normtype(object)}); otherwise we return \code{invisible()} as usual.} + \item{withSubst}{logical; if \code{TRUE} (default) pattern substitution for + titles and lables is used; otherwise no substitution is used. } } \details{ In case of \code{cniperCont} the difference between the risks of two ICs @@ -140,6 +142,19 @@ a list can be used; its first component is then taken for the curve, the second one for the balancing line. + If argument \code{withSubst} is \code{TRUE}, in all title + and axis lable arguments of \code{cniperCont} and \code{cniperPointPlot}, + the following patterns are substituted: + \describe{ + \item{\code{"\%C"}}{class of argument \code{L2Fam} (for \code{cniperPointPlot})} + \item{\code{"\%A"}}{deparsed argument \code{L2Fam} (for \code{cniperPointPlot})} + \item{\code{"\%C1"}}{class of argument \code{IC1} (for \code{cniperCont})} + \item{\code{"\%A1"}}{deparsed argument \code{IC1} (for \code{cniperCont})} + \item{\code{"\%C2"}}{class of argument \code{IC2} (for \code{cniperCont})} + \item{\code{"\%A2"}}{deparsed argument \code{IC2} (for \code{cniperCont})} + \item{\code{"\%D"}}{time/date-string when the plot was generated} + } + For more details about cniper contamination and cniper points we refer to Section~3.5 of Kohl et al. (2008) as well as Ruckdeschel (2004) and the Introduction of Kohl (2005).