fast_apply_nb_na function

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