<div dir="ltr">Digite<div><br></div><div>B</div><div><br></div><div>no prompt do R e perceba que o valor de B é NULL. O mesmo vale para C. Eles não estão recebendo os valores numéricos. Fazendo</div><div><br></div><div><div>

> exp(2, 5)</div><div>O valor de B = 2 elevado a C = 5 é: 32</div></div><div><br></div><div>dá tudo certo.</div><div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-08-20 14:31 GMT-03:00 Felipe <span dir="ltr"><<a href="mailto:felipe.e.barletta@gmail.com" target="_blank">felipe.e.barletta@gmail.com</a>></span>:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Prezdos colegas,<br>
<br>
Fiz um simples programa para calcular um número real elevado à um expoente inteiro, para treinar um pouco programação no R.<br>
Porém não rodou com o seguinte código e erro:<br>
<br>
<br>
B <- cat("entre com a base")<br>
2<br>
C <- cat("entre com o expoente inteiro C")<br>
5<br>
exp <- function(B,C)<br>
{<br>
    if (C - as.integer(C)!= 0)<br>
        cat("Entre com expoente inteiro")<br>
    else{<br>
         if (C < 0)<br>
             cat("Só aceitamos expoentes positivos")<br>
         else if (C == 0)<br>
             resp = 1<br>
         else{<br>
             resp = 1<br>
         for (i in 1:C)<br>
             resp = resp*B<br>
         cat ("O valor de B =",B,"elevado a C =",C,"é:",resp)}}<br>
 }<br>
exp(B,C)<br>
<br>
Erro em if (C - as.integer(C) != 0) cat("Entre com expoente inteiro") else { (from #3) :<br>
  argumento tem comprimento zero<br>
<br>
Se alguém puder ajudar, ficarei muito grato!!<br>
<br>
<br>
______________________________<u></u>_________________<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/<u></u>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-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><div dir="ltr">Marcus Nunes<br><a href="http://marcusnunes.me/" target="_blank">http://marcusnunes.me/</a><br></div>
</div>