cat('\n ',paste0('Validation on ', result$database), '\n')

Attrition

data <- result$attrition %>%
  dplyr::select(-"performanceId")

  kableDark(data = data)

Summary

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)

Plots

add roc and smooth cal plots here

Covariates

data <- result$covariate_summary %>%
  dplyr::select(
    c(
    "covariateName", 
    "covariateValue",
    "covariateCount",
    "withNoOutcomeCovariateMean",
    "withOutcomeCovariateMean",
    "standardizedMeanDiff"
    )
    )
kableDark(data = data)


Try the OhdsiReportGenerator package in your browser

Any scripts or data that you put into this service are public.

OhdsiReportGenerator documentation built on April 12, 2025, 2:09 a.m.