R/cigar_tablet.R

Defines functions cigar_tablet

Documented in cigar_tablet

cigar_tablet <- function(x) {
  d <- length(x)
  return(x[1]^2 + sum(x[2:(d-1)]^2 * 10^4) + x[d]^2 * 10^8)
}

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.