File: parallel-censboot.R

package info (click to toggle)
boot 1.3-32-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,220 kB
  • sloc: makefile: 2
file content (12 lines) | stat: -rw-r--r-- 358 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
 
## Reported by Duncan Murdoch (from StackOverflow) 2021-02-04

library(survival)
library(boot)
statMeanSurv <- function(data, var) {
    surv <- survfit(Surv(time, cens) ~ 1, data = data)
    mean(surv$surv) + var
}
## both have datasets aml
res <- censboot(boot::aml, statMeanSurv, R = 5L, var = 1,
                parallel = "multicore", ncpus = 2L)
res$t