Kaplan_Meier: Kaplan Maier

In stp4/stp25APA2: Resultate Formatiern

Description

Summary -Funktion f<c3><bc>r Kaplan-Maier Beispiel unter (see hkarz)

Mediane

m <- Surv(Time, status) ~ 1

res <- survfit(m, DF)

APA2(res, caption="Kaplan-Meier")

survival rate at a certain time

APA2(summary(res, times=c(5, 10, 15)))

Arguments

x	Objekt
...	weitere Objekte nicht benutzt

Value

A tibble with counted tagged NA values.

Examples

#require(survival)
 
#Projekt("html")
### Magenkarzinom ###
mkarz <- GetData("C:/Users/wpete/Dropbox/3_Forschung/1 Statistik/BspDaten/SPSS/_Buehl/MKARZ.SAV")
# Text("Buehl Seite 553", style=3)
#Text("Die Datei mkarz.sav ist ein Datensatz mit 106 Patientan
#     mit Magenkarzinom <c3><83><c2><bc>ber einen Zeitraum von 5 Jahren")

mkarz %>% Tabelle2(survive="median", status, lkb)
mkarz$status<- ifelse(mkarz$status=="tot", 1, 0)

#Head("Kaplan-Meier estimator without grouping", style=3)
#Text("
#     m0 <- Surv(survive, status) ~ 1
#     res0<- survfit(m0, mkarz)
#
#     ")
m0 <- Surv(survive, status) ~ 1
res0<- survfit(m0, mkarz)
APA2(res0)
#windows(8,4)
#par(mfrow=c(1,2))
#plot( res0 , ylab="Hazard", mark.time = T)
#plot( res0, fun="cumhaz",  ylab="Cumulative Hazard" )
#SaveData(caption="plot: mkarz")




m1 <- Surv(survive, status) ~ lkb
res1<- survfit(m1, mkarz)
fit1<- coxph(m1, mkarz)
logrank1<- survdiff(m1, mkarz)
model_info(logrank1)
APA2(res1, caption="Kaplan-Meier")
APA2(logrank1)
APA2(coxph(m1,mkarz))

#End()

stp4/stp25APA2 documentation built on May 24, 2019, 9:59 p.m.