#' @export
nkbc63 <- list(
code = "nkbc63",
kortnamn = "nkbc_pat_her2ich3amp_63",
lab =
c(
sv = "Ampl (ISH) HER2"
),
lab_short_w_pop =
c(
sv = "Ampl (ISH) HER2 bland IHC HER2 3+"
),
pop =
c(
sv = "invasiva fall som är IHC HER2 3+"
),
filter_pop = function(x, ...) {
dplyr::filter(
x,
# Enbart fall med invasiv cancer
d_invasiv_Varde == 1,
# IHC HER2 3+
d_her2ihc_Varde == 3
)
},
mutate_outcome = function(x, ...) {
dplyr::mutate(
x,
outcome = dplyr::case_when(
d_her2ish_Varde == 1L ~ TRUE,
d_her2ish_Varde == 2L ~ FALSE,
d_her2ish_Varde %in% c(97L, 98L, NA_integer_) ~ NA
)
)
},
period_dat_var = "a_diag_dat",
sjhkod_var = "d_pat_sjhkod",
other_vars = c("a_pat_alder", "d_screening"),
om_indikatorn = NULL,
vid_tolkning = NULL,
teknisk_beskrivning = NULL
)
class(nkbc63) <- "nkbcind"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.