more stable mean implementation

The sugar implementation of `mean` in Rcpp does not implement the stable version with the double loop as in R. 

See https://github.com/Rcpp11/Rcpp11/blob/master/inst/include/Rcpp/sugar/functions/mean.h#L17 for how `mean` is implemented in `Rcpp11`. 
