<div dir="ltr">Boa noite! Muito obrigada a todos! Testei todas as soluções e elas foram muito úteis. Realmente faltava a indexação. </div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 25 de abril de 2014 17:05, Leandro Marino <span dir="ltr"><<a href="mailto:leandromarino@leandromarino.com.br" target="_blank">leandromarino@leandromarino.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)">
ou seria isto?</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)">
<br></div><div class="gmail_default"><font color="#333333" face="trebuchet ms, sans-serif">ifelse(Sit==1,(100 + d1 ^ 2 - d2 ^ 2) / 20,ifelse(Sit==2,(10 + (100 + d1 ^ 2 - d2 ^ 2) / 20),(400 + d1 ^ 2 - d2 ^ 2) / 40))</font><br>
</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 25 de abril de 2014 16:51, Márcio Souza <span dir="ltr"><<a href="mailto:souza.mlm@gmail.com" target="_blank">souza.mlm@gmail.com</a>></span> escreveu:<div>
<div class="h5"><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Gente,<div><br></div><div>Da maneira que está o script, k vai ser um vetor... não uma constante, como Emily quer, suponho.</div>
<div>E outra: a cada volta do loop, k é substituído por um novo vetor...</div><div>
<br></div><div>Emily: k é um vetor mesmo, como estou pensando?? Ou... k era pra ser uma constante? (dependendo da resposta, a solução se torna mais tranquila).</div><div><br></div><div>Abs.</div><div><br></div><div><br></div>
</div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 25 de abril de 2014 16:37, Luciano F. Sgarbi <span dir="ltr"><<a href="mailto:luciano.f.sgarbi@gmail.com" target="_blank">luciano.f.sgarbi@gmail.com</a>></span> escreveu:<div>
<div><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif;font-size:small">Seria isso?</div><div class="gmail_default">
<div class="gmail_default"><font face="verdana, sans-serif">for(i in Sit){</font></div>
<div class="gmail_default"><font face="verdana, sans-serif"> if(i==1){</font></div><div class="gmail_default"><font face="verdana, sans-serif"> k<-(100 + d1 ^ 2 - d2 ^ 2) / 20</font></div><div class="gmail_default">
<font face="verdana, sans-serif"> </font></div><div class="gmail_default"><font face="verdana, sans-serif"> } else if(i==2){</font></div><div class="gmail_default"><font face="verdana, sans-serif"> k<-(10 + (100 + d1 ^ 2 - d2 ^ 2) / 20)</font></div>
<div class="gmail_default"><font face="verdana, sans-serif"> } else {</font></div><div class="gmail_default"><font face="verdana, sans-serif"> k<-(400 + d1 ^ 2 - d2 ^ 2) / 40</font></div><div class="gmail_default">
<font face="verdana, sans-serif"> }</font></div><div class="gmail_default"><font face="verdana, sans-serif"> print(k)</font></div><div class="gmail_default"><font face="verdana, sans-serif">}</font></div></div></div>
<div class="gmail_extra"><br><br><div class="gmail_quote">Em 25 de abril de 2014 16:30, Evelyn Alecrim <span dir="ltr"><<a href="mailto:alecryn@yahoo.com.br" target="_blank">alecryn@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="font-size:12pt;font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif"><div>
Boa tarde, </div><div><br></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif">Tenho a seguinte situação, tenho três variáveis: Sit, d1 e d2. Gostaria que um valor (k) fosse calculado levando em consideração o valor de Sit, ou seja, para cada Sit uma fórmula diferente seria usada, como abaixo. </div>
<div style="font-style:normal;font-size:16px;background-color:transparent;font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif"><br></div><div style="background-color:transparent">
Sit=c(3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, </div><div style="background-color:transparent"> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)</div><div style="background-color:transparent"><br></div><div style="background-color:transparent">
d1=c(1.27, 5.80, 2.42, 3.11, 5.25, 4.74, 5.42, 5.14, 5.27, 5.61, 6.09, 6.38, 6.34, 8.60,</div><div style="background-color:transparent"> 7.36, 9.96, 10.86, 11.35, 8.94, 9.19, 8.66, 8.98, 9.86, 9.94, 11.59, 15.61,</div>
<div style="background-color:transparent"> 6.28, 7.83, 7.94, 7.67, 8.62, 9.43, 9.00)</div><div style="background-color:transparent"><br></div><div style="background-color:transparent">d2=c(9.12, 10.81, 10.21, 7.11, 7.23, 7.62, 7.69, 7.59, 5.73, </div>
<div style="background-color:transparent"> 5.39, 5.35, 5.42, 5.32, 3.84, 2.89, 0.70, 1.65, 2.32, 4.01,</div><div style="background-color:transparent"> 4.16, 4.32, 4.74, 5.12, 3.01, 1.91, 7.33,</div>
<div style="background-color:transparent"> 3.81, 2.27, 2.22, 4.44, 4.76, 7.35, 7.35)</div><div style="background-color:transparent"><br></div><div style="background-color:transparent">for(i in 1:seq_along(Sit)){</div>
<div style="background-color:transparent"> if(Sit==1){</div><div style="background-color:transparent">
k<-(100 + d1 ^ 2 - d2 ^ 2) / 20</div><div style="background-color:transparent"> </div><div style="background-color:transparent"> } else if(Sit==2){</div><div style="background-color:transparent"> k<-(10 + (100 + d1 ^ 2 - d2 ^ 2) / 20)</div>
<div style="background-color:transparent"> } else {</div><div style="background-color:transparent"> k<-(400 + d1 ^ 2 - d2 ^ 2) / 40</div><div style="background-color:transparent"> }</div><div style="background-color:transparent">
print(k)</div><div style="background-color:transparent">}</div><div><br></div><div>No entanto, o R me retorna a seguinte mensagem: </div><div><br></div><div><div>[1] 7.960963 7.919597
7.540307 8.978000 9.382240 9.110080 9.256007 9.220288 9.873500 10.060500 10.211640 10.283200 10.297330 11.480360 11.145437</div><div>[16] 12.467790 12.880427 13.086003 11.596087 11.678762 11.408330 11.454320 11.775130 12.243588 13.267000 14.748580 10.623057 11.403900 11.452880 10.977882</div>
<div>[31] 11.291170 10.872560 10.674437</div><div>Mensagens de aviso perdidas:</div><div>1: In 1:seq_along(Sit) :</div><div> expressão numérica tem 33 elementos: somente o primeiro usado</div><div>2: In if (Sit == 1) { :</div>
<div> a condição tem comprimento > 1 e somente o primeiro elemento será usado</div><div>3: In if (Sit == 2) { :</div><div> a condição tem comprimento > 1 e somente o primeiro elemento será usado</div><div><br></div>
<div><br></div><div>Parece que ele está calculando usando apenas a terceira fórmula. Alguém pode dar uma luz? </div><div>Obrigada, </div><div>Emily</div></div></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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.<span><font color="#888888"><br></font></span></blockquote>
</div><span><font color="#888888"><br><br clear="all"><div><br></div>-- <br>
<div dir="ltr"><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><div><font face="courier new, monospace" color="#444444"><i><span style="font-size:12.727272033691406px">Luciano F. Sgarbi</span><br>
</i></font></div><div><font face="courier new, monospace" color="#444444"><i><a href="http://lattes.cnpq.br/9788198135883354" target="_blank"> Currículo Lattes</a><br style="font-size:12.727272033691406px">
</i></font><i style="color:rgb(68,68,68);font-family:'courier new',monospace"><span style="font-size:12.727272033691406px">Dep. Ecologia, </span><span style="font-size:12.727272033691406px">Instituto de Ciências Biológicas I</span></i><font face="courier new, monospace" color="#444444"><i><br>
</i></font><div><i><font color="#444444"><font face="courier new, monospace" style="font-size:12.727272033691406px">Universidade Federal de Goiás, campus II, Goiânia-GO, </font><font face="courier new, monospace">Brasil</font></font></i></div>
</div></div>
</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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></blockquote></div></div></div><span><font color="#888888"><br>
<br clear="all"><div><br></div>-- <br>
<div dir="ltr"><img src="http://yd8fzw.blu.livefilestore.com/y1pnffN5MgiAejCR2myD2UC5Un09ZVA7q21aARAJryYrZkrM37mf2Wt5Esyl66nhcThokwdjQFv-06rZzlsuezloEsTsCD8Bv9y/Doing%20R%20thing.jpg?psid=1" height="87" width="96"><br><div style="line-height:130%;text-align:left;font-size:10px;overflow:hidden;margin-left:0px;word-wrap:break-word;margin-top:0px;padding:0px">
</div><div><div><div>Prof. Márcio Souza, M.Sc.<div><div><i style="color:rgb(102,102,102);font-size:x-small">Pesquisador - UFJF </i></div><div><font size="1" color="#666666"><i>Professor - INSTITUTO VIANNA JÚNIOR (JF)</i></font></div>
<div><font size="1" color="#666666"><i> INSTITUTO METODISTA GRAMBERY (JF)</i></font></div><div><font size="1" color="#666666"><i><br></i></font></div><a href="http://lattes.cnpq.br/4578008002785684" target="_blank">http://lattes.cnpq.br/4578008002785684</a><div style="line-height:130%;text-align:left;font-size:10px;overflow:hidden;margin-left:0px;word-wrap:break-word;margin-top:0px;padding:0px">
</div><div style="line-height:130%;text-align:left;font-size:10px;overflow:hidden;margin-left:0px;word-wrap:break-word;margin-top:0px;padding:0px"></div><div style="line-height:130%;text-align:left;font-size:10px;overflow:hidden;margin-left:0px;word-wrap:break-word;margin-top:0px;padding:0px">
</div></div></div></div></div><div><br></div><div><br></div></div>
</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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></blockquote></div></div></div><br></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br>Evelyn da Fonseca Alecrim Bragion<br>Bióloga - Mestre em Ecologia Aplicada <div>Doutoranda em Engenharia Florestal</div><div>Laboratório de Ecologia Vegetal<br>
UFLA - Lavras, MG/Brasil<br></div>
</div>