Pessoal, boa noite. Sou recente no fórum e também no estudo com o R, mas estou aprendendo.<div>Bom, queria tirar uma dúvida, estou trabalhando em um script para analise de Modelos de Equações Estruturais, e sempre que tento rodar o script que fiz encontro o seguinte erro:</div>
<div><br></div><div>Iteration limit exceeded. </div><div><br></div><div>O Script é esse, desculpem-me pelo Inglês, mas a discussão do grupo é toda em inglês.</div><div><br clear="all"><div><div># MODEL II</div><div><br></div>
<div># Install the package 'sem'</div><div># carry data library</div><div><br></div><div>library (sem) <span class="Apple-tab-span" style="white-space:pre">  </span></div><div><br></div><div># Change R's directory to that in which the data base .CSV file is </div>
<div># Load database</div><div><br></div><div>teste<- read.csv("BaseSEM.csv",header=T)</div><div>teste</div><div><br></div><div># sem package model specification</div><div>mod.wh.1 <- specify.model()# Type these values that specify the model's relations (just use de Ctrl+R over each relation).</div>
<div>Support->SP,NA,1</div><div>Support->SM,sm1,NA</div><div>Rejection->RP,rp1,NA</div><div>Rejection->RM,NA,1</div><div>Overprot->OP,op1,NA</div><div>Overprot->OM,NA,1</div><div>MotI->MIAO,NA,1</div>
<div>MotI->MIEE,moti1,NA</div><div>MotI->MIC,moti2,NA</div><div>MotE->MERE,NA,1</div><div>MotE->MEIn,mote1,NA</div><div>MotE->MEId,mote2,NA</div><div>Support->MotI,NA,1</div><div>Rejection->MotI,rej1,NA</div>
<div>Overprot->MotI,over1,NA</div><div>Support->MotE,sup,NA</div><div>Rejection->MotE,rej2,NA</div><div>Overprot->MotE,NA,1</div><div>MotI->SCI,misci,NA</div><div>MotE->SCI,mesci,NA</div><div>Support<->Support,ss1,NA</div>
<div>Rejection<->Rejection,rr1,NA</div><div>Overprot<->Overprot,oo1,NA</div><div>OP<->OP,opcov,NA</div><div>OM<->OM,omcov,NA</div><div>SP<->SP,spcov,NA</div><div>SM<->SM,smcov,NA</div><div>
RP<->RP,rpcov,NA</div><div>RM<->RM,rmcov,NA</div><div>MotI<->MotI,micov,NA</div><div>MotE<->MotE,mecov,NA</div><div>MIAO<->MIAO,miaocov,NA</div><div>MIEE<->MIEE,mieecov,NA</div><div>MIC<->MIC,miccov,NA</div>
<div>MEIn<->MEIn,meincov,NA</div><div>MEId<->MEId,meidcov,NA</div><div>MERE<->MERE,merecov,NA</div><div>SCI<->SCI,scicov,NA</div><div>Support<->Rejection,suprej,NA</div><div>Support<->Overprot,supoover,NA</div>
<div>Rejection<->Overprot,rejover,NA</div><div>MotI<->MotE,mots1,NA</div><div><br></div><div># Insert de covariance matrix</div><div><br></div><div>cov.teste <- cov(teste, y = NULL, use = "everything", method = c("pearson", "kendall", "spearman"))</div>
<div>cov.teste</div><div><br></div><div># Estimate de model (Here is where we have been finding difficulties)</div><div><br></div><div>sem.wh.1 <- sem(mod.wh.1, cov.teste, N=126)</div><div>summary(sem.wh.1)</div></div>
<div><br></div><div>Obrigado!!!</div><div>João Ricardo</div>-- <br><u>Joao Ricardo N. Vissoci</u><div>Psicólogo CRP 08/12469</div><div>Prof. Ms. Faculdade Ingá</div><div>Doutorando em Psicologia Social - PUCsp</div><div>Grupo Pro-Esporte UEM/CNPq</div>
<div>Tel. 4499298078/4399368588</div><div><a href="http://joaovissoci@gmail.com/jrvissoci@ig.com.br" target="_blank">joaovissoci@gmail.com/jrvissoci@ig.com.br</a></div><div><a href="http://proesporteuem.blogspot.com.br" target="_blank">proesporteuem.blogspot.com.br</a></div>
<br>
</div>