data(bushfirem, bushfire.weights)
det.res <- TRC(bushfirem, weight = bushfire.weights)
imp.res <- Winsimp(bushfirem, det.res$output$center, det.res$output$scatter, det.res$outind)
print(imp.res$output)
Run the code above in your browser using DataLab