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} ≥ d_{2j}.

Usage

1
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), kaspar.rufibach@gmail.com,
http://www.kasparrufibach.ch

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
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") 

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.