<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>