<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Prezados, quero fazer uma análise utilizando o pacote mstate e estou empacada na hora de transformar os dados para "formato longo".</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Os estados são: internação para alta, internação para óbito, alta para óbito e alta para readmissão.</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Criei o st1 - alta, st2 - óbito e st3 - readmissão.</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Os tempos ficaram:</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">t1 - internação até a alta</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">t2 - internação ao óbito</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">t3 - internação até a readmissão</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Na verdade não sei se era para criar os tempos assim, pois tem óbitos no hospital (antes da alta) e óbitos após a alta.</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Criei a matriz com as possíveis transições de estados.</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Na hora que tento preparar o banco com o comando msprep, dá o seguinte erro:</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47"><br></div><div class="gmail_default"><div class="gmail_default"><font face="times new roman, serif" color="#000000">Erro em Tstop * 1/stat : argumento não-numérico para operador binário</font></div><div style="color:rgb(116,27,71);font-family:verdana,sans-serif"><br></div></div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Estou enviando um banco reduzido para teste.</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Caso alguém tenha experiência, poderia me dizer que erro é esse que está saindo no final?</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Obrigada,</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47">Fátima</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:#741b47"><br></div><div class="gmail_default"><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">#Dados</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">m<-as.data.frame(matrix(0,ncol=7,nrow=15))</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">colnames(m)<-c("id","st3","st1","st2","t3","t1","t2")</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">m$id<-c(1:15)</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">m$st3<-c(rep("1",7),rep("0",8))</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">m$st1<-c(rep("1",10),"0",rep("1",3),"0")</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">m$st2<-c(rep("0",10),rep("1",5))</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">t3<-c("33","102","442","798","305","98","751","14","31","8","6","44","21","32","7")</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">t1<-c("32","26","32","9","44","12","15","14","31","8","6","9","18","1","7")</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">t2<-c("33","102","442","798","305","98","751","14","31","8","6","44","21","32","7")</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">m</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">#st3="1" para readmitido e "0" para não readmitido</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">#st1="1" para alta e "0" para quem morreu no hospital</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">#st2="1" para quem morreu no hospital e após a alta e "0" para quem não morreu</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">#t3=tempo da internação até a readmissão</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">#t1=tempo da internação até a alta</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">#t2=tempo da internação até o óbito</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">#Criando a matriz </font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">tmat<-matrix(NA,4,4)</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">tmat[1,c(2,3)]<-c(1,2)</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">tmat[2,3:4]<-3:4</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">dimnames(tmat)<-list(from=c("Int","Alta","Obito","Read"),to=c("Int","Alta",</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">  "Obito","Read"))</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">tmat</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">#Passando o banco para longo</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">library(mstate)</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">msb1<-msprep(time=c(NA,"t1","t2","t3"),</font></div><div class="gmail_default"><font color="#741b47" face="verdana, sans-serif">  status=c(NA,"st1","st2","st3"),data=m,id="id",trans=tmat)</font></div><div class="gmail_default" style="color:rgb(116,27,71);font-family:verdana,sans-serif"><br></div></div><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div><span style="color:rgb(103,78,167);font-family:'comic sans ms',sans-serif">"Minha felicidade depende da qualidade dos meus pensamentos"</span><br></div></div></div>
</div>