Update sampleFun.R

Some details: remove NA from colSums and bounds to zeros if NAs, before muTab to zeros if NAs