########### Computation the importace of all vaiables in raw count table and ordered it by the importance ########
dataTable <- rawCounts$Counts
classes <- studyCases$classes
#### The computation of the variables importance by Random forest, and ordered it by the most importance ####
# n <- nrow(rawCounts$Counts) ## Number of observations (samples)
# trainingProportion <- 0.66
# train.size <- round(n * parameters$trainingProportion)
#
# ## Random selection of indices for the training set
# trainIndex <- sort(sample(1:n, size=train.size))
# ## Use remaining indices for the testing set
# testIndex <- setdiff(1:n, trainIndex)
message.with.time("The computation of the variables importance by Random forest, and ordered it by the most importance")
rf.model <- randomForest(
x = dataTable,
y = as.factor( classes),
xtest = dataTable, importance = T, keep.forest = T)
variable.importance <- importance(rf.model,type = 1,scale = F)
#variable.importance[,1]
ordered.varaible.importance <-order(variable.importance[,1],decreasing = T)
ordered.dataTable.by.importace <-dataTable[, ordered.varaible.importance]
sig.variables <- round(ncol(ordered.dataTable.by.importace) * 0.75)
ordered.dataTable.by.importance <- ordered.dataTable.by.importace[, 1:sig.variables]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.