R/addTableStep.R

In NMdata: Preparation, Checking and Post-Processing Data for PK/PD Modeling

## Used internally to add info to tables generated by NMreadPhi and NMreadExt. Do not export

addTableStep <- function(dt,keep.table.name=FALSE){

    table.name <- NULL
    table.step <- NULL

    dt[,table.step:="Unknown"]
    dt[grepl("First Order",table.name),table.step:="FO"]
    dt[grepl("First Order Conditional Estimation",table.name),table.step:="FOCE"]
    dt[grepl("First Order Conditional Estimation with Interaction",table.name),table.step:="FOCEI"]

    dt[grepl("Stochastic Approximation Expectation-Maximization",table.name),table.step:="SAEM"]

    dt[grepl("Importance Sampling",table.name),table.step:="IMP"]

    if(!keep.table.name){
        dt[,table.name:=NULL]
    }

    dt
}