<div dir="ltr"><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">Amigos de R, </div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">Estou tentando fazer uma função com alguns loops que comparam modelos em diferentes subsets de dados. No caminho, eu precisaria extrair a parte dependente das formulas dos modelos, mas não estou sabendo como. O que me interessa é repetir a parte dependente da fomrula nos diferente subsets. </div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;color:rgb(7,55,99)">> library(survival)</div><div class="gmail_default" style="font-family:"arial black",sans-serif;color:rgb(7,55,99)">> f <- coxph(Surv(time, status) ~ ph.ecog + age, data=lung)</div><div class="gmail_default" style="font-family:"arial black",sans-serif;color:rgb(7,55,99)">> f$formula</div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">Surv(time, status) ~ ph.ecog + age </div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"># Eu gostaria de extrair o "Surv(time, status)" para um objeto de tal forma que eu consiga seguir um modelo igual ao abaixo.</div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)">objeto <- Surv(time, status) # Esse passo que eu não estou conseguindo. E deveria vir do primeiro fit "f"</div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><div class="gmail_default">f2 <- survfit(objeto ~ 1, data=lung, subset = lung$age >= 63 , type = "kaplan-meier")</div><div>f2b <- survfit(objeto~ 1, data=lung, subset = lung$age < 63 , type = "kaplan-meier")<br></div><div><br></div><div>Abraço forte,</div></div><div class="gmail_default" style="font-family:"arial black",sans-serif;font-size:small;color:rgb(7,55,99)"><br></div><div><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066">Pedro Brasil</font></div></div></div></div></div></div>
</div>