impute median

a.rb

impute.med <- function(x) replace(x, is.na(x), median(x, na.rm = TRUE))
df_all <- sapply(df_all, function(x){
  if(is.numeric(x)){
    impute.med(x)
  } else {
    x
  }
}
)