R/na_omit_selection.r

In weirichs/eatTools: Miscellaneous Functions for the Analysis of Educational Assessments

na_omit_selection <- function ( dat, varsToOmitIfNA) {
                     if ( length(varsToOmitIfNA)==0) {return(dat)}
                     dat   <- makeDataFrame(dat)
                     allVar<- list(varsToOmitIfNA = varsToOmitIfNA)
                     allNam<- lapply(allVar, FUN=function(ii) {existsBackgroundVariables(dat = dat, variable=ii)})
                     datr  <- as.data.frame ( na.omit(data.table::as.data.table(dat), cols = allNam[["varsToOmitIfNA"]]))
                     return(datr)}