===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
r-cran-mclust-5.4.6/R/gmmhd.R-224-  object <- x
r-cran-mclust-5.4.6/R/gmmhd.R:225:  what <- match.arg(what, choices = eval(formals(plot.gmmhd)$what), 
r-cran-mclust-5.4.6/R/gmmhd.R-226-                    several.ok = TRUE)
##############################################
r-cran-mclust-5.4.6/R/densityMclust.R-23-    { stop("newdata must match ncol of object data") }
r-cran-mclust-5.4.6/R/densityMclust.R:24:  what <- match.arg(what, choices = eval(formals(predict.densityMclust)$what))	
r-cran-mclust-5.4.6/R/densityMclust.R-25-  pro <- object$parameters$pro; pro <- pro/sum(pro)
##############################################
r-cran-mclust-5.4.6/R/densityMclust.R-127-  xrange <- extendrange(object$data, f = 0.1)
r-cran-mclust-5.4.6/R/densityMclust.R:128:  xlim <- eval(mc$xlim, parent.frame())
r-cran-mclust-5.4.6/R/densityMclust.R-129-  if(!is.null(xlim)) 
r-cran-mclust-5.4.6/R/densityMclust.R-130-    xrange <- range(xlim)
r-cran-mclust-5.4.6/R/densityMclust.R:131:  ylim <- eval(mc$ylim, parent.frame())
r-cran-mclust-5.4.6/R/densityMclust.R-132-  #
##############################################
r-cran-mclust-5.4.6/R/clustCombi.R-311-    stop("object not of class \"clustCombi\"")
r-cran-mclust-5.4.6/R/clustCombi.R:312:  yaxis <- match.arg(yaxis, eval(formals(combiTree)$yaxis), several.ok = FALSE)
r-cran-mclust-5.4.6/R/clustCombi.R:313:  type <- match.arg(type, eval(formals(combiTree)$type), several.ok = FALSE)
r-cran-mclust-5.4.6/R/clustCombi.R-314-
##############################################
r-cran-mclust-5.4.6/R/mclust.R-1258-  # legendArgsDefault <- list(x = "bottomright", ncol = 2, cex = 1, inset = 0.01)
r-cran-mclust-5.4.6/R/mclust.R:1259:  legendArgsDefault <- eval(formals(plot.mclustBIC)$legendArgs)
r-cran-mclust-5.4.6/R/mclust.R-1260-  legendArgs <- append(as.list(legendArgs), legendArgsDefault)
##############################################
r-cran-mclust-5.4.6/R/mclustda.R-26-  modelType <- match.arg(modelType, 
r-cran-mclust-5.4.6/R/mclustda.R:27:                         choices = eval(formals(MclustDA)$modelType), 
r-cran-mclust-5.4.6/R/mclustda.R-28-                         several.ok = FALSE)
##############################################
r-cran-mclust-5.4.6/R/mclustda.R-912-  metric <- match.arg(metric, 
r-cran-mclust-5.4.6/R/mclustda.R:913:                      choices = eval(formals(cvMclustDA)$metric), 
r-cran-mclust-5.4.6/R/mclustda.R-914-                      several.ok = FALSE)
##############################################
r-cran-mclust-5.4.6/R/graphics.R-72-  
r-cran-mclust-5.4.6/R/graphics.R:73:  what <- match.arg(what, choices = eval(formals(mclust1Dplot)$what))
r-cran-mclust-5.4.6/R/graphics.R-74-  bad <- what == "classification" && is.null(classification)
##############################################
r-cran-mclust-5.4.6/R/graphics.R-310-  
r-cran-mclust-5.4.6/R/graphics.R:311:  what <- match.arg(what, choices = eval(formals(mclust2Dplot)$what))
r-cran-mclust-5.4.6/R/graphics.R-312-  bad <- what == "classification" && is.null(classification)
##############################################
r-cran-mclust-5.4.6/R/graphics.R-937-  if(is.null(ylab)) ylab <- "randProj2"
r-cran-mclust-5.4.6/R/graphics.R:938:  what <- match.arg(what, choices = eval(formals(randProj)$what))
r-cran-mclust-5.4.6/R/graphics.R-939-  bad <- what == "classification" && is.null(classification)
##############################################
r-cran-mclust-5.4.6/R/graphics.R-1110-    type[type == "level"] <- "hdr" # TODO: to be removed
r-cran-mclust-5.4.6/R/graphics.R:1111:  type <- match.arg(type, choices = eval(formals(surfacePlot)$type))
r-cran-mclust-5.4.6/R/graphics.R:1112:  what <- match.arg(what, choices = eval(formals(surfacePlot)$what))
r-cran-mclust-5.4.6/R/graphics.R-1113-  transformation <- match.arg(transformation, 
r-cran-mclust-5.4.6/R/graphics.R:1114:                              choices = eval(formals(surfacePlot)$transformation))
r-cran-mclust-5.4.6/R/graphics.R-1115-  #
##############################################
r-cran-mclust-5.4.6/R/mbahc.R-438-  hcPairsName <- deparse(substitute(hcPairs))
r-cran-mclust-5.4.6/R/mbahc.R:439:  what <- match.arg(what, choices = eval(formals(hcCriterion)$what))
r-cran-mclust-5.4.6/R/mbahc.R-440-  data <- as.matrix(attr(hcPairs, "data"))
##############################################
r-cran-mclust-5.4.6/R/bootstrap.R-149-    }
r-cran-mclust-5.4.6/R/bootstrap.R:150:  type <- match.arg(type, choices = eval(formals(MclustBootstrap)$type))
r-cran-mclust-5.4.6/R/bootstrap.R-151-  
##############################################
r-cran-mclust-5.4.6/R/bootstrap.R-262-{
r-cran-mclust-5.4.6/R/bootstrap.R:263:  what <- match.arg(what, choices = eval(formals(summary.MclustBootstrap)$what))
r-cran-mclust-5.4.6/R/bootstrap.R-264-  dims <- dim(object$mean)
##############################################
r-cran-mclust-5.4.6/R/bootstrap.R-393-  object <- x # Argh.  Really want to use object anyway
r-cran-mclust-5.4.6/R/bootstrap.R:394:  what <- match.arg(what, choices = eval(formals(plot.MclustBootstrap)$what))
r-cran-mclust-5.4.6/R/bootstrap.R-395-  par <- object$parameters