Feature selection using lasso or elastic network
Examples
library(dplyr)
meta_dat1 <- t(meta_dat) %>%
as.data.frame() %>%
dplyr::mutate(group=group)
result_ML_lasso <- ML_alpha(meta_dat1, method="lasso")
#> Loading required package: ggplot2
#> Loading required package: lattice
result_ML_lasso
#> feature s1
#> 1 C02045 0.382767479
#> 2 C00073 -0.035166629
#> 3 C00022 0.091768275
#> 4 C00255 -0.002267242