<p dir="ltr">Uma sugestão apenas. Fonte ABNT no seu email corporativo.</p>
<p dir="ltr">Abs</p>
<br><div class="gmail_quote"><div dir="ltr">Em Sex, 7 de abr de 2017 18:37, Marcus Nunes via R-br <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr" class="gmail_msg">-27 tem três raízes cúbicas:<div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">1) -3</div><div class="gmail_msg">2) 1.5 + 2.5981*i</div><div class="gmail_msg">3) 1.5 - 2.5981*i<br class="gmail_msg"></div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">O R, ao dizer que (-27)^(1/3) é NaN, ele apenas diz que a raiz cúbica principal de -27 não é um número real. Rode, por exemplo, o seguinte:</div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">(as.complex(-27))^(1/3)<br class="gmail_msg"></div><div class="gmail_msg">[1] 1.5+2.598076i<br class="gmail_msg"></div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">Além disso, -27^(1/3) != (-27)^(1/3). Por isso os cálculos utilizando o vetor vec são diferentes.</div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">Uma maneira de corrigir este problema é com a seguinte função:</div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg"><div class="gmail_msg">RaizCubica <- function(x){</div><div class="gmail_msg">  return(sign(x)*abs(x)^(1/3))</div><div class="gmail_msg">}</div></div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg">Esta função pode ser facilmente generalizada para qualquer raiz:</div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg"><div class="gmail_msg">RaizQualquer <- function(x, y){</div><div class="gmail_msg">  return(sign(x)*abs(x)^(1/y))</div><div class="gmail_msg">}</div></div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg"><br class="gmail_msg"></div></div><div class="gmail_extra gmail_msg"><br clear="all" class="gmail_msg"><div class="gmail_msg"><div class="m_7674764531672721791gmail_signature gmail_msg" data-smartmail="gmail_signature"><div dir="ltr" class="gmail_msg"><div class="gmail_msg"><div dir="ltr" class="gmail_msg"><div class="gmail_msg"><div dir="ltr" class="gmail_msg"><div dir="ltr" class="gmail_msg">--</div><div dir="ltr" class="gmail_msg">Marcus Nunes</div><div dir="ltr" class="gmail_msg">Professor Adjunto</div><div dir="ltr" class="gmail_msg">Universidade Federal do Rio Grande do Norte</div><div dir="ltr" class="gmail_msg">Centro de Ciências Exatas e da Terra</div><div dir="ltr" class="gmail_msg">Departamento de Estatística</div><div dir="ltr" class="gmail_msg">Laboratório de Estatística Aplicada</div><div dir="ltr" class="gmail_msg"><a href="mailto:marcus.nunes@ccet.ufrn.br" class="gmail_msg" target="_blank">marcus.nunes@ccet.ufrn.br</a></div><div dir="ltr" class="gmail_msg"><a href="http://marcusnunes.me/" class="gmail_msg" target="_blank">http://marcusnunes.me/</a></div><div dir="ltr" class="gmail_msg"><br class="gmail_msg"></div></div></div></div></div></div></div></div></div><div class="gmail_extra gmail_msg">
<br class="gmail_msg"><div class="gmail_quote gmail_msg">2017-04-07 16:40 GMT-03:00 marcos paulo via R-br <span dir="ltr" class="gmail_msg"><<a href="mailto:r-br@listas.c3sl.ufpr.br" class="gmail_msg" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br class="gmail_msg"><blockquote class="gmail_quote gmail_msg" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">




