Integer, Intent (In)	::	n, m, ns, ldz, isz(m), ip, ic(n), isi(*), ndmax, maxit, iprint
Integer, Intent (Inout)	::	ifail
Integer, Intent (Out)	::	nd, iwk(2*n)
Real (Kind=nag_wp), Intent (In)	::	z(ldz,m), t(n), omega(*), tol
Real (Kind=nag_wp), Intent (Inout)	::	b(ip), sur(ndmax,*)
Real (Kind=nag_wp), Intent (Out)	::	dev, se(ip), sc(ip), cov(ip(ip+1)/2), res(n), tp(ndmax), wk(ip(ip+9)/2+n)
Character (1), Intent (In)	::	offset

C Header Interface

#include <nag.h>

void

g12baf_ (const char *offset, const Integer *n, const Integer *m, const Integer *ns, const double z[], const Integer *ldz, const Integer isz[], const Integer *ip, const double t[], const Integer ic[], const double omega[], const Integer isi[], double *dev, double b[], double se[], double sc[], double cov[], double res[], Integer *nd, double tp[], double sur[], const Integer *ndmax, const double *tol, const Integer *maxit, const Integer *iprint, double wk[], Integer iwk[], Integer *ifail, const Charlen length_offset)

The routine may be called by the names g12baf or nagf_surviv_coxmodel.

3 Description

The proportional hazard model relates the time to an event, usually death or failure, to a number of explanatory variables known as covariates. Some of the observations may be right-censored, that is the exact time to failure is not known, only that it is greater than a known time.

Let

t_{i}

, for

i = 1, 2, \dots, n

, be the failure time or censored time for the

i

th observation with the vector of

p

covariates

z_{i}

. It is assumed that censoring and failure mechanisms are independent. The hazard function,

λ (t, z)

, is the probability that an individual with covariates

z

fails at time

t

given that the individual survived up to time

t

. In the Cox proportional hazards model (see Cox (1972))

λ (t, z)

is of the form:

λ (t, z) = λ_{0} (t) \exp (z^{T} β + ω)

where

λ_{0}

is the base-line hazard function, an unspecified function of time,

β

is a vector of unknown parameters and

ω

is a known offset.

Assuming there are ties in the failure times giving

n_{d} < n

distinct failure times,

t_{(1)} < \dots < t_{(n_{d})}

such that

d_{i}

individuals fail at

t_{(i)}

, it follows that the marginal likelihood for

β

is well approximated (see Kalbfleisch and Prentice (1980)) by:

L = \prod_{i = 1}^{n_{d}} \frac{\exp (s_{i}^{T} β + ω_{i})}{{[\sum_{l \in R (t_{(i)})} \exp (z_{l}^{T} β + ω_{l})]}^{d_{i}}}

(1)

where

s_{i}

is the sum of the covariates of individuals observed to fail at

t_{(i)}

and

R (t_{(i)})

is the set of individuals at risk just prior to

t_{(i)}

, that is, it is all individuals that fail or are censored at time

t_{(i)}

along with all individuals that survive beyond time

t_{(i)}

. The maximum likelihood estimates (MLEs) of

β

, given by

\hat{β}

, are obtained by maximizing (1) using a Newton–Raphson iteration technique that includes step halving and utilizes the first and second partial derivatives of (1) which are given by equations (2) and (3) below:

U_{j} (β) = \frac{\partial \ln L}{\partial β_{j}} = \sum_{i = 1}^{n_{d}} [s_{j i} - d_{i} α_{j i} (β)] = 0

(2)

for

j = 1, 2, \dots, p

, where

s_{j i}

is the

j

th element in the vector

s_{i}

and

α_{j i} (β) = \frac{\sum_{l \in R (t_{(i)})} z_{j l} \exp (z_{l}^{T} β + ω_{l})}{\sum_{l \in R (t_{(i)})} \exp (z_{l}^{T} β + ω_{l})} .

Similarly,

I_{h j} (β) = - \frac{\partial^{2} \ln L}{\partial β_{h} \partial β_{j}} = \sum_{i = 1}^{n_{d}} d_{i} γ_{h j i}

(3)

where

γ_{h j i} = \frac{\sum_{l \in R (t_{(i)})} z_{h l} z_{j l} \exp (z_{l}^{T} β + ω_{l})}{\sum_{l \in R (t_{(i)})} \exp (z_{l}^{T} β + ω_{l})} - α_{hi} (β) α_{j i} (β), h, j = 1, \dots, p .

U_{j} (β)

is the

j

th component of a score vector and

I_{h j} (β)

is the

(h, j)

element of the observed information matrix

I (β)

whose inverse

