===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
r-cran-rms-6.1-0/R/cph.s-72-
r-cran-rms-6.1-0/R/cph.s:73:    asm   <- atr$assume.code
r-cran-rms-6.1-0/R/cph.s-74-    name  <- atr$name
##############################################
r-cran-rms-6.1-0/R/cph.s-94-      j <- 0
r-cran-rms-6.1-0/R/cph.s:95:      for(i in (1 : length(asm))[asm == 8]) {
r-cran-rms-6.1-0/R/cph.s-96-        nstrata <- nstrata + 1
##############################################
r-cran-rms-6.1-0/R/cph.s-102-    }
r-cran-rms-6.1-0/R/cph.s:103:    xpres <- length(asm) && any(asm != 8)
r-cran-rms-6.1-0/R/cph.s-104-    Y <- model.extract(X, 'response')
##############################################
r-cran-rms-6.1-0/R/rms.s-168-  
r-cran-rms-6.1-0/R/rms.s:169:  fname <- flabel <- name <- mmname <- strt <- asm <- len <- 
r-cran-rms-6.1-0/R/rms.s-170-    fname.incl.dup <- ia <- funits <- NULL
##############################################
r-cran-rms-6.1-0/R/rms.s-237-        flabel <- c(flabel, z$label)
r-cran-rms-6.1-0/R/rms.s:238:        asm <- c(asm, za)
r-cran-rms-6.1-0/R/rms.s-239-        colnam[[i1]] <- z$colnames
##############################################
r-cran-rms-6.1-0/R/rms.s-292-
r-cran-rms-6.1-0/R/rms.s:293:  which.ia <- (1 : length(asm))[asm == 9]
r-cran-rms-6.1-0/R/rms.s-294-
##############################################
r-cran-rms-6.1-0/R/rms.s-308-        nc <- nc + 1
r-cran-rms-6.1-0/R/rms.s:309:        asm <- c(asm, 9)
r-cran-rms-6.1-0/R/rms.s-310-        if(nia == 2) ialab <- paste(fn[1], "*", fn[2])
##############################################
r-cran-rms-6.1-0/R/rms.s-406-    
r-cran-rms-6.1-0/R/rms.s:407:    if(length(funits) != sum(asm != 9)) warning('program logic warning 1')
r-cran-rms-6.1-0/R/rms.s:408:    else names(funits) <- fname[asm != 9]
r-cran-rms-6.1-0/R/rms.s-409-
##############################################
r-cran-rms-6.1-0/R/rms.s-433-      if(response.pres) jz <- jz[jz > 1]
r-cran-rms-6.1-0/R/rms.s:434:      names(nmiss)[jz] <- fname[asm != 9]
r-cran-rms-6.1-0/R/rms.s-435-      attr(mf, 'na.action')$nmiss <- nmiss
##############################################
r-cran-rms-6.1-0/R/poma.r-69-  data = mod.orm$call$data
r-cran-rms-6.1-0/R/poma.r:70:  data = eval (data) [ , all.vars(mod.orm$sformula)]
r-cran-rms-6.1-0/R/poma.r-71-  data <- data [complete.cases(data), ]
##############################################
r-cran-rms-6.1-0/R/poma.r-74-  ### Convert DV into numeric vector when factor DV is supplied
r-cran-rms-6.1-0/R/poma.r:75:  mydv <-   eval (data) [ , all.vars(mod.orm$sformula)[1] ]
r-cran-rms-6.1-0/R/poma.r-76-  cat("Unique values of Y:", unique(sort(mydv)), "\n")
##############################################
r-cran-rms-6.1-0/inst/tests/examples.Rmd-90-
r-cran-rms-6.1-0/inst/tests/examples.Rmd:91:# Survival Plots for `r mu$code('pbc')` Dataset
r-cran-rms-6.1-0/inst/tests/examples.Rmd-92-Hover over the curves to see particular probability estimates and numbers at risk.  Click on legend components to show/hide components.
##############################################
r-cran-rms-6.1-0/inst/tests/examples.Rmd-102-# Computing Environment
r-cran-rms-6.1-0/inst/tests/examples.Rmd:103:`r mu$session()`