
Given two vectors
checkDateSuccession(d1, d2, pat, names = NA, lab = "", typ = c("R", "tex")[2])
Supposedly earlier dates.
Supposedly later dates.
Corresponding list of patient (observation) numbers.
Names of date vectors, of length 3.
Label of the generated latex table.
Type of output.
A latex table is output.
# NOT RUN {
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")
# }
Run the code above in your browser using DataLab