Lung Cancer Clinical Trial

Survival times for patients suffering lung cancer for a treatment and control group.

Usage

data(lungcancer)

Format

A data frame with 14 observations on the following 3 variables.

time

survival time in days.

cens

censoring indicator: 0 censored, 1 event.

group

a factor with levels control and newdrug.

Details

The data is given in Table 9.19, page 293, of Metha and Pathel (2001). The two-sided p-value for the log-rank test is 0.001 (page 295).

References

Cyrus R. Mehta & Nitin R. Patel (2001), StatXact-5 for Windows. Manual, Cytel Software Cooperation, Cambridge, USA

Examples

data(lungcancer)
attach(lungcancer)

# round logrank scores
scores <- cscores.Surv(cbind(time, cens))
T <- sum(scores[group=="newdrug"])
mobs <- sum(group=="newdrug")
(prob <- pperm(T, scores, m=mobs, al="le"))
#> [1] 0.000999001
pperm(T, scores, m=mobs, al="tw")
#> [1] 0.000999001
pperm(T, scores, m=mobs, al="tw", simulate=TRUE)
#> [1] 7e-04

# map into integers, faster
scores <- cscores.Surv(cbind(time, cens), int=TRUE)
T <- sum(scores[group=="newdrug"])
mobs <- sum(group=="newdrug")
(prob <- pperm(T, scores, m=mobs, al="le"))
#> [1] 0.000999001
pperm(T, scores, m=mobs, al="tw")
#> [1] 0.000999001
pperm(T, scores, m=mobs, al="tw", simulate=TRUE)
#> [1] 0.0013

detach(lungcancer)