Skip to contents

A step of the RcppExports implementation. Called by morie_mean. See the file header for the source the module follows.

Arguments

x

Passed to .Call.

shared

Use the rmoriebricklayer kernel (TRUE) or the identical kernel rmorie vendors (FALSE). Defaults to TRUE.

Value

The value of .Call.

Examples

x <- c(2, 4, 4, 4, 5, 5, 7, 9)
morie_mean_cpp(x)
#> [1] 5
morie_mean_cpp(x, shared = FALSE)
#> [1] 5
# neither kernel overflows where base R's mean() does not
morie_mean_cpp(rep(1e308, 3), shared = FALSE)
#> [1] 1e+308