reporttools (version 1.1.3)

checkDateSuccession: Check whether dates in two vectors are elementwise consecutive

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} \ge d_{2j}\).

Usage

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

Value

A latex table is output.

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.

Author

Kaspar Rufibach (maintainer), ,
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")