R/squaredIntEstim.R

In sensitivity: Global Sensitivity Analysis of Model Outputs

Defines functions squaredIntEstim

Documented in squaredIntEstim

squaredIntEstim <- function(x, method = "unbiased"){
  res <- (mean(x))^2
  if (method == "unbiased"){  
    n <- length(x)
    res <- res - var(x)/n
  }
  return(res)
}

Try the sensitivity package in your browser