Objetivo:

crear una función que encuentre la máxima diferencia de tiempo de supervivencia entre dos curvas de supervivencia.

La función regresará un gráfico donde se imprima la diferencia máxima.

NOTA:

Tengamos en cuenta que como tenemos variables discretas, utilizamos una función para suavizar las curvas, de tal forma que se pierden datos.

Ejemplo 1:

Tenemos 40 individuos separados por grupos y sometidos a un estudio:

Grupo 1: Se evaluará si padecen cáncer

Grupo 2: Se evaluará si padecen hepatitis

De esta forma tendremos como variable de tiempo la edad de muerte y la falla si presentaron o no la enfermedad respectiva

dat<-read.csv("C:/Users/user/Documents/datas.csv")
Falla=dat$Falla
tiempo=dat$Edad.muerte
tipo=dat$Grupo
datos=dat

distanciaSuper(Falla,tiempo,tipo,datos)

Ejemplo 2:

(Tomado del código en RStudio Cloud)

dat1<-read.csv("C:/Users/user/Documents/WA_Fn-UseC_-Telco-Customer-Churn.csv")
Falla1=dat1$Churn
tiempo1=dat1$tenure
tipo1=dat1$gender
datos1=dat1

distanciaSuper(Falla1,tiempo1,tipo1,datos1)