fast_apply_nb_not_na function

Function similar to the function apply(X,dim,function(x)sum(!is.na(x))).