Nothing
extract_features_rf_boruta <-
function(res,SUBDIR=NULL) {
featmat <- extract_feat_boruta(res)
featmat_aligned <- align_feat_boruta(res)
if(!is.null(SUBDIR)) {
write.csv(featmat, file=paste(SUBDIR, "featurematrix.csv", sep="/"))
write.csv(featmat_aligned, file=paste(SUBDIR, "featurematrix_aligned.csv", sep="/"))
}
invisible(list(featmat=featmat, featmat_aligned=featmat_aligned))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.