# NOT RUN {
filename <- system.file("extdata", "exampleData.csv", package = "TSGS")
cdata <- read.csv(filename, header = TRUE, row.names = 1, stringsAsFactors = FALSE)
X <- as.data.frame(cdata[-1,])
y <- as.numeric(cdata[1,])
set.seed(100)
result <- featureSelect(X, y, 5, 1, 0.05, "bonferroni")
gene_list <- result$InformativeGenes
logcpm_data <- result$LogCPM
dea_result <- result$DEA_Result
# }
Run the code above in your browser using DataLab