checkDateSuccession: Check whether dates in two vectors are elementwise...

In reporttools: Generate "LaTeX"" Tables of Descriptive Statistics

Description

Given two vectors d_1 and d_2 of date type, this function outputs all entries d_{1j} and d_{2j} such that d_{1j} ≥ d_{2j}.

Usage

checkDateSuccession(d1, d2, pat, names = NA, lab = "", typ = c("R", "tex")[2])

Arguments

d1	Supposedly earlier dates.
d2	Supposedly later dates.
pat	Corresponding list of patient (observation) numbers.
names	Names of date vectors, of length 3.
lab	Label of the generated latex table.
typ	Type of output.

Value

A latex table is output.

Author(s)

Kaspar Rufibach (maintainer), [e-mail],
http://www.kasparrufibach.ch

Examples

set.seed(1977)
diagnosis <- as.Date(round(runif(10, min = 35000, max = 40000)), 
    origin = "1899-12-30")
death <- as.Date(round(runif(10, min = 35000, max = 40000)), 
    origin = "1899-12-30")

## check whether diagnosis was before death
checkDateSuccession(diagnosis, death, 1:10, names = c("Pat", 
    "diagnosis", "death"), lab = "tab: diag --> death") 

checkDateSuccession(diagnosis, death, 1:10, names = c("Pat", 
    "diagnosis", "death"), lab = "tab: diag --> death", typ = "R") 

reporttools documentation built on Oct. 12, 2021, 5:06 p.m.