title: "Data for models information" output: html_document


Participants in training and testing splits

glue::glue(
"**training dataset contains {
  nrow(targets::tar_read(training))
  } observations from {
    targets::tar_read(training) |>
                 dplyr::distinct(id) |>
                 nrow()
                 } patients across {
                   targets::tar_read(training) |>
                 dplyr::distinct(hospitalid) |>
                 nrow()
                 } hospitals**"
                 )

Baseline metric for comparison

The predictions need to be better than just passing in the 'pre' sbp as a prediction - we'll call this the baseline.

glue::glue("
RMSE to beat for training data is {
  round(targets::tar_read(baselinetraining)$.estimate[[1]], 2)
}
")


awconway/eicu_nitro documentation built on Feb. 21, 2022, 4:35 p.m.