===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
r-cran-segmented-1.3-0/R/segmented.default.r-151-    if (class(mf$formula) == "name" && !"~" %in% paste(mf$formula)) 
r-cran-segmented-1.3-0/R/segmented.default.r:152:        mf$formula <- eval(mf$formula)
r-cran-segmented-1.3-0/R/segmented.default.r-153-    #mf$formula <- update.formula(mf$formula, paste(seg.Z, collapse = ".+"))
##############################################
r-cran-segmented-1.3-0/R/segmented.glm.R-101-    #non so a che serva la seguente linea..
r-cran-segmented-1.3-0/R/segmented.glm.R:102:    if(class(mf$formula)=="name" && !"~"%in%paste(mf$formula)) mf$formula<-eval(mf$formula)
r-cran-segmented-1.3-0/R/segmented.glm.R-103-    mfExt<- mf
##############################################
r-cran-segmented-1.3-0/R/segmented.Arima.r-195-    
r-cran-segmented-1.3-0/R/segmented.Arima.r:196:    XREG<-eval(obj$call$xreg)
r-cran-segmented-1.3-0/R/segmented.Arima.r-197-    if(!is.null(XREG)){
##############################################
r-cran-segmented-1.3-0/R/davies.test.r-207-    if(class(obj)[1]=="segmented"){
r-cran-segmented-1.3-0/R/davies.test.r:208:        if(!is.null(eval(obj$call$obj)$call$data)) mf$data <- eval(obj$call$obj)$call$data
r-cran-segmented-1.3-0/R/davies.test.r-209-        mf$formula<-update.formula(mf$formula,paste("~.-",paste(obj$nameUV$V, collapse="-")))
##############################################
r-cran-segmented-1.3-0/R/segmented.lm.R-105-    mf[[1L]] <- as.name("model.frame")
r-cran-segmented-1.3-0/R/segmented.lm.R:106:    if(class(mf$formula)=="name" && !"~"%in%paste(mf$formula)) mf$formula<-eval(mf$formula)
r-cran-segmented-1.3-0/R/segmented.lm.R-107-    #orig.call$formula<-update.formula(orig.call$formula, paste("~.-",all.vars(seg.Z)))