I {(β)}^{- 1} = {[I_{h j} (β)]}^{- 1}

gives the variance-covariance matrix of

β

It should be noted that if a covariate or a linear combination of covariates is monotonically increasing or decreasing with time then one or more of the

β_{j}

's will be infinite.

λ_{0} (t)

varies across

ν

strata, where the number of individuals in the

k

th stratum is

n_{k}

, for

k = 1, 2, \dots, ν

with

n = \sum_{k = 1}^{ν} n_{k}

, then rather than maximizing (1) to obtain

\hat{β}

, the following marginal likelihood is maximized:

L = \prod_{k = 1}^{ν} L_{k},

(4)

where

L_{k}

is the contribution to likelihood for the

n_{k}

observations in the

k

th stratum treated as a single sample in (1). When strata are included the covariate coefficients are constant across strata but there is a different base-line hazard function

λ_{0}

The base-line survivor function associated with a failure time

t_{(i)}

, is estimated as

\exp (- \hat{H} (t_{(i)}))

, where

\hat{H} (t_{(i)}) = \sum_{t_{(j)} \leq t_{(i)}} (\frac{d_{i}}{\sum_{l \in R (t_{(j)})} \exp (z_{l}^{T} \hat{β} + ω_{l})}),

(5)

where

d_{i}

is the number of failures at time

t_{(i)}

. The residual for the

l

th observation is computed as:

r (t_{l}) = \hat{H} (t_{l}) \exp (z_{l}^{T} \hat{β} + ω_{l})

where

\hat{H} (t_{l}) = \hat{H} (t_{(i)}), t_{(i)} \leq t_{l} < t_{(i + 1)}

. The deviance is defined as

- 2 \times

(logarithm of marginal likelihood). There are two ways to test whether individual covariates are significant: the differences between the deviances of nested models can be compared with the appropriate

χ^{2}

-distribution; or, the asymptotic normality of the parameter estimates can be used to form

z

tests by dividing the estimates by their standard errors or the score function for the model under the null hypothesis can be used to form

z

tests.

4 References

Cox D R (1972) Regression models in life tables (with discussion) J. Roy. Statist. Soc. Ser. B 34 187–220

Gross A J and Clark V A (1975) Survival Distributions: Reliability Applications in the Biomedical Sciences Wiley

Kalbfleisch J D and Prentice R L (1980) The Statistical Analysis of Failure Time Data Wiley

5 Arguments

1: $offset$ – Character(1) Input

On entry: indicates if an offset is to be used.

$offset ='Y'$: An offset must be included in omega.
$offset ='N'$: No offset is included in the model.

Constraint:

offset ='Y'

'N'

2: $n$ – Integer Input

On entry:

n

, the number of data points.

Constraint:

n \geq 2

3: $m$ – Integer Input

On entry: the number of covariates in array z.

Constraint:

m \geq 1

4: $ns$ – Integer Input

On entry: the number of strata. If

ns > 0

then the stratum for each observation must be supplied in isi.

Constraint:

ns \geq 0

5: $z (ldz, m)$ – Real (Kind=nag_wp) array Input

On entry: the

i

th row must contain the covariates which are associated with the

i

th failure time given in t.

6: $ldz$ – Integer Input

On entry: the first dimension of the array z as declared in the (sub)program from which g12baf is called.

Constraint:

ldz \geq n

7: $isz (m)$ – Integer array Input

On entry: indicates which subset of covariates is to be included in the model.

$isz (j) \geq 1$: The $j$ th covariate is included in the model.
$isz (j) = 0$: The $j$ th covariate is excluded from the model and not referenced.

Constraint:

isz (j) \geq 0

and at least one and at most

n_{0} - 1

elements of isz must be nonzero where

n_{0}

is the number of observations excluding any with zero value of isi.

8: $ip$ – Integer Input

On entry: the number of covariates included in the model as indicated by isz.

Constraints:

$ip \geq 1$ ;
$ip = number of nonzero values of isz$ .

9: $t (n)$ – Real (Kind=nag_wp) array Input

On entry: the vector of

n

failure censoring times.

10: $ic (n)$ – Integer array Input

On entry: the status of the individual at time

t

given in t.

$ic (i) = 0$: The $i$ th individual has failed at time $t (i)$ .
$ic (i) = 1$: The $i$ th individual has been censored at time $t (i)$ .

Constraint:

ic (i) = 0

1

, for

i = 1, 2, \dots, n

11: $omega (*)$ – Real (Kind=nag_wp) array Input

Note: the dimension of the array omega must be at least

n

offset ='Y'

, and at least

1

otherwise.

On entry: if

offset ='Y'

