fast_apply_sum_na_rm_T function

Function similar to the function apply(X,dim,sum,na.rm=TRUE).