boruta_signif <-names(boruta_output_Boruta$finalDecision[boruta_output_Boruta$finalDecision %in% c("Confirmed", "Tentative")])
print(boruta_signif)

#Plot:
plot(boruta_output_Boruta, cex.axis=.7, las=2, xlab="", main="Variable Importance")