Mean Cosine and Sine
mean_SC(x, w = NULL, na.rm = TRUE)
x
w
na.rm
named two element vector
## Not run: set.seed(1) x <- rvm(100, 0, 5) mean_SC(x) ## End(Not run)
Useful links