2022-08-21 16:59:35 +02:00
<!DOCTYPE html>
2024-11-21 10:17:08 +01:00
<!-- Generated by pkgdown: do not edit by hand --> < html lang = "en" > < head > < meta http-equiv = "Content-Type" content = "text/html; charset=UTF-8" > < meta charset = "utf-8" > < meta http-equiv = "X-UA-Compatible" content = "IE=edge" > < meta name = "viewport" content = "width=device-width, initial-scale=1, shrink-to-fit=no" > < title > Determine Clinical or Epidemic Episodes — get_episode • AMR (for R)< / title > <!-- favicons --> < link rel = "icon" type = "image/png" sizes = "16x16" href = "../favicon-16x16.png" > < link rel = "icon" type = "image/png" sizes = "32x32" href = "../favicon-32x32.png" > < link rel = "apple-touch-icon" type = "image/png" sizes = "180x180" href = "../apple-touch-icon.png" > < link rel = "apple-touch-icon" type = "image/png" sizes = "120x120" href = "../apple-touch-icon-120x120.png" > < link rel = "apple-touch-icon" type = "image/png" sizes = "76x76" href = "../apple-touch-icon-76x76.png" > < link rel = "apple-touch-icon" type = "image/png" sizes = "60x60" href = "../apple-touch-icon-60x60.png" > < script src = "../deps/jquery-3.6.0/jquery-3.6.0.min.js" > < / script > < meta name = "viewport" content = "width=device-width, initial-scale=1, shrink-to-fit=no" > < link href = "../deps/bootstrap-5.3.1/bootstrap.min.css" rel = "stylesheet" > < script src = "../deps/bootstrap-5.3.1/bootstrap.bundle.min.js" > < / script > < link href = "../deps/Lato-0.4.9/font.css" rel = "stylesheet" > < link href = "../deps/Fira_Code-0.4.9/font.css" rel = "stylesheet" > < link href = "../deps/font-awesome-6.5.2/css/all.min.css" rel = "stylesheet" > < link href = "../deps/font-awesome-6.5.2/css/v4-shims.min.css" rel = "stylesheet" > < script src = "../deps/headroom-0.11.0/headroom.min.js" > < / script > < script src = "../deps/headroom-0.11.0/jQuery.headroom.min.js" > < / script > < script src = "../deps/bootstrap-toc-1.0.1/bootstrap-toc.min.js" > < / script > < script src = "../deps/clipboard.js-2.0.11/clipboard.min.js" > < / script > < script src = "../deps/search-1.0.0/autocomplete.jquery.min.js" > < / script > < script src = "../deps/search-1.0.0/fuse.min.js" > < / script > < script src = "../deps/search-1.0.0/mark.min.js" > < / script > <!-- pkgdown --> < script src = "../pkgdown.js" > < / script > < link href = "../extra.css" rel = "stylesheet" > < script src = "../extra.js" > < / script > < meta property = "og:title" content = "Determine Clinical or Epidemic Episodes — get_episode" > < meta name = "description" content = "These functions determine which items in a vector can be considered (the start of) a new episode. This can be used to determine clinical episodes for any epidemiological analysis. The get_episode() function returns the index number of the episode per group, while the is_new_episode() function returns TRUE for every new get_episode() index. Both absolute and relative episode determination are supported." > < meta property = "og:description" content = "These functions determine which items in a vector can be considered (the start of) a new episode. This can be used to determine clinical episodes for any epidemiological analysis. The get_episode() function returns the index number of the episode per group, while the is_new_episode() function returns TRUE for every new get_episode() index. Both absolute and relative episode determination are supported." > < meta property = "og:image" content = "https://msberends.github.io/AMR/logo.svg" > < / head > < body >
2022-08-21 16:59:35 +02:00
< a href = "#main" class = "visually-hidden-focusable" > Skip to contents< / a >
2024-07-16 15:00:55 +02:00
< nav class = "navbar navbar-expand-lg fixed-top bg-primary" data-bs-theme = "dark" aria-label = "Site navigation" > < div class = "container" >
2022-08-21 16:59:35 +02:00
< a class = "navbar-brand me-2" href = "../index.html" > AMR (for R)< / a >
2024-12-20 11:03:24 +01:00
< small class = "nav-text text-muted me-auto" data-bs-toggle = "tooltip" data-bs-placement = "bottom" title = "" > 2.1.1.9122< / small >
2024-07-16 15:00:55 +02:00
2022-08-21 16:59:35 +02:00
< button class = "navbar-toggler" type = "button" data-bs-toggle = "collapse" data-bs-target = "#navbar" aria-controls = "navbar" aria-expanded = "false" aria-label = "Toggle navigation" >
< span class = "navbar-toggler-icon" > < / span >
< / button >
< div id = "navbar" class = "collapse navbar-collapse ms-3" >
2023-05-24 16:03:18 +02:00
< ul class = "navbar-nav me-auto" > < li class = "nav-item dropdown" >
2024-07-16 15:00:55 +02:00
< button class = "nav-link dropdown-toggle" type = "button" id = "dropdown-how-to" data-bs-toggle = "dropdown" aria-expanded = "false" aria-haspopup = "true" > < span class = "fa fa-question-circle" > < / span > How to< / button >
< ul class = "dropdown-menu" aria-labelledby = "dropdown-how-to" > < li > < a class = "dropdown-item" href = "../articles/AMR.html" > < span class = "fa fa-directions" > < / span > Conduct AMR Analysis< / a > < / li >
< li > < a class = "dropdown-item" href = "../reference/antibiogram.html" > < span class = "fa fa-file-prescription" > < / span > Generate Antibiogram (Trad./Syndromic/WISCA)< / a > < / li >
< li > < a class = "dropdown-item" href = "../articles/resistance_predict.html" > < span class = "fa fa-dice" > < / span > Predict Antimicrobial Resistance< / a > < / li >
< li > < a class = "dropdown-item" href = "../articles/datasets.html" > < span class = "fa fa-database" > < / span > Download Data Sets for Own Use< / a > < / li >
2024-12-19 20:25:10 +01:00
< li > < a class = "dropdown-item" href = "../articles/AMR_with_tidymodels.html" > < span class = "fa fa-square-root-variable" > < / span > Use AMR for Predictive Modelling (tidymodels)< / a > < / li >
2024-07-16 15:00:55 +02:00
< li > < a class = "dropdown-item" href = "../reference/AMR-options.html" > < span class = "fa fa-gear" > < / span > Set User- Or Team-specific Package Settings< / a > < / li >
< li > < a class = "dropdown-item" href = "../articles/PCA.html" > < span class = "fa fa-compress" > < / span > Conduct Principal Component Analysis for AMR< / a > < / li >
< li > < a class = "dropdown-item" href = "../articles/MDR.html" > < span class = "fa fa-skull-crossbones" > < / span > Determine Multi-Drug Resistance (MDR)< / a > < / li >
< li > < a class = "dropdown-item" href = "../articles/WHONET.html" > < span class = "fa fa-globe-americas" > < / span > Work with WHONET Data< / a > < / li >
< li > < a class = "dropdown-item" href = "../articles/EUCAST.html" > < span class = "fa fa-exchange-alt" > < / span > Apply Eucast Rules< / a > < / li >
< li > < a class = "dropdown-item" href = "../reference/mo_property.html" > < span class = "fa fa-bug" > < / span > Get Taxonomy of a Microorganism< / a > < / li >
< li > < a class = "dropdown-item" href = "../reference/ab_property.html" > < span class = "fa fa-capsules" > < / span > Get Properties of an Antibiotic Drug< / a > < / li >
< li > < a class = "dropdown-item" href = "../reference/av_property.html" > < span class = "fa fa-capsules" > < / span > Get Properties of an Antiviral Drug< / a > < / li >
< / ul > < / li >
2024-09-30 22:12:21 +02:00
< li class = "nav-item" > < a class = "nav-link" href = "../articles/AMR_for_Python.html" > < span class = "fa fab fa-python" > < / span > AMR for Python< / a > < / li >
2024-07-16 15:00:55 +02:00
< li class = "active nav-item" > < a class = "nav-link" href = "../reference/index.html" > < span class = "fa fa-book-open" > < / span > Manual< / a > < / li >
< li class = "nav-item" > < a class = "nav-link" href = "../authors.html" > < span class = "fa fa-users" > < / span > Authors< / a > < / li >
< / ul > < ul class = "navbar-nav" > < li class = "nav-item" > < a class = "nav-link" href = "../news/index.html" > < span class = "fa far fa-newspaper" > < / span > Changelog< / a > < / li >
< li class = "nav-item" > < a class = "external-link nav-link" href = "https://github.com/msberends/AMR" > < span class = "fa fab fa-github" > < / span > Source Code< / a > < / li >
2022-08-21 16:59:35 +02:00
< / ul > < / div >
2024-07-16 15:00:55 +02:00
2022-08-21 16:59:35 +02:00
< / div >
< / nav > < div class = "container template-reference-topic" >
< div class = "row" >
< main id = "main" class = "col-md-9" > < div class = "page-header" >
2023-03-11 17:02:25 +01:00
< img src = "../logo.svg" class = "logo" alt = "" > < h1 > Determine Clinical or Epidemic Episodes< / h1 >
2024-07-16 15:00:55 +02:00
< small class = "dont-index" > Source: < a href = "https://github.com/msberends/AMR/blob/main/R/get_episode.R" class = "external-link" > < code > R/get_episode.R< / code > < / a > < / small >
2022-08-21 16:59:35 +02:00
< div class = "d-none name" > < code > get_episode.Rd< / code > < / div >
< / div >
< div class = "ref-description section level2" >
2023-02-24 20:02:09 +01:00
< p > These functions determine which items in a vector can be considered (the start of) a new episode. This can be used to determine clinical episodes for any epidemiological analysis. The < code > get_episode()< / code > function returns the index number of the episode per group, while the < code > is_new_episode()< / code > function returns < code > TRUE< / code > for every new < code > get_episode()< / code > index. Both absolute and relative episode determination are supported.< / p >
2022-08-21 16:59:35 +02:00
< / div >
< div class = "section level2" >
< h2 id = "ref-usage" > Usage< a class = "anchor" aria-label = "anchor" href = "#ref-usage" > < / a > < / h2 >
2023-02-24 17:15:07 +01:00
< div class = "sourceCode" > < pre class = "sourceCode r" > < code > < span > < span class = "fu" > get_episode< / span > < span class = "op" > (< / span > < span class = "va" > x< / span > , episode_days < span class = "op" > =< / span > < span class = "cn" > NULL< / span > , case_free_days < span class = "op" > =< / span > < span class = "cn" > NULL< / span > , < span class = "va" > ...< / span > < span class = "op" > )< / span > < / span >
2022-08-21 16:59:35 +02:00
< span > < / span >
2023-02-24 17:15:07 +01:00
< span > < span class = "fu" > is_new_episode< / span > < span class = "op" > (< / span > < span class = "va" > x< / span > , episode_days < span class = "op" > =< / span > < span class = "cn" > NULL< / span > , case_free_days < span class = "op" > =< / span > < span class = "cn" > NULL< / span > , < span class = "va" > ...< / span > < span class = "op" > )< / span > < / span > < / code > < / pre > < / div >
2022-08-21 16:59:35 +02:00
< / div >
< div class = "section level2" >
< h2 id = "arguments" > Arguments< a class = "anchor" aria-label = "anchor" href = "#arguments" > < / a > < / h2 >
2024-07-16 15:00:55 +02:00
< dl > < dt id = "arg-x" > x< a class = "anchor" aria-label = "anchor" href = "#arg-x" > < / a > < / dt >
2022-08-21 16:59:35 +02:00
< dd > < p > vector of dates (class < code > Date< / code > or < code > POSIXt< / code > ), will be sorted internally to determine episodes< / p > < / dd >
2024-07-16 15:00:55 +02:00
< dt id = "arg-episode-days" > episode_days< a class = "anchor" aria-label = "anchor" href = "#arg-episode-days" > < / a > < / dt >
2023-02-24 20:02:09 +01:00
< dd > < p > episode length in days to specify the time period after which a new episode begins, can also be less than a day or < code > Inf< / code > , see < em > Details< / em > < / p > < / dd >
2023-02-24 17:15:07 +01:00
2024-07-16 15:00:55 +02:00
< dt id = "arg-case-free-days" > case_free_days< a class = "anchor" aria-label = "anchor" href = "#arg-case-free-days" > < / a > < / dt >
2023-02-24 20:02:09 +01:00
< dd > < p > (inter-epidemic) interval length in days after which a new episode will start, can also be less than a day or < code > Inf< / code > , see < em > Details< / em > < / p > < / dd >
2022-08-21 16:59:35 +02:00
2024-07-16 15:00:55 +02:00
< dt id = "arg--" > ...< a class = "anchor" aria-label = "anchor" href = "#arg--" > < / a > < / dt >
2022-08-21 16:59:35 +02:00
< dd > < p > ignored, only in place to allow future extensions< / p > < / dd >
< / dl > < / div >
< div class = "section level2" >
< h2 id = "value" > Value< a class = "anchor" aria-label = "anchor" href = "#value" > < / a > < / h2 >
2023-02-12 15:18:14 +01:00
< ul > < li > < p > < code > get_episode()< / code > : an < a href = "https://rdrr.io/r/base/integer.html" class = "external-link" > integer< / a > vector< / p > < / li >
2022-08-21 16:59:35 +02:00
< li > < p > < code > is_new_episode()< / code > : a < a href = "https://rdrr.io/r/base/logical.html" class = "external-link" > logical< / a > vector< / p > < / li >
< / ul > < / div >
< div class = "section level2" >
< h2 id = "details" > Details< a class = "anchor" aria-label = "anchor" href = "#details" > < / a > < / h2 >
2023-02-24 17:15:07 +01:00
< p > Episodes can be determined in two ways: absolute and relative.< / p > < ol > < li > < p > Absolute< / p >
< p > This method uses < code > episode_days< / code > to define an episode length in days, after which a new episode will start. A common use case in AMR data analysis is microbial epidemiology: episodes of < em > S. aureus< / em > bacteraemia in ICU patients for example. The episode length could then be 30 days, so that new < em > S. aureus< / em > isolates after an ICU episode of 30 days will be considered a different (or new) episode.< / p >
< p > Thus, this method counts < strong > since the start of the previous episode< / strong > .< / p > < / li >
< li > < p > Relative< / p >
2023-02-24 20:02:09 +01:00
< p > This method uses < code > case_free_days< / code > to quantify the duration of case-free days (the inter-epidemic interval), after which a new episode will start. A common use case is infectious disease epidemiology: episodes of norovirus outbreaks in a hospital for example. The case-free period could then be 14 days, so that new norovirus cases after that time will be considered a different (or new) episode.< / p >
2023-02-24 17:15:07 +01:00
< p > Thus, this methods counts < strong > since the last case in the previous episode< / strong > .< / p > < / li >
2023-02-24 20:02:09 +01:00
< / ol > < p > In a table:< / p > < table class = "table table" > < tr > < td > Date< / td > < td > Using < code > episode_days = 7< / code > < / td > < td > Using < code > case_free_days = 7< / code > < / td > < / tr > < tr > < td > 2023-01-01< / td > < td > 1< / td > < td > 1< / td > < / tr > < tr > < td > 2023-01-02< / td > < td > 1< / td > < td > 1< / td > < / tr > < tr > < td > 2023-01-05< / td > < td > 1< / td > < td > 1< / td > < / tr > < tr > < td > 2023-01-08< / td > < td > 2**< / td > < td > 1< / td > < / tr > < tr > < td > 2023-02-21< / td > < td > 3< / td > < td > 2***< / td > < / tr > < tr > < td > 2023-02-22< / td > < td > 3< / td > < td > 2< / td > < / tr > < tr > < td > 2023-02-23< / td > < td > 3< / td > < td > 2< / td > < / tr > < tr > < td > 2023-02-24< / td > < td > 3< / td > < td > 2< / td > < / tr > < tr > < td > 2023-03-01< / td > < td > 4< / td > < td > 2< / td > < / tr > < / table > < p > ** This marks the start of a new episode, because 8 January 2023 is more than 7 days since the start of the previous episode (1 January 2023). < br >
*** This marks the start of a new episode, because 21 January 2023 is more than 7 days since the last case in the previous episode (8 January 2023).< / p >
< p > Either < code > episode_days< / code > or < code > case_free_days< / code > must be provided in the function.< / p > < div class = "section" >
2023-02-24 17:15:07 +01:00
< h3 id = "difference-between-get-episode-and-is-new-episode-" > Difference between < code > get_episode()< / code > and < code > is_new_episode()< / code > < a class = "anchor" aria-label = "anchor" href = "#difference-between-get-episode-and-is-new-episode-" > < / a > < / h3 >
< p > The < code > get_episode()< / code > function returns the index number of the episode, so all cases/patients/isolates in the first episode will have the number 1, all cases/patients/isolates in the second episode will have the number 2, etc.< / p >
2023-03-11 17:02:25 +01:00
< p > The < code > is_new_episode()< / code > function on the other hand, returns < code > TRUE< / code > for every new < code > get_episode()< / code > index.< / p >
2023-02-24 17:15:07 +01:00
< p > To specify, when setting < code > episode_days = 365< / code > (using method 1 as explained above), this is how the two functions differ:< / p > < table class = "table table" > < tr > < td > patient< / td > < td > date< / td > < td > < code > get_episode()< / code > < / td > < td > < code > is_new_episode()< / code > < / td > < / tr > < tr > < td > A< / td > < td > 2019-01-01< / td > < td > 1< / td > < td > TRUE< / td > < / tr > < tr > < td > A< / td > < td > 2019-03-01< / td > < td > 1< / td > < td > FALSE< / td > < / tr > < tr > < td > A< / td > < td > 2021-01-01< / td > < td > 2< / td > < td > TRUE< / td > < / tr > < tr > < td > B< / td > < td > 2008-01-01< / td > < td > 1< / td > < td > TRUE< / td > < / tr > < tr > < td > B< / td > < td > 2008-01-01< / td > < td > 1< / td > < td > FALSE< / td > < / tr > < tr > < td > C< / td > < td > 2020-01-01< / td > < td > 1< / td > < td > TRUE< / td > < / tr > < / table > < / div >
< div class = "section" >
< h3 id = "other" > Other< a class = "anchor" aria-label = "anchor" href = "#other" > < / a > < / h3 >
2022-08-21 16:59:35 +02:00
< p > The < code > < a href = "first_isolate.html" > first_isolate()< / a > < / code > function is a wrapper around the < code > is_new_episode()< / code > function, but is more efficient for data sets containing microorganism codes or names and allows for different isolate selection methods.< / p >
2023-02-08 17:01:47 +01:00
< p > The < code > dplyr< / code > package is not required for these functions to work, but these episode functions do support < a href = "https://dplyr.tidyverse.org/reference/group_by.html" class = "external-link" > variable grouping< / a > and work conveniently inside < code > dplyr< / code > verbs such as < code > < a href = "https://dplyr.tidyverse.org/reference/filter.html" class = "external-link" > filter()< / a > < / code > , < code > < a href = "https://dplyr.tidyverse.org/reference/mutate.html" class = "external-link" > mutate()< / a > < / code > and < code > < a href = "https://dplyr.tidyverse.org/reference/summarise.html" class = "external-link" > summarise()< / a > < / code > .< / p >
2023-02-24 17:15:07 +01:00
< / div >
2022-08-21 16:59:35 +02:00
< / div >
< div class = "section level2" >
< h2 id = "see-also" > See also< a class = "anchor" aria-label = "anchor" href = "#see-also" > < / a > < / h2 >
< div class = "dont-index" > < p > < code > < a href = "first_isolate.html" > first_isolate()< / a > < / code > < / p > < / div >
< / div >
< div class = "section level2" >
< h2 id = "ref-examples" > Examples< a class = "anchor" aria-label = "anchor" href = "#ref-examples" > < / a > < / h2 >
2023-02-24 17:15:07 +01:00
< div class = "sourceCode" > < pre class = "sourceCode r" > < code > < span class = "r-in" > < span > < span class = "co" > # difference between absolute and relative determination of episodes:< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "va" > x< / span > < span class = "op" > < -< / span > < span class = "fu" > < a href = "https://rdrr.io/r/base/data.frame.html" class = "external-link" > data.frame< / a > < / span > < span class = "op" > (< / span > dates < span class = "op" > =< / span > < span class = "fu" > < a href = "https://rdrr.io/r/base/as.Date.html" class = "external-link" > as.Date< / a > < / span > < span class = "op" > (< / span > < span class = "fu" > < a href = "https://rdrr.io/r/base/c.html" class = "external-link" > c< / a > < / span > < span class = "op" > (< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "st" > "2021-01-01"< / span > ,< / span > < / span >
< span class = "r-in" > < span > < span class = "st" > "2021-01-02"< / span > ,< / span > < / span >
< span class = "r-in" > < span > < span class = "st" > "2021-01-05"< / span > ,< / span > < / span >
< span class = "r-in" > < span > < span class = "st" > "2021-01-08"< / span > ,< / span > < / span >
< span class = "r-in" > < span > < span class = "st" > "2021-02-21"< / span > ,< / span > < / span >
< span class = "r-in" > < span > < span class = "st" > "2021-02-22"< / span > ,< / span > < / span >
< span class = "r-in" > < span > < span class = "st" > "2021-02-23"< / span > ,< / span > < / span >
< span class = "r-in" > < span > < span class = "st" > "2021-02-24"< / span > ,< / span > < / span >
< span class = "r-in" > < span > < span class = "st" > "2021-03-01"< / span > ,< / span > < / span >
< span class = "r-in" > < span > < span class = "st" > "2021-03-01"< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "op" > )< / span > < span class = "op" > )< / span > < span class = "op" > )< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "va" > x< / span > < span class = "op" > $< / span > < span class = "va" > absolute< / span > < span class = "op" > < -< / span > < span class = "fu" > get_episode< / span > < span class = "op" > (< / span > < span class = "va" > x< / span > < span class = "op" > $< / span > < span class = "va" > dates< / span > , episode_days < span class = "op" > =< / span > < span class = "fl" > 7< / span > < span class = "op" > )< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "va" > x< / span > < span class = "op" > $< / span > < span class = "va" > relative< / span > < span class = "op" > < -< / span > < span class = "fu" > get_episode< / span > < span class = "op" > (< / span > < span class = "va" > x< / span > < span class = "op" > $< / span > < span class = "va" > dates< / span > , case_free_days < span class = "op" > =< / span > < span class = "fl" > 7< / span > < span class = "op" > )< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "va" > x< / span > < / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > dates absolute relative< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > 1 2021-01-01 1 1< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > 2 2021-01-02 1 1< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > 3 2021-01-05 1 1< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > 4 2021-01-08 2 1< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > 5 2021-02-21 3 2< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > 6 2021-02-22 3 2< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > 7 2021-02-23 3 2< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > 8 2021-02-24 3 2< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > 9 2021-03-01 4 2< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > 10 2021-03-01 4 2< / span >
< span class = "r-in" > < span > < / span > < / span >
< span class = "r-in" > < span > < / span > < / span >
< span class = "r-in" > < span > < span class = "co" > # `example_isolates` is a data set available in the AMR package.< / span > < / span > < / span >
2022-08-21 16:59:35 +02:00
< span class = "r-in" > < span > < span class = "co" > # See ?example_isolates< / span > < / span > < / span >
2023-02-08 17:01:47 +01:00
< span class = "r-in" > < span > < span class = "va" > df< / span > < span class = "op" > < -< / span > < span class = "va" > example_isolates< / span > < span class = "op" > [< / span > < span class = "fu" > < a href = "https://rdrr.io/r/base/sample.html" class = "external-link" > sample< / a > < / span > < span class = "op" > (< / span > < span class = "fu" > < a href = "https://rdrr.io/r/base/seq.html" class = "external-link" > seq_len< / a > < / span > < span class = "op" > (< / span > < span class = "fl" > 2000< / span > < span class = "op" > )< / span > , size < span class = "op" > =< / span > < span class = "fl" > 100< / span > < span class = "op" > )< / span > , < span class = "op" > ]< / span > < / span > < / span >
2022-08-21 16:59:35 +02:00
< span class = "r-in" > < span > < / span > < / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > < span class = "fu" > get_episode< / span > < span class = "op" > (< / span > < span class = "va" > df< / span > < span class = "op" > $< / span > < span class = "va" > date< / span > , episode_days < span class = "op" > =< / span > < span class = "fl" > 60< / span > < span class = "op" > )< / span > < span class = "co" > # indices< / span > < / span > < / span >
2024-12-13 09:54:23 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [1] 41 37 28 7 11 41 48 47 3 1 32 8 1 1 28 15 28 31 25 27 20 38 33 4 45< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [26] 23 15 8 13 44 34 16 42 14 6 4 47 4 10 15 41 16 24 2 14 26 21 20 19 35< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [51] 18 17 11 43 17 15 17 2 22 21 20 10 31 9 30 12 22 18 47 11 30 16 5 46 36< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [76] 21 20 14 29 18 39 28 7 27 33 10 6 26 22 25 47 40 39 14 14 39 1 34 42 31< / span >
2022-08-21 16:59:35 +02:00
< span class = "r-in" > < span > < span class = "fu" > is_new_episode< / span > < span class = "op" > (< / span > < span class = "va" > df< / span > < span class = "op" > $< / span > < span class = "va" > date< / span > , episode_days < span class = "op" > =< / span > < span class = "fl" > 60< / span > < span class = "op" > )< / span > < span class = "co" > # TRUE/FALSE< / span > < / span > < / span >
2024-12-13 09:54:23 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [1] TRUE TRUE TRUE TRUE TRUE FALSE TRUE TRUE TRUE TRUE TRUE TRUE< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [13] FALSE FALSE FALSE TRUE FALSE TRUE TRUE TRUE TRUE TRUE TRUE TRUE< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [25] TRUE TRUE FALSE FALSE TRUE TRUE TRUE TRUE TRUE TRUE TRUE FALSE< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [37] FALSE FALSE TRUE FALSE FALSE FALSE TRUE TRUE FALSE TRUE TRUE FALSE< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [49] TRUE TRUE TRUE TRUE FALSE TRUE FALSE FALSE FALSE FALSE TRUE FALSE< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [61] FALSE FALSE FALSE TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [73] TRUE TRUE TRUE FALSE FALSE FALSE TRUE FALSE TRUE FALSE FALSE FALSE< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE< / span >
2024-06-16 21:00:31 +02:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [97] FALSE FALSE FALSE FALSE< / span >
2022-08-21 16:59:35 +02:00
< span class = "r-in" > < span > < / span > < / span >
< span class = "r-in" > < span > < span class = "co" > # filter on results from the third 60-day episode only, using base R< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "va" > df< / span > < span class = "op" > [< / span > < span class = "fu" > < a href = "https://rdrr.io/r/base/which.html" class = "external-link" > which< / a > < / span > < span class = "op" > (< / span > < span class = "fu" > get_episode< / span > < span class = "op" > (< / span > < span class = "va" > df< / span > < span class = "op" > $< / span > < span class = "va" > date< / span > , < span class = "fl" > 60< / span > < span class = "op" > )< / span > < span class = "op" > ==< / span > < span class = "fl" > 3< / span > < span class = "op" > )< / span > , < span class = "op" > ]< / span > < / span > < / span >
2024-02-13 13:53:34 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # A tibble: 1 × < / span > < / span >
2024-12-13 09:54:23 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > date patient age gender ward mo PEN OXA FLC AMX < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494; font-style: italic;" > < date> < / span > < span style = "color: #949494; font-style: italic;" > < chr> < / span > < span style = "color: #949494; font-style: italic;" > < dbl> < / span > < span style = "color: #949494; font-style: italic;" > < chr> < / span > < span style = "color: #949494; font-style: italic;" > < chr> < / span > < span style = "color: #949494; font-style: italic;" > < mo> < / span > < span style = "color: #949494; font-style: italic;" > < sir> < / span > < span style = "color: #949494; font-style: italic;" > < sir> < / span > < span style = "color: #949494; font-style: italic;" > < sir> < / span > < span style = "color: #949494; font-style: italic;" > < sir> < / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 1< / span > 2002-06-06 24D393 20 F Clinical B_ESCHR_COLI R NA NA NA < / span >
2023-05-26 19:31:22 +02:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # ℹ < sir> , AMP < sir> , TZP < sir> , CZO < sir> , FEP < sir> ,< / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # CXM < sir> , FOX < sir> , CTX < sir> , CAZ < sir> , CRO < sir> , GEN < sir> ,< / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # TOB < sir> , AMK < sir> , KAN < sir> , TMP < sir> , SXT < sir> , NIT < sir> ,< / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # FOS < sir> , LNZ < sir> , CIP < sir> , MFX < sir> , VAN < sir> , TEC < sir> ,< / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # TCY < sir> , TGC < sir> , DOX < sir> , ERY < sir> , CLI < sir> , AZM < sir> ,< / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # IPM < sir> , MEM < sir> , MTR < sir> , CHL < sir> , COL < sir> , MUP < sir> , RIF < sir> < / span > < / span >
2022-08-21 16:59:35 +02:00
< span class = "r-in" > < span > < / span > < / span >
< span class = "r-in" > < span > < span class = "co" > # the functions also work for less than a day, e.g. to include one per hour:< / span > < / span > < / span >
2023-02-12 17:20:08 +01:00
< span class = "r-in" > < span > < span class = "fu" > get_episode< / span > < span class = "op" > (< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://rdrr.io/r/base/c.html" class = "external-link" > c< / a > < / span > < span class = "op" > (< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://rdrr.io/r/base/Sys.time.html" class = "external-link" > Sys.time< / a > < / span > < span class = "op" > (< / span > < span class = "op" > )< / span > ,< / span > < / span >
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://rdrr.io/r/base/Sys.time.html" class = "external-link" > Sys.time< / a > < / span > < span class = "op" > (< / span > < span class = "op" > )< / span > < span class = "op" > +< / span > < span class = "fl" > 60< / span > < span class = "op" > *< / span > < span class = "fl" > 60< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "op" > )< / span > ,< / span > < / span >
< span class = "r-in" > < span > episode_days < span class = "op" > =< / span > < span class = "fl" > 1< / span > < span class = "op" > /< / span > < span class = "fl" > 24< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "op" > )< / span > < / span > < / span >
2022-08-21 16:59:35 +02:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [1] 1 2< / span >
< span class = "r-in" > < span > < / span > < / span >
< span class = "r-in" > < span > < span class = "co" > # \donttest{< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "kw" > if< / span > < span class = "op" > (< / span > < span class = "kw" > < a href = "https://rdrr.io/r/base/library.html" class = "external-link" > require< / a > < / span > < span class = "op" > (< / span > < span class = "st" > < a href = "https://dplyr.tidyverse.org" class = "external-link" > "dplyr"< / a > < / span > < span class = "op" > )< / span > < span class = "op" > )< / span > < span class = "op" > {< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "co" > # is_new_episode() can also be used in dplyr verbs to determine patient< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "co" > # episodes based on any (combination of) grouping variables:< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "va" > df< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/mutate.html" class = "external-link" > mutate< / a > < / span > < span class = "op" > (< / span > condition < span class = "op" > =< / span > < span class = "fu" > < a href = "https://rdrr.io/r/base/sample.html" class = "external-link" > sample< / a > < / span > < span class = "op" > (< / span > < / span > < / span >
< span class = "r-in" > < span > x < span class = "op" > =< / span > < span class = "fu" > < a href = "https://rdrr.io/r/base/c.html" class = "external-link" > c< / a > < / span > < span class = "op" > (< / span > < span class = "st" > "A"< / span > , < span class = "st" > "B"< / span > , < span class = "st" > "C"< / span > < span class = "op" > )< / span > ,< / span > < / span >
2023-02-12 15:18:14 +01:00
< span class = "r-in" > < span > size < span class = "op" > =< / span > < span class = "fl" > 100< / span > ,< / span > < / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > replace < span class = "op" > =< / span > < span class = "cn" > TRUE< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "op" > )< / span > < span class = "op" > )< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
2023-02-12 15:18:14 +01:00
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/group_by.html" class = "external-link" > group_by< / a > < / span > < span class = "op" > (< / span > < span class = "va" > patient< / span > , < span class = "va" > condition< / span > < span class = "op" > )< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
2022-08-21 16:59:35 +02:00
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/mutate.html" class = "external-link" > mutate< / a > < / span > < span class = "op" > (< / span > new_episode < span class = "op" > =< / span > < span class = "fu" > is_new_episode< / span > < span class = "op" > (< / span > < span class = "va" > date< / span > , < span class = "fl" > 365< / span > < span class = "op" > )< / span > < span class = "op" > )< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
2023-02-12 17:20:08 +01:00
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/select.html" class = "external-link" > select< / a > < / span > < span class = "op" > (< / span > < span class = "va" > patient< / span > , < span class = "va" > date< / span > , < span class = "va" > condition< / span > , < span class = "va" > new_episode< / span > < span class = "op" > )< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
2023-02-12 15:18:14 +01:00
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/arrange.html" class = "external-link" > arrange< / a > < / span > < span class = "op" > (< / span > < span class = "va" > patient< / span > , < span class = "va" > condition< / span > , < span class = "va" > date< / span > < span class = "op" > )< / span > < / span > < / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > < span class = "op" > }< / span > < / span > < / span >
2023-02-12 15:18:14 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # A tibble: 100 × < / span > < / span >
2024-12-13 09:54:23 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # Groups: patient, condition [99]< / span > < / span >
2023-02-12 15:18:14 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > patient date condition new_episode< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494; font-style: italic;" > < chr> < / span > < span style = "color: #949494; font-style: italic;" > < date> < / span > < span style = "color: #949494; font-style: italic;" > < chr> < / span > < span style = "color: #949494; font-style: italic;" > < lgl> < / span > < / span >
2024-12-13 09:54:23 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 1< / span > 006606 2011-10-30 A TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 2< / span > 059414 2006-07-21 C TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 3< / span > 066895 2002-02-27 C TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 4< / span > 067927 2002-01-16 A TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 5< / span > 0DBF93 2015-10-12 A TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 6< / span > 0F9638 2014-09-22 C TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 7< / span > 179451 2007-09-15 B TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 8< / span > 183220 2008-11-14 C TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 9< / span > 1D4C00 2011-04-04 B TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 10< / span > 218456 2003-09-26 C TRUE < / span >
2023-04-14 11:23:10 +02:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # ℹ < / span > < / span >
2023-02-08 17:01:47 +01:00
< span class = "r-in" > < span > < / span > < / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > < span class = "kw" > if< / span > < span class = "op" > (< / span > < span class = "kw" > < a href = "https://rdrr.io/r/base/library.html" class = "external-link" > require< / a > < / span > < span class = "op" > (< / span > < span class = "st" > < a href = "https://dplyr.tidyverse.org" class = "external-link" > "dplyr"< / a > < / span > < span class = "op" > )< / span > < span class = "op" > )< / span > < span class = "op" > {< / span > < / span > < / span >
2022-08-21 16:59:35 +02:00
< span class = "r-in" > < span > < span class = "va" > df< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/group_by.html" class = "external-link" > group_by< / a > < / span > < span class = "op" > (< / span > < span class = "va" > ward< / span > , < span class = "va" > patient< / span > < span class = "op" > )< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
2023-02-08 17:01:47 +01:00
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/transmute.html" class = "external-link" > transmute< / a > < / span > < span class = "op" > (< / span > < span class = "va" > date< / span > ,< / span > < / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > < span class = "va" > patient< / span > ,< / span > < / span >
< span class = "r-in" > < span > new_index < span class = "op" > =< / span > < span class = "fu" > get_episode< / span > < span class = "op" > (< / span > < span class = "va" > date< / span > , < span class = "fl" > 60< / span > < span class = "op" > )< / span > ,< / span > < / span >
< span class = "r-in" > < span > new_logical < span class = "op" > =< / span > < span class = "fu" > is_new_episode< / span > < span class = "op" > (< / span > < span class = "va" > date< / span > , < span class = "fl" > 60< / span > < span class = "op" > )< / span > < / span > < / span >
2023-02-12 17:20:08 +01:00
< span class = "r-in" > < span > < span class = "op" > )< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
2023-02-10 16:26:36 +01:00
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/arrange.html" class = "external-link" > arrange< / a > < / span > < span class = "op" > (< / span > < span class = "va" > patient< / span > , < span class = "va" > ward< / span > , < span class = "va" > date< / span > < span class = "op" > )< / span > < / span > < / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > < span class = "op" > }< / span > < / span > < / span >
2023-02-08 17:01:47 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # A tibble: 100 × < / span > < / span >
2024-12-13 09:54:23 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # Groups: ward, patient [94]< / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > ward date patient new_index new_logical< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494; font-style: italic;" > < chr> < / span > < span style = "color: #949494; font-style: italic;" > < date> < / span > < span style = "color: #949494; font-style: italic;" > < chr> < / span > < span style = "color: #949494; font-style: italic;" > < int> < / span > < span style = "color: #949494; font-style: italic;" > < lgl> < / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 1< / span > Clinical 2011-10-30 006606 1 TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 2< / span > Clinical 2006-07-21 059414 1 TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 3< / span > Clinical 2002-02-27 066895 1 TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 4< / span > ICU 2002-01-16 067927 1 TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 5< / span > Clinical 2015-10-12 0DBF93 1 TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 6< / span > Clinical 2014-09-22 0F9638 1 TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 7< / span > ICU 2007-09-15 179451 1 TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 8< / span > Clinical 2008-11-14 183220 1 TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 9< / span > Clinical 2011-04-04 1D4C00 1 TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 10< / span > Clinical 2003-09-26 218456 1 TRUE < / span >
2023-04-14 11:23:10 +02:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # ℹ < / span > < / span >
2023-02-08 17:01:47 +01:00
< span class = "r-in" > < span > < / span > < / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > < span class = "kw" > if< / span > < span class = "op" > (< / span > < span class = "kw" > < a href = "https://rdrr.io/r/base/library.html" class = "external-link" > require< / a > < / span > < span class = "op" > (< / span > < span class = "st" > < a href = "https://dplyr.tidyverse.org" class = "external-link" > "dplyr"< / a > < / span > < span class = "op" > )< / span > < span class = "op" > )< / span > < span class = "op" > {< / span > < / span > < / span >
2022-08-21 16:59:35 +02:00
< span class = "r-in" > < span > < span class = "va" > df< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/group_by.html" class = "external-link" > group_by< / a > < / span > < span class = "op" > (< / span > < span class = "va" > ward< / span > < span class = "op" > )< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/summarise.html" class = "external-link" > summarise< / a > < / span > < span class = "op" > (< / span > < / span > < / span >
< span class = "r-in" > < span > n_patients < span class = "op" > =< / span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/n_distinct.html" class = "external-link" > n_distinct< / a > < / span > < span class = "op" > (< / span > < span class = "va" > patient< / span > < span class = "op" > )< / span > ,< / span > < / span >
< span class = "r-in" > < span > n_episodes_365 < span class = "op" > =< / span > < span class = "fu" > < a href = "https://rdrr.io/r/base/sum.html" class = "external-link" > sum< / a > < / span > < span class = "op" > (< / span > < span class = "fu" > is_new_episode< / span > < span class = "op" > (< / span > < span class = "va" > date< / span > , episode_days < span class = "op" > =< / span > < span class = "fl" > 365< / span > < span class = "op" > )< / span > < span class = "op" > )< / span > ,< / span > < / span >
< span class = "r-in" > < span > n_episodes_60 < span class = "op" > =< / span > < span class = "fu" > < a href = "https://rdrr.io/r/base/sum.html" class = "external-link" > sum< / a > < / span > < span class = "op" > (< / span > < span class = "fu" > is_new_episode< / span > < span class = "op" > (< / span > < span class = "va" > date< / span > , episode_days < span class = "op" > =< / span > < span class = "fl" > 60< / span > < span class = "op" > )< / span > < span class = "op" > )< / span > ,< / span > < / span >
< span class = "r-in" > < span > n_episodes_30 < span class = "op" > =< / span > < span class = "fu" > < a href = "https://rdrr.io/r/base/sum.html" class = "external-link" > sum< / a > < / span > < span class = "op" > (< / span > < span class = "fu" > is_new_episode< / span > < span class = "op" > (< / span > < span class = "va" > date< / span > , episode_days < span class = "op" > =< / span > < span class = "fl" > 30< / span > < span class = "op" > )< / span > < span class = "op" > )< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "op" > )< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "op" > }< / span > < / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # A tibble: 3 × < / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > ward n_patients n_episodes_365 n_episodes_60 n_episodes_30< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494; font-style: italic;" > < chr> < / span > < span style = "color: #949494; font-style: italic;" > < int> < / span > < span style = "color: #949494; font-style: italic;" > < int> < / span > < span style = "color: #949494; font-style: italic;" > < int> < / span > < span style = "color: #949494; font-style: italic;" > < int> < / span > < / span >
2024-12-13 09:54:23 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 1< / span > Clinical 68 13 40 51< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 2< / span > ICU 22 9 17 19< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 3< / span > Outpatient 4 3 4 4< / span >
2023-02-10 16:26:36 +01:00
< span class = "r-in" > < span > < / span > < / span >
< span class = "r-in" > < span > < span class = "co" > # grouping on patients and microorganisms leads to the same< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "co" > # results as first_isolate() when using 'episode-based':< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "kw" > if< / span > < span class = "op" > (< / span > < span class = "kw" > < a href = "https://rdrr.io/r/base/library.html" class = "external-link" > require< / a > < / span > < span class = "op" > (< / span > < span class = "st" > < a href = "https://dplyr.tidyverse.org" class = "external-link" > "dplyr"< / a > < / span > < span class = "op" > )< / span > < span class = "op" > )< / span > < span class = "op" > {< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "va" > x< / span > < span class = "op" > < -< / span > < span class = "va" > df< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "fu" > < a href = "first_isolate.html" > filter_first_isolate< / a > < / span > < span class = "op" > (< / span > < / span > < / span >
< span class = "r-in" > < span > include_unknown < span class = "op" > =< / span > < span class = "cn" > TRUE< / span > ,< / span > < / span >
< span class = "r-in" > < span > method < span class = "op" > =< / span > < span class = "st" > "episode-based"< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "op" > )< / span > < / span > < / span >
< span class = "r-in" > < span > < / span > < / span >
< span class = "r-in" > < span > < span class = "va" > y< / span > < span class = "op" > < -< / span > < span class = "va" > df< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/group_by.html" class = "external-link" > group_by< / a > < / span > < span class = "op" > (< / span > < span class = "va" > patient< / span > , < span class = "va" > mo< / span > < span class = "op" > )< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/filter.html" class = "external-link" > filter< / a > < / span > < span class = "op" > (< / span > < span class = "fu" > is_new_episode< / span > < span class = "op" > (< / span > < span class = "va" > date< / span > , < span class = "fl" > 365< / span > < span class = "op" > )< / span > < span class = "op" > )< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/group_by.html" class = "external-link" > ungroup< / a > < / span > < span class = "op" > (< / span > < span class = "op" > )< / span > < / span > < / span >
< span class = "r-in" > < span > < / span > < / span >
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://rdrr.io/r/base/identical.html" class = "external-link" > identical< / a > < / span > < span class = "op" > (< / span > < span class = "va" > x< / span > , < span class = "va" > y< / span > < span class = "op" > )< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "op" > }< / span > < / span > < / span >
2024-06-16 21:00:31 +02:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > [1] TRUE< / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > < / span > < / span >
2023-02-10 16:26:36 +01:00
< span class = "r-in" > < span > < span class = "co" > # but is_new_episode() has a lot more flexibility than first_isolate(),< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "co" > # since you can now group on anything that seems relevant:< / span > < / span > < / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > < span class = "kw" > if< / span > < span class = "op" > (< / span > < span class = "kw" > < a href = "https://rdrr.io/r/base/library.html" class = "external-link" > require< / a > < / span > < span class = "op" > (< / span > < span class = "st" > < a href = "https://dplyr.tidyverse.org" class = "external-link" > "dplyr"< / a > < / span > < span class = "op" > )< / span > < span class = "op" > )< / span > < span class = "op" > {< / span > < / span > < / span >
2022-08-21 16:59:35 +02:00
< span class = "r-in" > < span > < span class = "va" > df< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
2022-08-28 22:45:38 +02:00
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/group_by.html" class = "external-link" > group_by< / a > < / span > < span class = "op" > (< / span > < span class = "va" > patient< / span > , < span class = "va" > mo< / span > , < span class = "va" > ward< / span > < span class = "op" > )< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
2022-08-21 16:59:35 +02:00
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/mutate.html" class = "external-link" > mutate< / a > < / span > < span class = "op" > (< / span > flag_episode < span class = "op" > =< / span > < span class = "fu" > is_new_episode< / span > < span class = "op" > (< / span > < span class = "va" > date< / span > , < span class = "fl" > 365< / span > < span class = "op" > )< / span > < span class = "op" > )< / span > < span class = "op" > < a href = "https://magrittr.tidyverse.org/reference/pipe.html" class = "external-link" > %> %< / a > < / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/select.html" class = "external-link" > select< / a > < / span > < span class = "op" > (< / span > < span class = "fu" > < a href = "https://dplyr.tidyverse.org/reference/group_data.html" class = "external-link" > group_vars< / a > < / span > < span class = "op" > (< / span > < span class = "va" > .< / span > < span class = "op" > )< / span > , < span class = "va" > flag_episode< / span > < span class = "op" > )< / span > < / span > < / span >
< span class = "r-in" > < span > < span class = "op" > }< / span > < / span > < / span >
2023-02-08 17:01:47 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # A tibble: 100 × < / span > < / span >
2024-12-13 09:54:23 +01:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # Groups: patient, mo, ward [98]< / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > patient mo ward flag_episode< / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494; font-style: italic;" > < chr> < / span > < span style = "color: #949494; font-style: italic;" > < mo> < / span > < span style = "color: #949494; font-style: italic;" > < chr> < / span > < span style = "color: #949494; font-style: italic;" > < lgl> < / span > < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 1< / span > F76081 B_ESCHR_COLI ICU TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 2< / span > F74547 B_STPHY_EPDR Clinical TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 3< / span > 988763 B_STPHY_AURS Clinical TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 4< / span > 8DB5B8 B_STPHY_CONS Clinical TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 5< / span > FB50D6 B_STRPT_MITS ICU TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 6< / span > 310665 B_STPHY_CPTS Outpatient TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 7< / span > 3D2C93 B_STPHY_EPDR ICU TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 8< / span > D80438 B_CRYNB_STRT Clinical TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 9< / span > 24D393 B_ESCHR_COLI Clinical TRUE < / span >
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #BCBCBC;" > 10< / span > 066895 B_KLBSL_PNMN Clinical TRUE < / span >
2023-04-14 11:23:10 +02:00
< span class = "r-out co" > < span class = "r-pr" > #> < / span > < span style = "color: #949494;" > # ℹ < / span > < / span >
2022-08-21 16:59:35 +02:00
< span class = "r-in" > < span > < span class = "co" > # }< / span > < / span > < / span >
< / code > < / pre > < / div >
< / div >
2024-07-16 15:00:55 +02:00
< / main > < aside class = "col-md-3" > < nav id = "toc" aria-label = "Table of contents" > < h2 > On this page< / h2 >
2022-08-21 16:59:35 +02:00
< / nav > < / aside > < / div >
< footer > < div class = "pkgdown-footer-left" >
2024-04-23 10:39:01 +02:00
< p > < code > AMR< / code > (for R). Free and open-source, licenced under the < a target = "_blank" href = "https://github.com/msberends/AMR/blob/main/LICENSE" class = "external-link" > GNU General Public License version 2.0 (GPL-2)< / a > .< br > Developed at the < a target = "_blank" href = "https://www.rug.nl" class = "external-link" > University of Groningen< / a > and < a target = "_blank" href = "https://www.umcg.nl" class = "external-link" > University Medical Center Groningen< / a > in The Netherlands.< / p >
2022-08-21 16:59:35 +02:00
< / div >
< div class = "pkgdown-footer-right" >
2024-09-19 14:48:19 +02:00
< p > < a target = "_blank" href = "https://www.rug.nl" class = "external-link" > < img src = "https://github.com/msberends/AMR/raw/main/pkgdown/assets/logo_rug.svg" style = "max-width: 150px;" > < / a > < a target = "_blank" href = "https://www.umcg.nl" class = "external-link" > < img src = "https://github.com/msberends/AMR/raw/main/pkgdown/assets/logo_umcg.svg" style = "max-width: 150px;" > < / a > < / p >
2022-08-21 16:59:35 +02:00
< / div >
< / footer > < / div >
2024-07-16 15:00:55 +02:00
2022-08-21 16:59:35 +02:00
< / body > < / html >
