R/internallassoenetsim2.R

Defines functions SE.resample

Documented in SE.resample

#' Internal lassoenet simulation function
#'
#' Internal lassoenet simulation function
#'
#' @param vector.result A vector of simluation results
#'
#' @section Details: This function calculates the standard error.
#'
#' @author Mokyo Zhou
#'
#' @export
#'



SE.resample <- function(vector.result){
  result <- as.numeric()

  for(i in 1:500){
    result[i] <- mean(sample(vector.result,length(vector.result),T))
  }


  return(list(stats::sd(result)))
}
MokyoZhou/lassoenet documentation built on May 20, 2019, 11:38 a.m.