#Carga de datos biomedicos
mis_datos <- read.csv("/work/asegura/Master/SAD/Unidad1/valung.csv")
#Visualizar primeras filas
head(mis_datos)## therapy cell t dead kps diagtime age prior
## 1 standard Squamous 72 dead 60 7 69 no
## 2 standard Squamous 411 dead 70 5 64 yes
## 3 standard Squamous 228 dead 60 3 38 no
## 4 standard Squamous 126 dead 60 9 63 yes
## 5 standard Squamous 118 dead 70 11 65 yes
## 6 standard Squamous 10 dead 20 5 49 no