R/ellipsoid.R

Defines functions ellipsoid

Documented in ellipsoid

ellipsoid <- function(x) {
  d <- length(x)
  return(sum(sapply(1:d, function(i) 10^(6 * (i-1) / (d-1)) * x[i]^2)))
}

Try the EEEA package in your browser

Any scripts or data that you put into this service are public.

EEEA documentation built on June 10, 2025, 9:13 a.m.