R/addTableStep.R

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

##' @keywords internal
## 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"]
    dt[grepl("Importance/MAP Sampling",table.name),table.step:="IMP"]

    dt[grepl("Laplacian Conditional Estimation",table.name),table.step:="LAPLACECE"]
    
    if(!keep.table.name){
        dt[,table.name:=NULL]
    }

    dt[]
}