inst/sigmahat_ls.R

sigmaHat_ls <- function(lambda, gamma) {
  list <- lapply(names(covs_ls), function(x){
    covsRDA_names(x, lambda, gamma) %>%
      data.frame %>%
      as.matrix
  })
  names(list) <- names(covs_ls)
  list
}
BenBarnard/slidR documentation built on Jan. 2, 2018, 4:32 p.m.