Update nonZeroColumnCount.R

Collection of small useful functions