| Title: | Weighted Logrank Tests and NPMLE for Interval Censored Data |
|---|---|
| Description: | Functions to fit nonparametric survival curves, plot them, and perform logrank or Wilcoxon type tests [see Fay and Shaw <doi:10.18637/jss.v036.i02>]. |
| Authors: | Michael P. Fay |
| Maintainer: | Michael P. Fay <[email protected]> |
| License: | GPL (>= 2) |
| Version: | 1.1-1.0 |
| Built: | 2024-12-17 06:49:07 UTC |
| Source: | CRAN |
The main functions are icfit to fit nonparametric survival curves together
with plot.icfit to
plot them, and ictest to perform logrank or Wilcoxon type tests.
| Package: | interval |
| Type: | Package |
| Version: | 1.1-0.8 |
| Date: | 2021-10-08 |
| License: | GPL 2 |
Michael Fay
Maintainer: M.P. Fay <[email protected]>
Fay, MP and Shaw, PA (2010). Exact and Asymptotic Weighted Logrank Tests for Interval Censored Data: The interval R package. Journal of Statistical Software. doi:10.18637/jss.v036.i02. 36 (2):1-34.
The A matrix is an n by k matrix of zeros and ones, where each row represents one of n failure times,
and each column represents
a possible interval for the nonparametric maximum likelihood estimate (NPMLE).
The function Aintmap creates an A matrix and associated intmap
from left and right intervals (L and R) which may not may not include the boundary
of the interval (using Lin or Rin).
The matrix intmap denotes the intervals of the potential jumps in the distribution of the
NPMLE,
and its attribute LRin denotes whether to include each of the intervals
or not. Called by icfit.
Aintmap(L,R,Lin=NULL,Rin=NULL)Aintmap(L,R,Lin=NULL,Rin=NULL)
L |
numeric vector of left endpoints of censoring interval |
R |
numeric vector of right endpoints of censoring interval |
Lin |
logical vector, should L be included in the interval? (see details) |
Rin |
logical vector, should R be included in the interval? (see details) |
The Lin and Rin specify whether or not to include the ends of the intervals.
They may be length 1 (and apply to all n values) or length n. The function automatically
only returns the innermost intervals (also called the Turnbull intervals [see Turnbull, 1976], or the regions of the maximal cliques
[see Gentleman and Vandal, 2002]).
The innermost intervals give the "primary reduction" of Aragon and Eberly (1992).
A list with two objects:
A |
an n by k matrix of 0 and 1s |
intmap |
the associated intmap |
Aragon, J and Eberly, D (1992). On convergence of convex minorant algorithms for distribution estimation with interval-censored data. J. of Computational and Graphical Statistics. 1: 129-140.
Gentleman R, and Vandal, A (2002). Nonparametric estimation of the bivariate CDF for arbitrarily censored dtaa. Canadian J of Stat 30: 557-571.
Turnbull, B (1976). The empirical distribution function with arbitrarily grouped, censored and truncated data. JRSS-B, 38: 290-295.
Aintmap(c(2,3,3,7),c(3,5,5,8),Lin=c(FALSE,TRUE,FALSE,FALSE),Rin=c(TRUE,FALSE,TRUE,FALSE))Aintmap(c(2,3,3,7),c(3,5,5,8),Lin=c(FALSE,TRUE,FALSE,FALSE),Rin=c(TRUE,FALSE,TRUE,FALSE))
The often used data set for interval censored data, described and given in full in Finkelstein and Wolfe (1985).
data(bcos)data(bcos)
A data frame with 94 observations on the following 3 variables.
lefta numeric vector
righta numeric vector
treatmenta factor with levels Rad and RadChem
Finkelstein, D.M., and Wolfe, R.A. (1985). A semiparametric model for regression analysis of interval-censored failure time data. Biometrics 41: 731-740.
data(bcos)data(bcos)
For a vector of times, getsurv gets the associated survival values.
The MLE is not uniquely defined for times inbetween the first and second row on the
same column of the intmap.
If there is not
a unique MLE for a specific time, then either use,
interpolation: (default), which basically finds the point on the line connecting
the two points bounding the non-unique MLE interval, or,
left: take the left side of the non-unique MLE interval (smallest value) or,
right: take the right side of the non-unique MLE interval. The LRin attribute is ignored (see warning).
If icfit has more than one strata, then performs the operations on each
stratum.
getsurv(times, icfit, nonUMLE.method = "interpolation")getsurv(times, icfit, nonUMLE.method = "interpolation")
times |
numeric vector of times |
icfit |
icfit object used to define the survival function |
nonUMLE.method |
character vector, either "interpolation", "left" or "right". Method for finding survival when times element is not at a unique MLE time. |
if there is only one stratum, then creates a LIST,with elements
S |
vector of survival function values at each element of times |
times |
vector of times for which need survival function |
unique.mle |
logical denoting whether associated survival value is a unique MLE |
nonUMLE.method |
character vector describing non-unique MLE method |
if there are k>1 strata, then creates a list with k+1 elements, the elements 1:k are lists of results for each strata, and element k+1 is called strataNames and is a character vector of strata names.
The getsurv function does not use LRin attributes, so values exactly on the
intmap values may only represent the limit approaching that value, not the survival at that value.
This function calculates the the non-parametric maximum likelihood estimate for the distribution from interval
censored data using the self-consistent estimator, so the associated survival distribution generalizes
the Kaplan-Meier estimate to interval censored data. Formulas using Surv are allowed similar to survfit.
## S3 method for class 'formula' icfit(formula, data, ...) ## Default S3 method: icfit(L, R,initfit =NULL, control=icfitControl(), Lin=NULL, Rin=NULL, conf.int=FALSE, ...)## S3 method for class 'formula' icfit(formula, data, ...) ## Default S3 method: icfit(L, R,initfit =NULL, control=icfitControl(), Lin=NULL, Rin=NULL, conf.int=FALSE, ...)
L |
numeric vector of left endpoints of censoring interval (equivalent to first element of |
R |
numeric vector of right endpoints of censoring interval (equivalent to second element of |
initfit |
an initial estimate as an object of class |
control |
list of arguments for controling algorithm (see |
Lin |
logical vector, should L be included in the interval? (see details) |
Rin |
logical vector, should R be included in the interval? (see details) |
formula |
a formula with response a numeric vector (which assumes no censoring) or |
data |
an optional matrix or data frame containing the variables in the formula. By default the variables are taken from environment(formula). |
conf.int |
logical, estimate confidence interval? For setting conf.level, etc see |
... |
values passed to other functions |
The icfit function fits the nonparametric maximum likelihood estimate (NPMLE) of the
distribution function for interval censored data. In the default case (when Lin=Rin=NULL)
we assume there are n (n=length(L)) failure times, and the ith one is in the interval
between L[i] and R[i]. The default is not to include L[i] in the interval unless L[i]=R[i],
and to include R[i] in the interval unless R[i]=Inf. When Lin and Rin are not NULL they describe
whether to include L and R in the associated interval. If either Lin or Rin is length 1 then it is
repeated n times, otherwise they should be logicals of length n.
The algorithm is basically an EM-algorithm applied to
interval censored data (see Turnbull, 1976); however
first we can define a set of intervals (called the Turnbull intervals)
which are the only intervals where the NPMLE may change. The Turnbull intervals are also called the
innermost intervals, and are the result of the primary reduction (see Aragon and
Eberly, 1992). The starting distribution for the E-M algorithm is given by initfit, which may be either
(1) NULL, in which case a very simple and quick starting distribution is used (see code), (2) a character vector
describing a function with inputs, L,R, Lin, Rin, and A, see for example initcomputeMLE, (3)
a list giving pf and intmap values, e.g., an icfit object. If option (2) is tried and results in an error then
the starting distribution reverts to the one used with option (1).
Convergence is defined when the maximum
reduced gradient is less than epsilon (see icfitControl), and the
Kuhn-Tucker conditions are approximately met,
otherwise a warning will result. (see Gentleman and
Geyer, 1994). There are other faster algorithms (for example see
EMICM in the package
Icens.
The output is of class icfit which is identical to the icsurv class of the
Icens package when there is only one group for which a distribution is needed.
Following that class, there is an intmap element which gives the bounds
about which each drop in the NPMLE survival function can occur.
Since the classes icfit and icsurv are so closely related, one can directly
use of initial (and faster) fits from the Icens package as input in
initfit. Note that when using a non-null initfit, the Lin and Rin values of the
initial fit are ignored. Alternatively, one may give the name of the function used to calculate the initial fit.
The function is assumed to input the transpose of the A matrix (called A in the Icens package). Options can be passed
to initfit function as a list using the initfitOpts variable in icfitControl.
The advantage of the icfit function over those in Icens package is that it allows a call similar
to that used in survfit of the survival package so that different groups may be
plotted at the same time with similar calls.
An icfit object prints as a list (see value below). A print function prints output as a list
except suppresses printing of A matrix. A summary function prints the
distribution (i.e., probabilities and the intervals where those
probability masses are known to reside) for each group in the icfit object. There is also
a plot method, see plot.icfit.
For additional references and background see Fay and Shaw (2010).
The confidence interval method is a modified bootstrap. This can be very time consuming, see warning. The method uses a percentile bootstrap confidence interval with default B=200
replicates (see icfitControl), with modifications that prevent lower intervals of 1 and upper intervals of 0. Specifically, if there are
n observations total, then at any time the largest value of the lower interval for survival is binom.test(n,n,conf.level=control()$conf.level)$conf.int[1] and analogously
the upper interval bounds using binom.test(0,n). The output (CI element of returned list) gives confidence intervals just before and just after each
assessment time (as defined by icfitControl$timeEpsilon).
An object of class icfit (same as icsurv class, see details).
There are 4 methods for this class: plot.icfit, print.icfit, summary.icfit, and [.icfit. The last method
pulls out individual fits when the right side of the formula of the icfit call was a factor.
A list with elements:
A |
this is the n by k matrix of indicator functions, NULL if more than one strata, not printed by default |
strata |
a named numeric vector of length of pf vector (jumps in NPMLEs) for each strata, if one strata observation named NPMLE |
error |
this is max(d + u - n), see Gentleman and Geyer, 1994 |
numit |
number of iterations |
pf |
vector of estimated probabilities of the distribution. if more than one strata, vectors are concatenated |
intmap |
2 by k matrix, where the ith column defines an interval corresponding to the probability, pf[i] |
converge |
a logical, TRUE if normal convergence |
message |
character text message on about convergence |
anypzero |
logical denoting whether any of the Turnbull intervals were set to zero |
CI |
if conf.int=TRUE included as a list of lists for each stratum, each one having elements time, lower, upper, confMethod, conf.level |
The confidence interval method can be very time consuming because it uses a modified bootstrap and the NPMLE is recalculated for each replication. That is why the default only uses 200 bootstrap replications. A message gives a crude estimate of how long the confidence interval calculation will take (it calculates a per replication value by averaging the time of the first 10 replications), but that estimate can be off by 100 percent or more because the time to calculate each bootstrap replication is quite variable.
Michael P. Fay
Aragon, J and Eberly, D (1992). On convergence of convex minorant algorithms for distribution estimation with interval-censored data. J. of Computational and Graphical Statistics. 1: 129-140.
Fay, MP and Shaw, PA (2010). Exact and Asymptotic Weighted Logrank Tests for Interval Censored Data: The interval R package. Journal of Statistical Software. doi:10.18637/jss.v036.i02. 36 (2):1-34.
Gentleman, R. and Geyer, C.J. (1994). Maximum likelihood for interval censored data:consistency and computation. Biometrika, 81, 618-623.
Turnbull, B.W. (1976) The empirical distribution function with arbitrarily grouped, censored and truncated data. J. R. Statist. Soc. B 38, 290-295.
data(bcos) icout<-icfit(Surv(left,right,type="interval2")~treatment, data=bcos) plot(icout) ## can pick out just one group plot(icout[1])data(bcos) icout<-icfit(Surv(left,right,type="interval2")~treatment, data=bcos) plot(icout) ## can pick out just one group plot(icout[1])
A function to create a list of arguments for icfit.
icfitControl(epsilon = 1e-06, maxit = 10000, initfitOpts=NULL, conf.level=.95, B=200, confMethod="modboot",seed=19439101, timeEpsilon=1e-06, timeMessage=TRUE)icfitControl(epsilon = 1e-06, maxit = 10000, initfitOpts=NULL, conf.level=.95, B=200, confMethod="modboot",seed=19439101, timeEpsilon=1e-06, timeMessage=TRUE)
epsilon |
The minimum error for convergence purposes. The
EM algorithm stops when error |
maxit |
maximum number of iterations of the EM algorithm |
initfitOpts |
named list of options for initfit function if initfit is function name |
conf.level |
level for confidence interval, used if conf.int=TRUE |
B |
number of bootstrap replications for conf.int=TRUE, must be at least 11 |
confMethod |
method for confidence intervals, must be "modboot" |
seed |
random seed for bootstrap, if NULL no call to set.seed |
timeEpsilon |
small number for adding or subtracting from time for drawing confidence interval lines |
timeMessage |
logical, print estimate of how long modified bootstrap confidence intervals will take to calculate? |
There is only one option for the confMethod now. The confMethod argument is only needed for future versions if there is another confidence interval method option.
For a description of the modified bootstrap method see icfit.
An list with the arguments as components.
Gentleman, R. and Geyer, C.J. (1994). Maximum likelihood for interval censored data:consistency and computation. Biometrika, 81, 618-623.
The ictest function performs several different tests for
interval censored data, and the wlr_trafo function takes interval censored data and returns one of several rank-based
scores as determined by the scores option. The default for ictest is to perform a permutation test, either asymptotic or exact
depending on the size of the data. Other types of tests (the scores test form or multiple imputation form) are supported.
The 5 different score options allow different tests including
generalizations to interval censored data of either the
Wilcoxon-Mann-Whitney test
(scores="wmw") or the logrank test (scores="logrank1" or
scores="logrank2") (see details).
The function calls the icfit function, if an icfit object is not provided.
## Default S3 method: ictest(L, R, group, scores = c("logrank1","logrank2","wmw","normal","general"), rho=NULL, alternative= c("two.sided", "less", "greater"), icFIT=NULL, initfit=NULL, icontrol=icfitControl(), exact=NULL, method=NULL, methodRule=methodRuleIC1, mcontrol=mControl(), Lin=NULL, Rin=NULL, dqfunc=NULL, ...) ## S3 method for class 'formula' ictest(formula, data, subset, na.action, ...) ## Default S3 method: wlr_trafo(x, R=NULL, scores = c("logrank1", "logrank2", "wmw","normal","general"), icFIT = NULL, initfit =NULL, control=icfitControl(), Lin=NULL,Rin=NULL,dqfunc=NULL,...) ## S3 method for class 'Surv' wlr_trafo(x,...) ## S3 method for class 'data.frame' wlr_trafo(x,...)## Default S3 method: ictest(L, R, group, scores = c("logrank1","logrank2","wmw","normal","general"), rho=NULL, alternative= c("two.sided", "less", "greater"), icFIT=NULL, initfit=NULL, icontrol=icfitControl(), exact=NULL, method=NULL, methodRule=methodRuleIC1, mcontrol=mControl(), Lin=NULL, Rin=NULL, dqfunc=NULL, ...) ## S3 method for class 'formula' ictest(formula, data, subset, na.action, ...) ## Default S3 method: wlr_trafo(x, R=NULL, scores = c("logrank1", "logrank2", "wmw","normal","general"), icFIT = NULL, initfit =NULL, control=icfitControl(), Lin=NULL,Rin=NULL,dqfunc=NULL,...) ## S3 method for class 'Surv' wlr_trafo(x,...) ## S3 method for class 'data.frame' wlr_trafo(x,...)
L |
numeric vector of left endpoints of censoring interval (equivalent to first element of Surv when type='interval2'), if R is NULL then represents exact failure time |
R |
numeric vector of right endpoints of censoring interval (equivalent to second element of Surv when type='interval2', see details) |
x |
response, either a Surv object or a numeric vector representing the left endpoint. If the latter and R is NULL then x is treated as exact |
group |
a vector denoting the group for which the test is desired. If group is a factor or character then a k-sample test is performed, where k is the number of unique values of group. If group is numeric then a "correlation" type test is performed. If there are only two groups, both methods give the same results. |
scores |
character vector defining the scores: "logrank1" (default), "logrank2", "wmw" or others (see details) |
rho |
either 0 (gives scores="logrank1"), or 1 (gives scores="wmw"), ignored if NULL (see Note) |
alternative |
character giving alternative for two-sample and trend tests, K-sample should be two.sided (see details) |
icFIT |
a precalculated icfit object for increased computation speed. This should be the icfit from the pooled data. Normally initfit should be used instead (see Warning) |
initfit |
an object of class icfit or icsurv or a character vector giving a function name, used for the initial estimate (see Warning).
Ignored if |
icontrol |
list of arguments for controling NPMLE algorithm in call to icfit (default |
formula |
a formula with response a numeric vector (which assumes no censoring) or Surv object, the right side of the formula is the group variable. No strata() is allowed |
data |
data frame for variables in formula |
subset |
an optional vector specifying a subset of observations to be used |
na.action |
a function which indicates what should happen when the data contain NAs. Defaults to getOption("na.action") |
Surv |
a Surv object, see |
exact |
a logical value, TRUE denotes exact test, ignored if method is not NULL |
method |
a character value, one of 'pclt','exact.network','exact.ce','exact.mc', 'scoretest', 'wsr.HLY', 'wsr.pclt', 'wsr.mc'. If NULL method is chosen by methodRule which may use the value of exact. |
methodRule |
a function used to choose the method, default |
mcontrol |
list of arguments for controling algorithms of different methods (see |
Lin |
logical vector, should L be included in the interval? (see details) |
Rin |
logical vector, should R be included in the interval? (see details) |
dqfunc |
function used with general scores (see details) |
control |
list of arguments for controling NPMLE algorithm in call to icfit (default |
... |
values passed to other functions |
The censoring in the default case (when Lin=Rin=NULL) assumes there are n (n=length(L)) failure times, and the ith one is in the interval between L[i] and R[i]. The default is not to include L[i] in the interval unless L[i]=R[i], and to include R[i] in the interval unless R[i]=Inf. When Lin and Rin are not NULL they describe whether to include L and R in the associated interval. If either Lin or Rin is length 1 then it is repeated n times, otherwise they should be logicals of length n.
Three different types of scores are compared in depth in Fay (1999): When scores='logrank1' this gives the most commonly used logrank scores for right censored data, and reduces to the scores of Sun (1996) for interval censored data. When scores='logrank2' this gives the scores associated with the grouped proportional hazards model of Finkelstein (1986). When scores='wmw' this gives the generalized Wilcoxon-Mann-Whitney scores.
The other options for scores only allow the permutation methods and
follow cases where the error under the grouped continuous model is either normally distributed ( scores='normal') or
distributed by some other distribution (scores='general') (see Fay, 1996). For scores='general' the
user must supply the function (dqfunc) which represents the density function of the inverse distribution function
of the error. For example, scores='general' with dqfunc equal to function(x){ dnorm(qnorm(x))} gives
the same results as scores='normal' or with dqfunc equal to function(x){ dlogis(qlogis(x))} gives
the same results (theoretically, but perhaps not exactly when calculated) as scores='wmw'.
For censored data two common likelihoods are the marginal likelihood of the ranks and the likelihood with nuisance parameters for the baseline survival. Here we use the latter likelihood (as in Finkelstein, 1986, Fay, 1996, and Sun, 1996).
Because of theoretical difficulties (discussed below), the default method (method=NULL with methodRule=methodRuleIC1) is to
perform a permutation test on the scores. There are several ways to perform the permutation
test, and the function methodRuleIC1 chooses which of these ways will be used. The choice
is basically between using a permutational central limit theorem (method="pclt") or using an exact method.
There are several algorithms for the exact method (see perm ). Note that there are two
exact two-sided methods and the default is to essentially double the smaller of the one-sided p-values (tsmethod='central'), while the
default in the coin package is different (see mControl and the tsmethod option).
Another method is to perform a standard score test (method="scoretest"). It is difficult to prove the asymptotic validity of the standard score tests for this likelihood because the number of nuisance parameters typically grows with the sample size and often many of the parameters are equal at the nonparametric MLE, i.e., they are on the boundary of the parameter space (Fay, 1996). Specifically, when the score test is performed then an adjustment is made so that the nuisance parameters are defined based on the data and do not approach the boundary of the parameter space (see Fay, 1996). Theoretically, the score test should perform well when there are many individuals but few observation times, and its advantage in this situation is that it retains validity even when the censoring mechanism may depend on the treatment.
Another method is to use multiple imputation, or within subject resampling (method="wsr.HLY") (Huang, Lee, and Yu, 2008). This method samples interval censored observations from the nonparametric distribution, then performs the usual martingale-based variance. A different possibility is to use a permutational central limit theorem variance for each wsr (method="wsr.pclt") or use Monte Carlo replications to get an possibly exact method from each within subject resampling (method="wsr.mc").
Note that when icfit and ictest are used on right censored data, because of the method of estimating variance is different, even Sun's method does not produce exactly the standard logrank test results.
Fay and Shaw (2010) gives the mathematical expressions for the different tests.
Note that the default method performs reasonably well even when the assessment times depend on the treatment (see Fay and Shih, 2012, Fay and Hunsberger, 2013). If your primary concern is with retaining type I error and you do not mind conservativeness, then the wsr.pclt or wsr.mc methods can be used.
The function wlr_trafo returns only the numeric vector of scores, while
ictest returns an object of class ‘ictest’, which is a list with the following values.
scores |
This is a vector the same length as L and R, containing the rank scores (i.e., the ci values
in Fay, 1999 equation 2). These scores are calculated by |
U |
The efficient score vector. When group is a factor or character vector then each element of U has the interpretation as the weighted sum of "observed" minus "expected" deaths for the group element defined by the label of U. Thus negative values indicate better than average survival (see Fay, 1999). |
N |
number of observations in each group |
method |
full description of the test |
data.name |
description of data variables |
algorithm |
character vector giving algorithm used in calculation,
value of |
statistic |
either the chi-square or Z statistic, or NULL for exact methods |
parameter |
degrees of freedom for chi-square statistic |
alternative |
alternative hypothesis |
alt.phrase |
phrase used to describe the alternative hypothesis |
p.value |
p value associated with alternative |
p.values |
vector of p-values under different alternatives |
p.conf.int |
confidence interval on p.value, for method='exact.mc' only |
nmc |
number of Monte Carlo replications, for method='exact.mc' only |
nwsr |
number of within subject resamplings, for WSR methods only |
V |
covariance matrix for U, output for method='scoretest' only |
d2L.dB2 |
second derivative of log likelihood with respect to beta,output for method='scoretest' only |
d2L.dgam2 |
second derivative of log likelihood with respect to gamma, output for method='scoretest' only |
d2L.dBdgam |
derivative of log likelihood with respect to beta and gamma, output for method='scoretest' only |
estimate |
output of test statistic from permutation method, difference in means in scores, output only for permutation methods |
null.value |
0, null value of test statistics from permutation method, output only with permutation methods |
np |
number of permutation replications within each WSR, for method='wsr.mc' only |
fit |
object of class 'icfit' giving results of NPMLE of all responses combined (ignoring group variable) |
call |
the matched call |
Because the input of icFIT is only for saving computational time,
no checks are made to determine if the icFIT is in fact the correct one. Thus you may get
wrong answers with no warnings if you input the wrong icFIT object. The safer way to save
computational time is to input into initfit either a precalculated icfit object or
an icsurv object from a function in the Icens package such as EMICM.
When this is done, you will get either the correct answer or a warning even when you input a bad guess for the
initfit. Additionally, you may specify a function name for initfit. The default is NULL which
uses a simple initial fit function (it is a weighted average of the A matrix, see icfit.default code).
A fast but somewhat unstable function uses initcomputeMLE
which uses the computeMLE function from the 'MLEcens'
package.
See help for icfit for details on the initfit option.
The
rho argument
gives the scores which match the scores from the
survdiff function, so that when rho=0 then scores="logrank1",
and when rho=1 then scores="wmw".
These scores will exactly match those used in survdiff,
but the function survdiff uses an asymptotic method
based on the score test to calculate p-values, while ictest uses
permutation methods to calculate
the p-values, so that the p-values will not match exactly.
The rho argument overides the scores argument,
so that if rho is not NULL then scores is ignored.
Michael P. Fay
Fay, MP (1996). "Rank invariant tests for interval censored data under the grouped continuous model". Biometrics, 52: 811-822.
Fay, MP (1999). "Comparing Several Score Tests for Interval Censored Data." Statistics in Medicine, 18: 273-285 (Correction: 1999, 18: 2681).
Fay, MP and Shaw, PA (2010). Exact and Asymptotic Weighted Logrank Tests for Interval Censored Data: The interval R package. Journal of Statistical Software. doi:10.18637/jss.v036.i02. 36 (2):1-34.
Fay, MP and Shih JH. (2012). Weighted Logrank Tests for Interval Censored Data when Assessment Times Depend on Treatment. Statistics in Medicine 31, 3760-3772.
Fay, MP and Hunsberger, SA. (2013). Practical Issues on Using Weighted Logrank Tests with Interval Censored Events in Clinical Trials. Chapter 13 in Interval-Censored Time-to-Event Data: Methods and Applications, Chen, D-G, Sun, J, and Peace, KE (editors) Chapman and Hall/CRC.
Finkelstein, DM (1986). "A proportional hazards model for interval censored failure time data" Biometrics, 42: 845-854.
Huang, J, Lee, C, Yu, Q (2008). "A generalized log-rank test for interval-censored failure time data via multiple imputation" Statistics in Medicine, 27: 3217-3226.
Sun, J (1996). "A non-parametric test for interval censored failure time data with applications to AIDS studies". Statistics in Medicine, 15: 1387-1395.
## perform a logrank-type test using the permutation form of the test data(bcos) testresult<-ictest(Surv(left,right,type="interval2")~treatment, scores="logrank1",data=bcos) testresult ## perform a Wilcoxon rank sum-type test ## using asymptotic permutation variance left<-bcos$left right<-bcos$right trt<-bcos$treatment ## save time by using previous fit ictest(left,right,trt, initfit=testresult$fit, method="pclt",scores="wmw")## perform a logrank-type test using the permutation form of the test data(bcos) testresult<-ictest(Surv(left,right,type="interval2")~treatment, scores="logrank1",data=bcos) testresult ## perform a Wilcoxon rank sum-type test ## using asymptotic permutation variance left<-bcos$left right<-bcos$right trt<-bcos$treatment ## save time by using previous fit ictest(left,right,trt, initfit=testresult$fit, method="pclt",scores="wmw")
The function icfit calculates the NPMLE of a distribution for interval censored data using an E-M algorithm
with polishing and checking the Kuhn-Tucker conditions (see icfit help details).
It allows functions for the initfit option in order to calculate the starting value of the distribution in the E-M algorithm.
Because icfit checks the Kuhn-Tucker conditions, we can try functions without doing extensive quality control,
since if the starting distribution is not close to the true NPMLE the only downside is a slower convergence. But if the
initfit function is the true NPMLE then convergence happens on the first iteration. Functions must input 5 objects, L,R, Lin, Rin,
and A, but need not use all of them.
initcomputeMLE(L,R,Lin,Rin,A=NULL,max.inner=10,max.outer=1000,tol=1e-9) initEMICM(L=NULL,R=NULL,Lin=NULL,Rin=NULL,A=NULL,maxiter=1000,tol=1e-7)initcomputeMLE(L,R,Lin,Rin,A=NULL,max.inner=10,max.outer=1000,tol=1e-9) initEMICM(L=NULL,R=NULL,Lin=NULL,Rin=NULL,A=NULL,maxiter=1000,tol=1e-7)
L |
numeric vector of left endpoints of censoring interval (equivalent to first element of Surv when type='interval2', see |
R |
numeric vector of right endpoints of censoring interval (equivalent to second element of Surv function when type='interval2', see |
Lin |
logical vector, should L be included in the interval? (see |
Rin |
logical vector, should R be included in the interval? (see |
A |
clique matrix |
max.inner |
see |
max.outer |
see |
tol |
see either |
maxiter |
see |
In order to work correctly within icfit the function should output a list with at least a 'pf' element
giving the estimated mass of the distribution for a series of intervals.
Further, if an 'intmap' element is included (describing the series of intervals) it will be used by icfit.
The function initcomputeMLE outputs an icfit object with 'pf' and 'intmap' values and some other values
defined in the help for computeMLE.
The function initEMICM outputs an icsurv object with a 'pf' element but no 'intmap' element, in addition to
some other values defined in the help for EMICM.
Here we define pf and intmap:
pf |
vector of estimated probabilities of the distribution |
intmap |
2 by k matrix, where the ith column defines an interval corresponding to the probability, pf[i] |
In rare cases the computeMLE function (and hence the initcomputeMLE function) can cause R to crash
(at least for version 0.1-3 of the MLEcens package).
The wrappers for the functions were written by M. Fay, but the real work are the calculation engines:
The calculation engine for initcomputeMLE is computeMLE and was written by Marloes Maathuis, with
part of the code for the optimization step is adapted from code that was written by Piet Groeneboom.
The calculation engine for initEMICM is EMICM and was written by Alain Vandal and Robert Gentleman
## If you want speed and trust the MLEcens package, then there is no need to use icfit at all ## (but the convergence checks in icfit do not take much additional time) data(bcos) fit<-initcomputeMLE(bcos$left,bcos$right) summary(fit) plot(fit)## If you want speed and trust the MLEcens package, then there is no need to use icfit at all ## (but the convergence checks in icfit do not take much additional time) data(bcos) fit<-initcomputeMLE(bcos$left,bcos$right) summary(fit) plot(fit)
A function to create a list of arguments for ictest.
mControl(cm=NULL,nmc=10^3-1,seed=1234321,digits=12,p.conf.level=.99, setSEED=TRUE,tol.svd=10^-8,nwsr=10^3-1,np=10^3-1,tsmethod="central")mControl(cm=NULL,nmc=10^3-1,seed=1234321,digits=12,p.conf.level=.99, setSEED=TRUE,tol.svd=10^-8,nwsr=10^3-1,np=10^3-1,tsmethod="central")
cm |
a choose(n,m) by n matrix, used if method='exact.ce', ignored otherwise |
nmc |
number of Monte Carlo replications, used if method='exact.mc', ignored otherwise |
seed |
value used in |
setSEED |
logical, set to FALSE when performing simulations |
p.conf.level |
confidence level for p value estimate, used if method='exact.mc', ignored otherwise |
digits |
number of digits to use in |
tol.svd |
tolerance for use in calculating g-inverse, values less than tol.svd are set to zero, used when method='scoretest' |
nwsr |
number of within subject resamples, used when method='wsr.mc', 'wsr.HLY', or 'wsr.pclt' |
np |
number of permutation replications within each wsr, used when method='wsr.mc' |
tsmethod |
two-sided method for exact permutation tests, either 'central' or 'abs' (see |
When cm=NULL the resulting matrix is created by chooseMatrix, it may be optionally provided here
only so that chooseMatrix does not need to be repeatedly called in simulations.
Also when doing simulations (with
method='exact.mc' or any of the wsr methods), use setSEED=FALSE so that the seed
is not reset to the same value each time you call the function.
See calcPvalsMC for description of how p.conf.level is used.
An list with the arguments as components.
This is the default function which determines which permutation method (e.g., ‘pclt’ or ‘exact.network’) to use in ictest.
methodRuleIC1(x, group, exact, Nbound = c(20))methodRuleIC1(x, group, exact, Nbound = c(20))
x |
vector of response scores |
group |
group membership vector |
exact |
logical, TRUE=exact method chosen, FALSE=pclt |
Nbound |
bound, if n>Nbound then method='pclt' otherwise either 'exact.mc' (for k-sample or trend) or 'exact.network' (for two-sample) |
This function determines which of several methods will be used in
ictest, see permTS for description of methods.
When exact=FALSE then returns 'pclt'. When exact=TRUE then returns either 'exact.network' if the length(cc)<=Nbound and it is a two-sample test or 'exact.mc' otherwise. When exact=NULL and the length(cc)<=Nbound, then returns either 'exact.network' (for two-sample) or 'exact.mc' (for k-sample and trend). When exact=NULL and length(cc)>Nbound returns 'pclt'.
a character vector with one of the following values: "pclt","exact.network","exact.mc"
Plots either the survival distributions, the cumulative distributions, or a transformation of the cumulative distributions,
from an icfit object. If there is more than one strata,
all strata will be plotted. Note that for interval censored data, the changes in the
NPMLE of the survival function usually do not occur at unique points but occur within some interval
where any of an infinite number of curves will maximize the likelihood. We show those intervals
were the NPMLE is indeterminate as a gray rectangle.
## S3 method for class 'icfit' plot(x,XLAB="time",YLAB=NULL,COL=gray((8:1)*.1),LTY=1:9,LEGEND=NULL, XLEG=NULL,YLEG=NULL,shade=TRUE,dtype="survival", dlink=function(x){log(-log(1-x))}, xscale=1, yscale=1, conf.int=NULL, estpar=list( lty=NULL, lwd=1, col=gray(0)), cipar=list( lty=1:9, lwd=1, col=gray(0.8)), ...)## S3 method for class 'icfit' plot(x,XLAB="time",YLAB=NULL,COL=gray((8:1)*.1),LTY=1:9,LEGEND=NULL, XLEG=NULL,YLEG=NULL,shade=TRUE,dtype="survival", dlink=function(x){log(-log(1-x))}, xscale=1, yscale=1, conf.int=NULL, estpar=list( lty=NULL, lwd=1, col=gray(0)), cipar=list( lty=1:9, lwd=1, col=gray(0.8)), ...)
x |
an icfit object, see |
XLAB |
x label |
YLAB |
y label, if NULL label matches dtype |
COL |
a vector representing color of rectangles of indeterminate NPMLE, COL[i] used for ith strata |
LTY |
a vector for lty values for lines, LTY[i] used for ith strata |
LEGEND |
logical value, include legend or not, if NULL set to TRUE only if number of strata>1 |
XLEG |
x location for legend, if NULL then gives maximum of 0 and minimum time from intmap |
YLEG |
y location for legend |
shade |
logical, should the rectangles of indeterminate NPMLE be colored? |
dtype |
type of distribution plotted, one of 'survival', 'cdf' or 'link' (see details) |
dlink |
link function when dtype='link' (see details) |
xscale |
a numeric value used to multiply the labels on the x axis. So if the data are in days, then a value of 1/365.25 would give labels in years. |
yscale |
a numeric value used to multiply the labels on the y axis. A value of 100, for instance, would be used to give a percent scale. As in the survival package, only the labels are changed, not the actual plot coordinates |
conf.int |
logical, should confidence intervals be plotted? NULL plots them if they are present in x object and gives no errors if they are not. |
estpar |
list of par arguments for the estimated distribution lines. If lty=NULL uses LTY argument, otherwise ignores LTY (for backward compatability) |
cipar |
list of par arguments for the confidence interval lines |
... |
other arguments passed to the plot function |
Turnbull (1976) noted that the NPMLE was not unique within a certain set of intervals. We represent that non-uniqueness
using colored rectangles when shade=TRUE. The option shade=TRUE is not supported when dtype="link".
The option dtype="cdf" plots the cumulative distribution function.
When there are several strata, different types of weighted logrank-type tests (see ictest) may be derived from score statistics under the
grouped continuous model with error distribution known. To test which test is appropriate, one may plot the cumulative distribution for
each stratum transformed by the inverse of the proposed error distribution (see Fay, 1996). These are plotted with dtype="link" where dlink is the link function which
transforms the cdf. The "wmw" scores correspond to dlink=qlogis, the "logrank2" scores correspond to the default complementary log-log dlink,
and the "normal" scores correspond to dlink=qnorm.
Returns a list of arguments for the legend. Values are x,y, legend, fill, lty. See legend help.
An object of class 'icsurv' from the Icens package can use this plot function by redefining its class to 'icfit' and 'plot.icfit' will work on it.
Fay, MP (1996). Rank invariant tests for interval censored data under the grouped continuous model. Biometrics. 52: 811-822.
Turnbull, B.W. (1976) The empirical distribution function with arbitrarily grouped, censored and truncated data. J. R. Statist. Soc. B 38, 290-295.
data(bcos) fit1<-icfit(Surv(left,right,type="interval2")~treatment,data=bcos) summary(fit1) plot(fit1)data(bcos) fit1<-icfit(Surv(left,right,type="interval2")~treatment,data=bcos) summary(fit1) plot(fit1)
The print method prints as a list, except the A (clique) matrix. The summary method prints the masses an associated maps for the fit. The
[ method allows picking out of specific fits for individual elements of the factor when the right hand side of the formula in icfit
was a factor.
## S3 method for class 'icfit' summary(object, digits=4, ...) ## S3 method for class 'icfit' print(x, ...) ## S3 method for class 'icfit' x[i]## S3 method for class 'icfit' summary(object, digits=4, ...) ## S3 method for class 'icfit' print(x, ...) ## S3 method for class 'icfit' x[i]
object |
an icfit object |
x |
an icfit object |
digits |
number of digits for rounding results |
i |
scalar integer to pick ith strata |
... |
arguments to be passed |
data(bcos) icout<-icfit(Surv(left,right,type="interval2")~treatment, data=bcos) print(icout) summary(icout) icout[1]data(bcos) icout<-icfit(Surv(left,right,type="interval2")~treatment, data=bcos) print(icout) summary(icout) icout[1]
Takes a Surv object and transforms it into a data frame with
two variables, L and R, representing the left and right interval of interval censored
data. The failure time is known to be in the interval (L,R]. Right censored data
are handled by setting L=R for observed and R=Inf for right censored. These are interpreted correctly
by icfit and ictest.
SurvLR(x)SurvLR(x)
x |
a |
Currently type='counting' not supported.
A data frame with two variables:
L |
left end of interval |
R |
right end of interval |
time<-c(1,5,3,7) status<-c(1,1,0,1) y<-Surv(time,status) SurvLR(y)time<-c(1,5,3,7) status<-c(1,1,0,1) y<-Surv(time,status) SurvLR(y)