R/varianceEstimator/var_est_brhs6.R

In RamboWANG/RegularizedCrossValidation: Provides several types of regularized cross-validation methods.

# 具有四次切分的BRHS估计的方差估计。


var_est_brhs6.EstForOneExpr <- function(mu, veConf) {
  if(length(mu) != 7) stop("Length of mu is not correct.")
  mu.vec <- mu[1:6]
  mu.diff <- mu[7]
  ve.val <- 0
  for(idx in 1:6) {
    ve.val <- ve.val + (mu.vec[idx]-mu.diff)^2
  }
  ve.val <- (7.0/60)* ve.val
  return(ve.val)
}

var_est_brhs6.validation <- function(veConf) {
  return(TRUE)
}