===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
r-cran-gamm4-0.2-6/R/gamm4.r-46-    sm$X <- G$X[,sm$first.para:sm$last.para,drop=FALSE]
r-cran-gamm4-0.2-6/R/gamm4.r:47:    rasm <- mgcv::smooth2random(sm,used.names,type=2) ## convert smooth to random effect and fixed effects
r-cran-gamm4-0.2-6/R/gamm4.r-48-    used.names <- c(used.names,names(rasm$rand))    
##############################################
r-cran-gamm4-0.2-6/R/gamm4.r-190-  yname <- new.name("y",names(mf))
r-cran-gamm4-0.2-6/R/gamm4.r:191:  eval(parse(text=paste("mf$",yname,"<-G$y",sep="")))
r-cran-gamm4-0.2-6/R/gamm4.r-192-  Xname <- new.name("X",names(mf))
r-cran-gamm4-0.2-6/R/gamm4.r:193:  eval(parse(text=paste("mf$",Xname,"<-G$X",sep="")))
r-cran-gamm4-0.2-6/R/gamm4.r-194-