===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
r-cran-pbkrtest-0.4-8.6/R/KR-Sigma-G2.R-101-.getME.all <- function(obj) {
r-cran-pbkrtest-0.4-8.6/R/KR-Sigma-G2.R:102:   nmME <- eval(formals(getME)$name)
r-cran-pbkrtest-0.4-8.6/R/KR-Sigma-G2.R-103-   sapply(nmME, function(nm) try(getME(obj, nm)),
##############################################
r-cran-pbkrtest-0.4-8.6/R/modelCoercion.R-163-  new.formula <- as.formula(paste(fff$lhs, "~ -1+", rhs.fix2, "+", fff$rhs.ran))
r-cran-pbkrtest-0.4-8.6/R/modelCoercion.R:164:  new.data    <- cbind(XX.sm, eval(largeModel@call$data))
r-cran-pbkrtest-0.4-8.6/R/modelCoercion.R-165-
##############################################
r-cran-pbkrtest-0.4-8.6/R/modelCoercion.R-185-  new.formula <- as.formula(paste(fff$lhs, "~ -1+", rhs.fix2))
r-cran-pbkrtest-0.4-8.6/R/modelCoercion.R:186:  new.data    <- as.data.frame(cbind(XX.sm, eval(largeModel$model)))
r-cran-pbkrtest-0.4-8.6/R/modelCoercion.R-187-  #print(new.data)