Exit é inicialmente definida como NAs, mas depois uma série de valores são colocados nelas. O código todo desde a definição de Exit até a de trace é o seguinte.<div><br></div><div><div><br></div><div>Exit<-array(rep(NA,7*14),dim=c(7,14))</div>
<div><br></div><div>#alpha1</div><div>Exit[1,1]<-alphaE1</div><div>Exit[2,1]<-alphaE1</div><div>Exit[3,1]<-alphaE1</div><div>Exit[4,1]<-alphaI1</div><div>Exit[5,1]<-alphaD1</div><div>Exit[6,1]<-alphaS1</div>
<div>Exit[7,1]<-alphaA1</div><div><br></div><div>#alpha2</div><div>Exit[1,2]<-alphaE2</div><div>Exit[2,2]<-alphaE2</div><div>Exit[3,2]<-alphaE2</div><div>Exit[4,2]<-alphaI2</div><div>Exit[5,2]<-alphaD2</div>
<div>Exit[6,2]<-alphaS2</div><div>Exit[7,2]<-alphaA2</div><div><br></div><div>#RMSEA1</div><div>Exit[1,3]<-CFA4[1,4,1]</div><div>Exit[2,3]<-CFA4[1,4,1]</div><div>Exit[3,3]<-CFA4[1,4,1]</div><div>Exit[4,3]<-CFA4[2,4,1]</div>
<div>Exit[5,3]<-CFA4[3,4,1]</div><div>Exit[6,3]<-CFA4[4,4,1]</div><div>Exit[7,3]<-CFA10[1,4,1]</div><div><br></div><div>#RMSEA2</div><div>Exit[1,4]<-CFA4[1,4,2]</div><div>Exit[2,4]<-CFA4[1,4,2]</div><div>Exit[3,4]<-CFA4[1,4,2]</div>
<div>Exit[4,4]<-CFA4[2,4,2]</div><div>Exit[5,4]<-CFA4[3,4,2]</div><div>Exit[6,4]<-CFA4[4,4,2]</div><div>Exit[7,4]<-CFA10[1,4,2]</div><div><br></div><div>#2nd greatest eigenvalue</div><div>Exit[7,5]<-eigen2[1,1]</div>
<div>Exit[7,5]<-eigen2[1,2]</div><div><br></div><div>#R2 regression sumated scale</div><div>Exit[1,6]<-summary(rEE)$r.squared</div><div>Exit[2,6]<-summary(rED)$r.squared</div><div>Exit[3,6]<-summary(rEI)$r.squared</div>
<div>Exit[4,6]<-summary(rII)$r.squared</div><div>Exit[5,6]<-summary(rDD)$r.squared</div><div>Exit[6,6]<-summary(rSS)$r.squared</div><div><br></div><div>#p regression sumated scale</div><div>Exit[1,7]<-summary(rEE)$coef[7]</div>
<div>Exit[2,7]<-summary(rED)$coef[7]</div><div>Exit[3,7]<-summary(rEI)$coef[7]</div><div>Exit[4,7]<-summary(rII)$coef[7]</div><div>Exit[5,7]<-summary(rDD)$coef[7]</div><div>Exit[6,7]<-summary(rSS)$coef[7]</div>
<div>Exit[7,7]<-summary(rAA)$coef[7]</div><div><br></div><div>#R2 regression IRT</div><div>Exit[1,8]<-summary(rScEE)$r.squared</div><div>Exit[2,8]<-summary(rScED)$r.squared</div><div>Exit[3,8]<-summary(rScEI)$r.squared</div>
<div>Exit[4,8]<-summary(rScII)$r.squared</div><div>Exit[5,8]<-summary(rScDD)$r.squared</div><div>Exit[6,8]<-summary(rScSS)$r.squared</div><div>Exit[6,8]<-summary(rScAA)$r.squared</div><div><br></div><div>#p regression IRT</div>
<div>Exit[1,9]<-summary(rScEE)$coef[7]</div><div>Exit[2,9]<-summary(rScED)$coef[7]</div><div>Exit[3,9]<-summary(rScEI)$coef[7]</div><div>Exit[4,9]<-summary(rScII)$coef[7]</div><div>Exit[5,9]<-summary(rScDD)$coef[7]</div>
<div>Exit[6,9]<-summary(rScSS)$coef[7]</div><div>Exit[7,9]<-summary(rScAA)$coef[7]</div><div><br></div><div>#---------</div><div>#SEM part</div><div>#---------</div><div><br></div><div>#Easy-Easy</div><div>Exit[1,10]<-SEM[1,1] #Chi2</div>
<div>Exit[1,11]<-SEM[1,2] #Chi2/df</div><div>Exit[1,12]<-SEM[1,3] #CFI</div><div>Exit[1,13]<-SEM[1,4] #RMSEA</div><div>Exit[1,14]<-slink[1] #p</div><div><br></div><div>#E-D</div><div>Exit[2,10]<-SEM[5,1] #Chi2</div>
<div>Exit[2,11]<-SEM[5,2] #Chi2/df</div><div>Exit[2,12]<-SEM[5,3] #CFI</div><div>Exit[2,13]<-SEM[5,4] #RMSEA</div><div>Exit[2,14]<-slink[5] #p</div><div><br></div><div>#I-I</div><div>Exit[4,10]<-SEM[2,1] #Chi2</div>
<div>Exit[4,11]<-SEM[2,2] #Chi2/df</div><div>Exit[4,12]<-SEM[2,3] #CFI</div><div>Exit[4,13]<-SEM[2,4] #RMSEA</div><div>Exit[4,14]<-slink[2] #p</div><div><br></div><div>#D-D</div><div>Exit[5,10]<-SEM[3,1] #Chi2</div>
<div>Exit[5,11]<-SEM[3,2] #Chi2/df</div><div>Exit[5,12]<-SEM[3,3] #CFI</div><div>Exit[5,13]<-SEM[3,4] #RMSEA</div><div>Exit[5,14]<-slink[3] #p</div><div><br></div><div>#S-S</div><div>Exit[6,10]<-SEM[4,1] #Chi2</div>
<div>Exit[6,11]<-SEM[4,2] #Chi2/df</div><div>Exit[6,12]<-SEM[4,3] #CFI</div><div>Exit[6,13]<-SEM[4,4] #RMSEA</div><div>Exit[6,14]<-slink[4] #p</div><div><span class="Apple-tab-span" style="white-space:pre">      </span></div>
<div><br></div><div>tr[,,count]<-Exit</div><div><span class="Apple-tab-span" style="white-space:pre">  </span></div><div>mais uma vez, obrigado,</div><div><br>Felipe</div><br><div class="gmail_quote">2011/12/8 Benilton Carvalho <span dir="ltr"><<a href="mailto:beniltoncarvalho@gmail.com">beniltoncarvalho@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">mas sua sua matriz 'tr' eh de NA e vc esta' substituindo por outra de<br>
NA, o q vc esperaria obter? (q pedaco de informacao eu perdi?)<br>
<div class="HOEnZb"><div class="h5">_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</div></div></blockquote></div><br></div>