-
Notifications
You must be signed in to change notification settings - Fork 3
/
timepoints2.Rd
66 lines (55 loc) · 1.66 KB
/
timepoints2.Rd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/cuminc2.R
\name{timepoints2}
\alias{timepoints2}
\title{\code{timepoints} formatter}
\usage{
timepoints2(
w,
times = NULL,
digits = 3L,
sd = FALSE,
ci = FALSE,
html = FALSE,
htmlArgs = list(),
...
)
}
\arguments{
\item{w, times}{arguments passed to \code{\link{timepoints}}}
\item{digits}{number of digits past the decimal point to keep}
\item{sd}{logical; if \code{FALSE}, the standard deviation will not be
shown with the estimate}
\item{ci}{logical; not implemented}
\item{html}{logical; if \code{TRUE}, an html-friendly format is returned;
the print method for \code{timepoints2} will use \code{\link{htmlTable}}
if \code{html = TRUE}}
\item{htmlArgs}{for \code{html = TRUE}, a \emph{named} list of arguments
passed to \code{\link[htmlTable]{htmlTable}} for additional formatting or
to override defaults}
\item{...}{ignored}
}
\description{
Format output from \code{\link[cmprsk]{timepoints}} into a single matrix
with estimate +/- standard deviation.
}
\examples{
ci <- cuminc2(Surv(futime, event(censored)) ~ sex, transplant)
timepoints2(ci, sd = TRUE)
timepoints2(ci, html = TRUE)
print(
timepoints2(ci, sd = TRUE, html = TRUE),
rgroup = c('Death', 'Ltx', 'Withdraw'), n.rgroup = c(2, 2, 2),
caption = 'Timepoints<sup>†</sup>',
tfoot = '<sup>†</sup>Estimate ± SD'
)
## example from cmprsk::cuminc
set.seed(2)
ss <- rexp(100)
gg <- factor(sample(1:3, 100, replace = TRUE), 1:3, c('a', 'b', 'c'))
cc <- sample(0:2, 100, replace = TRUE)
strt <- sample(1:2, 100, replace = TRUE)
xx <- cuminc(ss, cc, gg, strt)
timepoints(xx, times = 0:4)
timepoints2(xx, times = 0:4)
}