<div dir="ltr" class="gmail_msg">
<div id="m_7674764531672721791m_2975516297156756127divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:'Comic Sans MS',Fantasy,cursive" dir="ltr" class="gmail_msg">
<p class="gmail_msg">Olá prezados boa tarde.</p>
<p class="gmail_msg"><br class="gmail_msg">
</p>
<p class="gmail_msg">Alguém saberia me explicar porque ao concatenar números negativos e positivos em um vetor não é possível obter a raiz cúbica dos números negativos? Como procederia para contornar esse problema, mantendo os dados no vetor ?</p>
<p class="gmail_msg"><br class="gmail_msg">
</p>
<p class="gmail_msg">Exemplo:</p>
<p class="gmail_msg"><br class="gmail_msg">
</p>
<p class="gmail_msg"></p>
<div class="gmail_msg">> vec<-c(27,-27,27,27,-27)</div>
<div class="gmail_msg">> vec^(1/3)</div>
<div class="gmail_msg">[1]   3 NaN   3   3 NaN</div>
<div class="gmail_msg">> -27^(1/3)</div>
<div class="gmail_msg">[1] -3</div>
<div class="gmail_msg"><br class="gmail_msg">
</div>
<div class="gmail_msg">Situação desejada:</div>
<div class="gmail_msg"><span style="font-family:"Comic Sans MS",fantasy,cursive,"Apple Color Emoji","Segoe UI Emoji",NotoColorEmoji,"Segoe UI Symbol","Android Emoji",EmojiSymbols;font-size:16px" class="gmail_msg">[1]   3 -3   3   3 -3</span><br class="gmail_msg">
</div>
<br class="gmail_msg">
<p class="gmail_msg"></p>
<div id="m_7674764531672721791m_2975516297156756127Signature" class="gmail_msg">
<div id="m_7674764531672721791m_2975516297156756127divtagdefaultwrapper" dir="ltr" style="font-size:12pt;color:#000000;background-color:#ffffff;font-family:'Comic Sans MS',Fantasy,cursive" class="gmail_msg">
<div style="text-align:center" class="gmail_msg"><br class="gmail_msg">
</div>
<div style="text-align:left" class="gmail_msg">À disposição</div>
<div style="text-align:left" class="gmail_msg">Marcos Paulo</div>
<div style="text-align:center" class="gmail_msg"><br class="gmail_msg">
</div>
<div style="text-align:center" class="gmail_msg"><span style="background-color:rgb(255,255,255)" class="gmail_msg"><b class="gmail_msg"><font color="#008a17" class="gmail_msg"><span style="font-size:12pt" class="gmail_msg">Técnico Agrícola em Zootecnia</span><br class="gmail_msg">
<span style="font-size:12pt" class="gmail_msg">Bacharel em Agronomia </span></font></b></span></div>
<div style="text-align:center" class="gmail_msg"><span style="background-color:rgb(255,255,255)" class="gmail_msg"><b class="gmail_msg"><font color="#008a17" class="gmail_msg"><span style="font-size:12pt" class="gmail_msg"><br class="gmail_msg">
</span></font></b></span></div>
<div style="text-align:center" class="gmail_msg"><font color="#008a17" class="gmail_msg"><span style="background-color:rgb(255,255,255)" class="gmail_msg"><b class="gmail_msg">Mestrando em Produção Vegetal - Universidade Federal de Goiás</b></span></font></div>
<div style="text-align:center" class="gmail_msg">
<div style="line-height:22px;background-color:rgb(255,255,255)" class="gmail_msg"><font class="m_7674764531672721791m_2975516297156756127ecxApple-style-span gmail_msg" face="Calibri" color="#008a17" size="3" style="line-height:normal"><b class="gmail_msg">Estagiário de Pós-Graduação da Embrapa Arroz e Feijão/CNPAF-Santo Antônio de Goiás-GO</b></font></div>
<div style="line-height:22px;background-color:rgb(255,255,255)" class="gmail_msg"><font class="m_7674764531672721791m_2975516297156756127ecxApple-style-span gmail_msg" face="Calibri" color="#008a17" size="3" style="line-height:normal"><b class="gmail_msg"><br class="gmail_msg">
</b></font></div>
<div style="line-height:22px;background-color:rgb(255,255,255)" class="gmail_msg"><span style="line-height:normal" class="gmail_msg"><font face="Calibri" color="#008a17" size="3" class="gmail_msg"><b class="gmail_msg">Contato: (62) 85075783</b></font></span></div>
<div style="line-height:22px;color:rgb(42,42,42);font-family:'Segoe UI',Tahoma,Verdana,Arial,sans-serif;font-size:15px;background-color:rgb(255,255,255)" class="gmail_msg">
<span style="line-height:normal;font-family:'Comic Sans MS';font-size:10pt" class="gmail_msg"><br class="gmail_msg">
</span></div>
<div style="line-height:22px;color:rgb(42,42,42);font-family:'Segoe UI',Tahoma,Verdana,Arial,sans-serif;font-size:15px;background-color:rgb(255,255,255)" class="gmail_msg">
<span style="line-height:normal;font-family:'Comic Sans MS';font-size:10pt" class="gmail_msg"><a href="http://lattes.cnpq.br/4322347592884852" id="m_7674764531672721791m_2975516297156756127LPNoLP" class="gmail_msg" target="_blank">http://lattes.cnpq.br/4322347592884852</a></span></div>
</div>
</div>
</div>
</div>
</div>

<br class="gmail_msg">_______________________________________________<br class="gmail_msg">
R-br mailing list<br class="gmail_msg">
<a href="mailto:R-br@listas.c3sl.ufpr.br" class="gmail_msg" target="_blank">R-br@listas.c3sl.ufpr.br</a><br class="gmail_msg">
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" class="gmail_msg" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br class="gmail_msg">
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" class="gmail_msg" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br class="gmail_msg"></blockquote></div><br class="gmail_msg"></div>
_______________________________________________<br class="gmail_msg">
R-br mailing list<br class="gmail_msg">
<a href="mailto:R-br@listas.c3sl.ufpr.br" class="gmail_msg" target="_blank">R-br@listas.c3sl.ufpr.br</a><br class="gmail_msg">
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" class="gmail_msg" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br class="gmail_msg">
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" class="gmail_msg" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote></div>