R/cov_betahat_adjust.R

In SSN2: Spatial Modeling on Stream Networks

cov_betahat_adjust <- function(invcov_betahat_list, betahat_list,
                               betahat, eigenprods_list, data_object, params_object,
                               cov_betahat_noadjust, var_adjust) {
  # for now before local implemented
  var_adjust <- "none"
  cov_betahat_adjust_val <- cov_betahat_noadjust
  cov_betahat_adjust_val
}