P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-09-02 19:44:04 +02:00
Code Releases Activity

(v1.5.0.9010) MDRO vignette update, get_episode for < day

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-01-24 14:48:56 +01:00
parent 1a88caa119
commit 286eaa9699
52 changed files with 319 additions and 210 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
man/get_episode.Rd
View File

@@ -12,9 +12,9 @@ is_new_episode(x, episode_days, ...)
\arguments{
\item{x}{vector of dates (class \code{Date} or \code{POSIXt})}
\item{episode_days}{length of the required episode in days, see \emph{Details}}
\item{episode_days}{length of the required episode length in days, can also be less than a day, see \emph{Details}}
\item{...}{arguments passed on to \code{\link[=as.Date]{as.Date()}}}
\item{...}{arguments passed on to \code{\link[=as.POSIXct]{as.POSIXct()}}}
}
\value{
\itemize{
@@ -46,15 +46,20 @@ On our website \url{https://msberends.github.io/AMR/} you can find \href{https:/
}
\examples{
# `example_isolates` is a dataset available in the AMR package.
# `example_isolates` is a data set available in the AMR package.
# See ?example_isolates.
get_episode(example_isolates$date, episode_days = 60)
is_new_episode(example_isolates$date, episode_days = 60)
get_episode(example_isolates$date, episode_days = 60) # indices
is_new_episode(example_isolates$date, episode_days = 60) # TRUE/FALSE
# filter on results from the third 60-day episode only, using base R
example_isolates[which(get_episode(example_isolates$date, 60) == 3), ]
# the functions also work for less than a day, e.g. to include one per hour:
get_episode(c(Sys.time(),
Sys.time() + 60 * 60),
episode_days = 1/24)
\donttest{
if (require("dplyr")) {
# is_new_episode() can also be used in dplyr verbs to determine patient