, the offset,

ω_{i}

, for

i = 1, 2, \dots, n

. Otherwise omega is not referenced.

12: $isi (*)$ – Integer array Input

Note: the dimension of the array isi must be at least

n

ns > 0

, and at least

1

otherwise.

On entry: if

ns > 0

, the stratum indicators which also allow data points to be excluded from the analysis.

ns = 0

, isi is not referenced.

$isi (i) = k$: The $i$ th data point is in the $k$ th stratum, where $k = 1, 2, \dots, ns$ .
$isi (i) = 0$: The $i$ th data point is omitted from the analysis.

Constraint: if

ns > 0

0 \leq isi (i) \leq ns

and more than ip values of

isi (i) > 0

, for

i = 1, 2, \dots, n

13: $dev$ – Real (Kind=nag_wp) Output

On exit: the deviance, that is

- 2 \times

(maximized log marginal likelihood).

14: $b (ip)$ – Real (Kind=nag_wp) array Input/Output

On entry: initial estimates of the covariate coefficient parameters

β

b (j)

must contain the initial estimate of the coefficient of the covariate in z corresponding to the

j

th nonzero value of isz.

Suggested value: in many cases an initial value of zero for

b (j)

may be used. For other suggestions see Section 9.

On exit:

b (j)

contains the estimate

{\hat{β}}_{i}

, the coefficient of the covariate stored in the

i

th column of z where

i

is the

j

th nonzero value in the array isz.

15: $se (ip)$ – Real (Kind=nag_wp) array Output

On exit:

se (j)

is the asymptotic standard error of the estimate contained in

b (j)

and score function in

sc (j)

, for

j = 1, 2, \dots, ip

16: $sc (ip)$ – Real (Kind=nag_wp) array Output

On exit:

sc (j)

is the value of the score function,

U_{j} (β)

, for the estimate contained in

b (j)

17: $cov (ip \times (ip + 1) / 2)$ – Real (Kind=nag_wp) array Output

On exit: the variance-covariance matrix of the parameter estimates in b stored in packed form by column, i.e., the covariance between the parameter estimates given in

b (i)

and

b (j)

j \geq i

, is stored in

cov (j (j - 1) / 2 + i)

18: $res (n)$ – Real (Kind=nag_wp) array Output

On exit: the residuals,

r (t_{l})

, for

l = 1, 2, \dots, n

19: $nd$ – Integer Output

On exit: the number of distinct failure times.

20: $tp (ndmax)$ – Real (Kind=nag_wp) array Output

On exit:

tp (i)

contains the

i

th distinct failure time, for

i = 1, 2, \dots, nd

21: $sur (ndmax *)$ – Real (Kind=nag_wp) array Output

Note: the second dimension of the array sur must be at least

\max (ns, 1)

On exit: if

ns = 0

sur (i, 1)

contains the estimated survival function for the

i

th distinct failure time.

ns > 0

sur (i, k)

contains the estimated survival function for the

i

th distinct failure time in the

k

th stratum.

22: $ndmax$ – Integer Input

On entry: the dimension of the array tp and the first dimension of the array sur as declared in the (sub)program from which g12baf is called.

Constraint:

ndmax \geq the number of distinct failure times. This is returned in ​ nd

23: $tol$ – Real (Kind=nag_wp) Input

On entry: indicates the accuracy required for the estimation. Convergence is assumed when the decrease in deviance is less than

tol \times (1.0 + CurrentDeviance)

. This corresponds approximately to an absolute precision if the deviance is small and a relative precision if the deviance is large.

Constraint:

tol \geq 10 \times machine precision

24: $maxit$ – Integer Input

On entry: the maximum number of iterations to be used for computing the estimates. If maxit is set to

0

then the standard errors, score functions, variance-covariance matrix and the survival function are computed for the input value of

β

in b but

β

is not updated.

Constraint:

maxit \geq 0

25: $iprint$ – Integer Input

On entry: indicates if the printing of information on the iterations is required.

$iprint \leq 0$: No printing.
$iprint \geq 1$: The deviance and the current estimates are printed every iprint iterations. When printing occurs the output is directed to the current advisory message unit (see x04abf).

26: $wk (ip \times (ip + 9) / 2 + n)$ – Real (Kind=nag_wp) array Workspace

27: $iwk (2 \times n)$ – Integer array Workspace

28: $ifail$ – Integer Input/Output

On entry: ifail must be set to

0

- 1

1

to set behaviour on detection of an error; these values have no effect when no error is detected.

A value of

0

causes the printing of an error message and program execution will be halted; otherwise program execution continues. A value of

- 1

means that an error message is printed while a value of

1

