drawFUSurv: Draw Kaplan-Meier Survival Curve For Follow-up Data

Description Usage Arguments Examples

View source: R/tdpois.R

Description

Draw Kaplan-Meier Survival Curve For Follow-up Data

Usage

1
drawFUSurv(model, data)

Arguments

model

An object of class gam

data

A data.frame

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
library(survival)
library(mgcv)
pbcseq$status1 <- as.numeric(pbcseq$status==2) ## deaths
pb <- tdpois(pbcseq) ## conversion
pb$tf <- factor(pb$futime) ## add factor for event time
b <- bam(z ~ tf - 1 + trt + s(sqrt(protime)) + s(platelet) + s(age) + s(bili) +
s(albumin) + s(sqrt(ast)),family=poisson,data=pb,discrete=TRUE,nthreads=2)
data=pbcseq[pbcseq$id %in% c(10,25,66),]
data=pbcseq[pbcseq$id %in% c(25),]
drawFUSurv(b,data)

cardiomoon/ggGam documentation built on May 2, 2020, 9:58 a.m.