=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ 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)))