means that it is not.

If halting is not appropriate, the value

- 1

1

is recommended. If message printing is undesirable, then the value

1

is recommended. Otherwise, the value

0

is recommended. When the value $- 1$ or $1$ is used it is essential to test the value of ifail on exit.

On exit:

ifail = 0

unless the routine detects an error or a warning has been flagged (see Section 6).

6 Error Indicators and Warnings

If on entry

ifail = 0

- 1

, explanatory error messages are output on the current error message unit (as defined by x04aaf).

Errors or warnings detected by the routine:

$ifail = 1$: On entry, $ip = 〈value〉$ .
Constraint: $ip \geq 1$ .

On entry, $ldz = 〈value〉$ .
Constraint: $ldz \geq n$ .

On entry, $m = 〈value〉$ .
Constraint: $m \geq 1$ .

On entry, $maxit = 〈value〉$ .
Constraint: $maxit \geq 0$ .

On entry, $n = 〈value〉$ .
Constraint: $n \geq 2$ .

On entry, $ns = 〈value〉$ .
Constraint: $ns \geq 0$ .

On entry, $offset = 〈value〉$ .
Constraint: $offset ='Y'$ or $'N'$ .

On entry, $tol = 〈value〉$ .
Constraint: $tol \geq 10 \times machine precision$ .

$ifail = 2$: All observations are censored.

On entry, $i = 〈value〉$ , $isi (i) = 〈value〉$ and $ns = 〈value〉$ .
Constraint: $0 \leq isi (i) \leq ns$ .

On entry, $i = 〈value〉$ and $ic (i) = 〈value〉$ .
Constraint: $ic (i) = 0$ or $1$ .

On entry, $i = 〈value〉$ and $isz (i) = 〈value〉$ .
Constraint: $isz (i) \geq 0$ .

On entry, $ndmax = 〈value〉$ and minimum value for $ndmax = 〈value〉$ .
Constraint: $ndmax \geq number$ of distinct failure times.

On entry, there are not ip values of $isz > 0$ .

On entry too few observations included in model.

$ifail = 3$: The matrix of second partial derivative is singular. Try different starting values or include fewer covariates.

$ifail = 4$: Overflow has been detected in the calculations. Try using different starting values.

$ifail = 5$: Convergence not achieved in $〈value〉$ iterations. The progress toward convergence can be examined by using a nonzero value of iprint. Any non-convergence may be due to a linear combination of covariates being monotonic with time. The full results are returned.

$ifail = 6$: Too many step halvings required. In the current iteration $10$ step halvings have been preformed without decreasing the deviance from the previous iteration. The process is assumed to have converged.

$ifail = - 99$: An unexpected error has been triggered by this routine. Please contact NAG.
See Section 7 in the Introduction to the NAG Library FL Interface for further information.

$ifail = - 399$: Your licence key may have expired or may not have been installed correctly.
See Section 8 in the Introduction to the NAG Library FL Interface for further information.

$ifail = - 999$: Dynamic memory allocation failed.
See Section 9 in the Introduction to the NAG Library FL Interface for further information.

7 Accuracy

The accuracy is specified by tol.

8 Parallelism and Performance

g12baf is threaded by NAG for parallel execution in multithreaded implementations of the NAG Library.

g12baf makes calls to BLAS and/or LAPACK routines, which may be threaded within the vendor library used by this implementation. Consult the documentation for the vendor library for further information.

Please consult the X06 Chapter Introduction for information on how to control and interrogate the OpenMP environment used within this routine. Please also consult the Users' Note for your implementation for any additional implementation-specific information.

9 Further Comments

g12baf uses mean centering which involves subtracting the means from the covariables prior to computation of any statistics. This helps to minimize the effect of outlying observations and accelerates convergence.

If the initial estimates are poor then there may be a problem with overflow in calculating

\exp (β^{T} z_{i})

or there may be non-convergence. Reasonable estimates can often be obtained by fitting an exponential model using g02gcf.

10 Example

The data are the remission times for two groups of leukemia patients (see page 242 of Gross and Clark (1975)). A dummy variable indicates which group they come from. An initial estimate is computed using the exponential model and then the Cox proportional hazard model is fitted and parameter estimates and the survival function are printed.

g12ba: FL CL CPP AD

NAG FL Interfaceg12baf (coxmodel)

▸▿ Contents

1 Purpose

2 Specification

3 Description

4 References

5 Arguments

6 Error Indicators and Warnings

7 Accuracy

8 Parallelism and Performance

9 Further Comments

10 Example

10.1 Program Text

10.2 Program Data

10.3 Program Results

NAG FL Interface
g12baf (coxmodel)