<div dir="ltr"><div>Exercicio entender pq isso funciona:</div><div><br></div><div>f1 = function(d1, d2) (100 + d1 ^ 2 - d2 ^ 2) / 20<br></div><div><div>f1(d1, d2) * ifelse(Sit<=2, 1, .5) + 10*(Sit==2) + 7.5*(Sit==3)</div>
</div><div><br></div><div><br><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 26 de abril de 2014 19:50, Evelyn Alecrim <span dir="ltr"><<a href="mailto:evelyn.alecrim@gmail.com" target="_blank">evelyn.alecrim@gmail.com</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">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"><div class="">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>
</div><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><div class="h5"><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></div><div><div class="h5"><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><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>
</div></div></blockquote></div><span class="HOEnZb"><font color="#888888"><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>
</font></span></div>
<br>_______________________________________________<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></blockquote></div><br></div>