Fitxer:Estimació de Kaplan-Meier de la supervivència de malalts amb sida.svg
Mida d'aquesta previsualització PNG del fitxer SVG: 600 × 600 píxels. Altres resolucions: 240 × 240 píxels | 480 × 480 píxels | 768 × 768 píxels | 1.024 × 1.024 píxels | 2.048 × 2.048 píxels | 630 × 630 píxels.
Fitxer original (fitxer SVG, nominalment 630 × 630 píxels, mida del fitxer: 83 Ko)
 | Aquest fitxer i la informació mostrada a continuació provenen del dipòsit multimèdia lliure Wikimedia Commons. Vegeu la pàgina original a Commons |
Resum
| Descripció |
Català: Dades de malalts amb sida d'Austrália
Descripció de les dades: http://stat.ethz.ch/R-manual/R-patched/library/MASS/html/Aids2.html |
| Data | |
| Font | Treball propi |
| Autor | Pep Roca |
| SVG genesis | |
| Codi font | R code## Biblioteca on estan les dades
library(MASS)
## Càlcul del temps i variable estat
Aids2$DIES = Aids2$death - Aids2$diag
## Fer la variable muda (factor) ESTAT al final del seguiment
Aids2$ESTAT = as.integer(Aids2$status == "D")
## Selecció dels homosexuals (el valor de la variable ''T.categ'' és "hs") i les dos variables d'interès
AIDS2_HS = subset(Aids2, T.categ=="hs", select = c(ESTAT, DIES, state))
AIDS2_HS = subset(Aids2, T.categ=="hs", select = c(DIES, ESTAT))
library(survival)
AIDS2_HS.KM <- survfit(Surv(AIDS2_HS$DIES, AIDS2_HS$ESTAT) ~ 1)
library(grDevices)
svg("mass_aids_hs_km_med.svg")
plot(AIDS2_HS.KM, mark.time="none", conf.int="none", main="Estimació de la supervivència de Kaplan-Meier", xlab="Temps (dies des del diagnòstic)", ylab="S(t): Proporció de vius", xlim=c(0, 2000))
## Línea mediana
MEDIANA=print(read.table(textConnection(capture.output(AIDS2_HS.KM)),skip=2,header=TRUE)$median)
MEDIANA
lines(x=c(0, MEDIANA),y=c(0.5,0.5), lty=2)
lines(x=c(MEDIANA,MEDIANA),y=c(0.5,0), lty=2, col="red")
dev.off()
|
Llicència
Jo, el titular dels drets d'autor d'aquest treball, el public sota la següent llicència:
Aquest fitxer està subjecte a la llicència de Creative Commons Reconeixement i Compartir Igual 3.0 No adaptada.
- Sou lliure de:
- compartir – copiar, distribuir i comunicar públicament l'obra
- adaptar – fer-ne obres derivades
- Amb les condicions següents:
- reconeixement – Heu de donar la informació adequada sobre l'autor, proporcionar un enllaç a la llicència i indicar si s'han realitzat canvis. Podeu fer-ho amb qualsevol mitjà raonable, però de cap manera no suggereixi que l'autor us dóna suport o aprova l'ús que en feu.
- compartir igual – Si modifiqueu, transformeu, o generareu amb el material, haureu de distribuir les vostres contribucions sota una llicència similar o una de compatible com l'original
Historial del fitxer
Cliqueu una data/hora per veure el fitxer tal com era aleshores.
| Data/hora | Miniatura | Dimensions | Usuari/a | Comentari | |
|---|---|---|---|---|---|
| actual | 10:23, 16 jul 2012 | | 630 × 630 (83 Ko) | Pep Roca | Línia vertical de la mediana en vermell |
| 12:48, 11 jul 2012 |  | 630 × 630 (80 Ko) | Pep Roca |
Ús del fitxer
La pàgina següent utilitza aquest fitxer:
