Nothing
knitr::opts_chunk$set(echo=FALSE) library(ggplot2) library(stringr) library(flextable)
Statistics of Variable Selection:
params$modelSelection nmetric <- length(unlist(str_split(params$modelSelection[[1]][3,2], "&"))) strategies <- length(unlist(str_split(params$modelSelection[[1]][2,2], "&")))
Visualization of Variable Selection:
for(i in names(params$selectionPlot)) { print(i) print(plot_grid(plotlist = c( rev(params$selectionPlot[[i]])), ncol = 1, rel_heights = c(1, as.numeric(params$relValue)))) }
Model Selection by Vote Across All Combinations of Strategy and Metric:
flextable(params$modelVote)
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.