Il pacchetto muhaz
stima lo hazard function dai dati right censored utilizzando i metodi di smoothing del kernel. La mia domanda è, c'è un modo per ottenere intervalli di confidenza per la funzione di pericolo che calcola muhaz
?Intervalli di confidenza della funzione di rischio pacchetto muhaz
options(scipen=999)
library(muhaz)
data(ovarian, package="survival")
attach(ovarian)
fit1 <- muhaz(futime, fustat)
plot(fit1, lwd=3, ylim=c(0,0.002))
Nell'esempio sopra la muhaz.object
fit
presenta alcune voci fit1$msemin
, fit1$var.min
, fit1$haz.est
tuttavia la loro lunghezza è metà fit1$haz.est
.
Qualche idea se è possibile estrarre intervalli di confidenza per la funzione di rischio?
EDIT: Ho provato quanto segue based con quello @ user20650 suggerito
options(scipen=999)
library(muhaz)
data(ovarian, package="survival")
fit1 <- muhaz(ovarian$futime, ovarian$fustat,min.time=0, max.time=744)
h.df<-data.frame(est=fit1$est.grid, h.orig=fit1$haz.est)
for (i in 1:10000){
d.s.onarian<-ovarian[sample(1:nrow(ovarian), nrow(ovarian), replace = T),]
d.s.muhaz<-muhaz(d.s.onarian$futime, d.s.onarian$fustat, min.time=0, max.time=744)
h.df<-cbind(h.df, d.s.muhaz$haz.est)
}
h.df$upper.ci<-apply(h.df[,c(-1,-2)], 1, FUN=function(x) quantile(x, probs = 0.975))
h.df$lower.ci<-apply(h.df[,c(-1,-2)], 1, FUN=function(x) quantile(x, probs = 0.025))
plot(h.df$est, h.df$h.orig, type="l", ylim=c(0,0.003), lwd=3)
lines(h.df$est, h.df$upper.ci, lty=3, lwd=3)
lines(h.df$est, h.df$lower.ci, lty=3, lwd=3)
Impostazione max.time sembra opere, ogni campione HAST bootstrap gli stessi punti della griglia stima. Tuttavia, l'IC ha ottenuto, ha poco senso. Normalmente mi aspetterei che gli intervalli siano stretti a t = 0 e diventino più ampi col tempo (meno informazioni, più incertezza) ma gli intervalli ottenuti sembrano essere più o meno costanti nel tempo.
Potrebbe riavviarlo ?. Questo 'con (fit1, trama (est.grid, haz.est, type =" l ", lwd = 3, ylim = c (0,0.002)))' fornisce lo stesso grafico, quindi avrai bisogno di stime di 'haz .est' con gli stessi punti di tempo di 'fit1'. Tuttavia, mentre ricampionate e rimontate il modello 'muhaz', cambiano i tempi, da un rapido tentativo, penso che potete forzare' est.grid' ad essere agli stessi punti di tempo per ogni ricampionamento se impostate il 'min.time' e 'max.time' per essere uguale alla misura originale. cioè 'con (dat, muhaz (futime, fustat, min.time = 0, max.time = 744))', dove 'dat' sono i dati di bootstrap. – user20650
Impostazione max.il tempo sembra funzionare, ogni campione di bootstrap ha gli stessi punti della griglia di stima. Tuttavia, l'IC ha ottenuto, ha poco senso. Normalmente mi aspetterei che gli intervalli si allarghino con il tempo (meno informazioni, più incertezza) ma gli intervalli ottenuti sembrano essere più o meno costanti nel tempo. – ECII