fill_NA_explicit <- function()

in R/step1_data_preprocessing.R [145:160]

• 16 lines of code
• 5 McCabe index (conditional complexity)

fill_NA_explicit <- function(data){
  data <- data.frame(data)
  for(j in 1:length(char)){
    row_na <- which(is.na(data[,char[j]]) == TRUE) 
    if(length(row_na > 0)){
      data[row_na, char[j]] <- "missing"
    }
  }
  for(j in 1:length(num)){
    row_na <- which(is.na(data[,num[j]]) == TRUE) 
    if(length(row_na > 0)){
      data[row_na, num[j]] <- -1
    }
  }
  return(data)
}