R/emp_var_function.R

In LauraMasiero/RiemannR: RiemannR - EEG-based BCI analysis with Riemannian geometry

Defines functions eta emp_var_function

Documented in emp_var_function

emp_var_function <- function(mu, scm_list) {
  P <- length(scm_list)
  P^(-1)*Reduce("+",lapply(scm_list, function(x) RaoDist(x, mu)))
}

eta <- function(sigma) {
  -1/(2*sigma^2)
}