Nothing
inst/doc/weibull.R
In biostatUZH: Misc Tools of the Department of Biostatistics, EBPI, University of Zurich
### R code from vignette source 'weibull.Rnw'
###################################################
### code chunk number 1: source
###################################################
library(biostatUZH)
data(larynx)
larynx$stage2 <- as.numeric(larynx$stage == 2)
larynx$stage3 <- as.numeric(larynx$stage == 3)
larynx$stage4 <- as.numeric(larynx$stage == 4)
###################################################
### code chunk number 2: WeibullReg
###################################################
WeibullReg(Surv(time, death) ~ stage2 + stage3 + stage4 + age, data=larynx)
###################################################
### code chunk number 3: coxph
###################################################
summary(coxph(Surv(time, death) ~ stage2 + stage3 + stage4 + age, data=larynx))$conf.int
###################################################
### code chunk number 4: DiagPlot
###################################################
fm <- Surv(time, death) ~ stage
diagWR <- WeibullDiag(fm, larynx, labels=c("Stage I", "Stage II", "Stage III", "Stage IV"))
Try the biostatUZH package in your browser
Any scripts or data that you put into this service are public.
biostatUZH documentation built on May 2, 2019, 6:06 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
### R code from vignette source 'weibull.Rnw'
###################################################
### code chunk number 1: source
###################################################
library(biostatUZH)
data(larynx)
larynx$stage2 <- as.numeric(larynx$stage == 2)
larynx$stage3 <- as.numeric(larynx$stage == 3)
larynx$stage4 <- as.numeric(larynx$stage == 4)
###################################################
### code chunk number 2: WeibullReg
###################################################
WeibullReg(Surv(time, death) ~ stage2 + stage3 + stage4 + age, data=larynx)
###################################################
### code chunk number 3: coxph
###################################################
summary(coxph(Surv(time, death) ~ stage2 + stage3 + stage4 + age, data=larynx))$conf.int
###################################################
### code chunk number 4: DiagPlot
###################################################
fm <- Surv(time, death) ~ stage
diagWR <- WeibullDiag(fm, larynx, labels=c("Stage I", "Stage II", "Stage III", "Stage IV"))
Try the biostatUZH package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.