# NOT RUN {
nSamples <- 10
nFeatures <- 20
data.matrix <- matrix( stats::runif(n=nFeatures*nSamples, min=0,max=100),
ncol = nFeatures, nrow = nSamples)
responseVec <- c( rep(0,nSamples/2), rep(1,nSamples/2) )
p_values <- relevant.features.p(datamatrix = data.matrix, response =
responseVec, p.adj = 'none')
p_values_adjusted <- relevant.features.p( datamatrix = data.matrix,
response = responseVec, p.adj = 'bonferroni')
# }
Run the code above in your browser using DataLab