View source: R/utlede_ventetider.R
legg_til_ventetid_stemi_min | R Documentation |
Antall minutter fra beslutningsutløsende EKG til arteriepunksjon. Dersom en av datoene/tidspunktene mangler kan ikke ventetiden regnes ut. Ingen filter paa unormalt lange eller negative, ventetider. Dette er en hjelpefunksjon til ki_stemi_pci_innen120min, ventetidene må ikke analyseres utenfor denne funksjonen da datagrunnlaget defineres der.
legg_til_ventetid_stemi_min(df_ap)
df_ap |
tabellen med AngioPCI data fra NORIC. Maa inneholde variablene
|
returnerer df_ap
med en ny kolonne:
ventetid_stemi_minutter
x <- data.frame(
ProsedyreDato = as.Date(c("2020-01-30", "2021-11-15",
"2020-11-11", "2021-12-24"),
format = "%Y-%m-%d"),
ProsedyreTid = c("22:30:00", "01:10:00", "13:45:00", "12:20:00"),
BeslEKGDato = as.Date(c("2020-01-30",
"2021-11-14",
NA_character_,
"2020-01-01"),
format = "%Y-%m-%d"),
BeslEKGTid = c("21:10:00",
"23:10:00",
NA_character_,
NA_character_),
BesUtlEKGDato = as.Date(c(NA_character_,
"2021-11-14",
"2020-11-11",
NA_character_),
format = "%Y-%m-%d"),
BesUtlEKGTid = c(NA_character_,
"20:00:00",
"09:45:00",
NA_character_),
BeslutningsutlosendeEKG = rep("Ved annet sykehus", 4))
noric::legg_til_ventetid_stemi_min(x)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.