Rm mono

the alternative is 
numeric_cols[is.na( numeric_cols[,i]),i] <- median( numeric_cols[,i], na.rm=TRUE )
i can certainly do it that way, but i personally find it much less readable
lmk