Nothing
cat('\n ',paste0('Validation on ', result$database), '\n')
data <- result$attrition %>% dplyr::select(-"performanceId") kableDark(data = data)
data <- result$evaluation_statistics %>% dplyr::select(-"performanceId") %>% tidyr::pivot_wider( id_cols = "metric", #.data$metric, names_from = "evaluation", #.data$evaluation, values_from = "value" #.data$value ) kableDark(data = data)
add roc and smooth cal plots here
data <- result$covariate_summary %>% dplyr::select( c( "covariateName", "covariateValue", "covariateCount", "withNoOutcomeCovariateMean", "withOutcomeCovariateMean", "standardizedMeanDiff" ) ) kableDark(data = data)
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.