ADcens.Rd
Function ADcens
computes the Anderson-Darling test statistic and p-value for complete
and right-censored data against eight possible distributions using bootstrapping.
# Default S3 method
ADcens(times, cens = rep(1, length(times)),
distr = c("exponential", "gumbel", "weibull", "normal",
"lognormal", "logistic", "loglogistic", "beta"),
betaLimits = c(0, 1), igumb = c(10, 10), BS = 999,
params0 = list(shape = NULL, shape2 = NULL,
location = NULL, scale = NULL), tol = 1e-04, ...)
# S3 method for class 'formula'
ADcens(formula, data, ...)
Numeric vector of times until the event of interest.
Status indicator (1, exact time; 0, right-censored time). If not provided, all times are assumed to be exact.
A string specifying the name of the distribution to be studied.
The possible distributions are the exponential ("exponential"
),
the Weibull ("weibull"
), the Gumbel ("gumbel"
),
the normal ("normal"
), the lognormal ("lognormal"
),
the logistic ("logistic"
), the loglogistic ("loglogistic"
),
and the beta ("beta"
) distribution.
Two-components vector with the lower and upper bounds of the Beta distribution. This argument is only required, if the beta distribution is considered.
Two-components vector with the initial values for the estimation of the Gumbel distribution parameters.
Number of bootstrap samples.
List specifying the parameters of the theoretical distribution.
By default, parameters are set to NULL
and estimated with
the maximum likelihood method. This argument is only considered,
if all parameters of the studied distribution are specified.
Precision of survival times.
A formula with a numeric vector as response (which assumes no censoring) or Surv
object.
Data frame for variables in formula
.
Additional arguments.
The parameter estimation is acomplished with the fitdistcens
function of the fitdistrplus package.
To avoid long computation times due to bootstrapping, an alternative
with complete data is the function ad.test
of the goftest package.
The precision of the survival times is important mainly in the data generation step of the bootstrap samples.
ADcens
returns an object of class "ADcens"
.
An object of class "ADcens"
is a list containing the following components:
Distribution
Null distribution.
Hypothesis
Parameters under the null hypothesis (if params0
is provided).
Test
Vector containing the value of the Anderson-Darling statistic (AD
) and the
estimated p-value (p-value
).
Estimates
Vector with the maximum likelihood estimates of the parameters of the distribution under study.
StdErrors
Vector containing the estimated standard errors.
aic
The Akaike information criterion.
bic
The so-called BIC or SBC (Schwarz Bayesian criterion).
BS
The number of bootstrap samples used.
G. Marsaglia and J. Marsaglia. Evaluating the Aderson-Darling Distrinution. In: Journal os Statistical Software, Articles, 9 (2) (2004), 1-5.
If the amount of data is large, the execution time of the
function can be elevated. The parameter BS
can
limit the number of random censored samples generated and
reduce the execution time.
Function ad.test
(Package goftest) for complete data and
function gofcens for statistics and p-value of th Kolmogorov-Smirnov,
Cramér von-Mises and Anderson-Darling together for right-censored data.
# Complete data
set.seed(123)
ADcens(times = rweibull(100, 12, scale = 4), distr = "weibull",
BS = 199)
#> Distribution: weibull
#>
#> AD Test results:
#> AD p-value
#> 0.176 0.955
#>
#> Parameter estimates (se):
#> shape scale
#> 12.241 (0.938) 4 (0.034)
#>
#> AIC: 84.375
#> BIC: 89.585
#>
print(ADcens(times = rweibull(100, 12, scale = 4), distr = "exponential",
BS = 199), outp = "table", print.BIC = FALSE, print.infoBoot = TRUE)
#> Distribution: exponential
#>
#> AD Test results:
#> ------- | -------
#> Metric | Value
#> ------- | -------
#> AD | 37.067
#> p-value | 0.005
#> ------- | -------
#>
#> Parameter estimates:
#> --------- | --------- | ---------
#> Parameter | Value | s.e.
#> --------- | --------- | ---------
#> scale | 3.834 | 0.383
#> --------- | --------- | ---------
#>
#> AIC: 470.79
#>
#> Number of bootstrap samples: 199
#>
if (FALSE) { # \dontrun{
# Censored data
set.seed(123)
colonsamp <- colon[sample(nrow(colon), 300), ]
ADcens(Surv(time, status) ~ 1, colonsamp, distr = "normal")
} # }