R/02-DimensionReduction-H-ADStatExtract.R

#*******HIDE THIS
ADStatExtract <- function(statList){
  extractedStatistic <- lapply(1:length(statList)
                               , function(listIndex){
                                 statistic <- statList[[listIndex]]$statistic["AD"]
                                 return(statistic)
                               }
  )
  
  extractedStatistic <- unlist(extractedStatistic)
  return(extractedStatistic)
}
erolbicero/propfolio documentation built on May 16, 2019, 8:48 a.m.