<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:"Arial Narrow";
panose-1:2 11 5 6 2 2 2 3 2 4;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
@font-face
{font-family:"Trebuchet MS";
panose-1:2 11 6 3 2 2 2 2 2 4;}
@font-face
{font-family:"Tw Cen MT";
panose-1:2 11 6 2 2 1 4 2 6 3;}
@font-face
{font-family:Webdings;
panose-1:5 3 1 2 1 5 9 6 7 3;}
@font-face
{font-family:"Palatino Linotype";
panose-1:2 4 5 2 5 5 5 3 3 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.apple-tab-span
{mso-style-name:apple-tab-span;}
span.EstiloDeEmail18
{mso-style-type:personal-reply;
font-family:"Arial Narrow","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;}
@page Section1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=PT-BR link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Arial Narrow","sans-serif";
color:#1F497D'>Estou com uma dúvida!<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Arial Narrow","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Arial Narrow","sans-serif";
color:#1F497D'>Se for criar um pacote no R (apenas para uso interno aqui na empresa)
com diversas rotinas em C, terei que compilá-lo para cada uma dos OS e arquiteruras?
No caso uso Win e Linux (32 e 64)!<br>
<br>
<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Arial Narrow","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-family:"Tw Cen MT","sans-serif";
color:black'>Atenciosamente,<br>
</span><b><span style='font-size:11.0pt;font-family:"Tw Cen MT","sans-serif";
color:#000040'>Leandro Lins Marino</span></b><b><span style='font-size:10.0pt;
font-family:"Tw Cen MT","sans-serif";color:#000040'><br>
</span></b><i><span style='font-size:10.0pt;font-family:"Tw Cen MT","sans-serif";
color:gray'>Centro de Avaliação</span></i><i><span style='font-size:10.0pt;
font-family:"Tw Cen MT","sans-serif";color:gray'><br>
</span></i><i><span style='font-size:10.0pt;font-family:"Tw Cen MT","sans-serif";
color:gray'>Fundação CESGRANRIO</span></i><i><span style='font-size:10.0pt;
font-family:"Tw Cen MT","sans-serif";color:gray'><br>
</span></i><i><span style='font-size:10.0pt;font-family:"Tw Cen MT","sans-serif";
color:gray'>Rua Santa Alexandrina, 1011 - 2º andar</span></i><i><span
style='font-size:10.0pt;font-family:"Tw Cen MT","sans-serif";color:gray'><br>
</span></i><i><span style='font-size:10.0pt;font-family:"Tw Cen MT","sans-serif";
color:gray'>Rio de Janeiro, RJ - CEP: 20261-903</span></i><i><span
style='font-size:10.0pt;font-family:"Tw Cen MT","sans-serif";color:gray'><br>
</span></i><i><span style='font-size:10.0pt;font-family:Wingdings;color:gray'>(</span></i><i><span
style='font-size:10.0pt;font-family:"Tw Cen MT","sans-serif";color:gray'> </span></i><i><span
style='font-size:10.0pt;font-family:"Trebuchet MS","sans-serif";color:gray'>(21)
2103-9600 R.:236 </span></i><i><span style='font-size:10.0pt;font-family:"Trebuchet MS","sans-serif";
color:gray'><br>
</span></i><i><span style='font-size:11.0pt;font-family:Wingdings;color:gray'>*</span></i><i><span
style='font-size:11.0pt;font-family:"Tw Cen MT","sans-serif";color:gray'> <a
href="mailto:leandro@cesgranrio.org.br">leandro@cesgranrio.org.br</a><o:p></o:p></span></i></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";
color:#006666'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:18.0pt;font-family:Webdings;
color:#76923C'>P</span><b><span style='font-size:7.5pt;font-family:"Palatino Linotype","serif";
color:#76923C'> </span></b><b><span style='font-size:9.0pt;font-family:
"Calibri","sans-serif";color:#76923C'>Antes de imprimir</span></b><span
style='font-size:9.0pt;font-family:"Calibri","sans-serif";color:#76923C'> </span><b><span
style='font-size:9.0pt;font-family:"Calibri","sans-serif";color:#76923C'>pense
em sua responsabilidade e compromisso com o</span></b><span style='font-size:
9.0pt;font-family:"Calibri","sans-serif";color:#76923C'> <b>MEIO AMBIENTE</b></span><span
style='font-size:10.0pt;font-family:"Arial","sans-serif";color:#006666'> <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";
color:#006666'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:10.5pt;font-family:Consolas;
color:#1F497D'>Esta mensagem, incluindo seus anexos, pode conter informacoes
privilegiadas e/ou de carater confidencial, nao podendo ser retransmitida sem
autorizacao do remetente. Se voce nao e o destinatario ou pessoa autorizada a
recebe-la, informamos que o seu uso, divulgacao, copia ou arquivamento sao
proibidos. <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.5pt;font-family:Consolas;
color:#1F497D'>Portanto, se você recebeu esta mensagem por engano, por favor,
nos informe respondendo imediatamente a este e-mail e em seguida apague-a.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Arial Narrow","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>De:</span></b><span
style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>
r-br-bounces@listas.c3sl.ufpr.br [mailto:r-br-bounces@listas.c3sl.ufpr.br] <b>Em
nome de </b>Pedro Rafael<br>
<b>Enviada em:</b> sexta-feira, 26 de agosto de 2011 16:34<br>
<b>Para:</b> r-br@listas.c3sl.ufpr.br<br>
<b>Assunto:</b> Re: [R-br] [Dúvida] Invocar funções C++ no R<o:p></o:p></span></p>
</div>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>Fiz um programa muito simples para entender. O programa
simplesmente soma um número com outro e está abaixo:<o:p></o:p></p>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>/* INICIO */<o:p></o:p></p>
</div>
<div>
<div>
<p class=MsoNormal>#include <R.h> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>/* Funcao Principal */ <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>void soma1(double *a, double *b, double *res) <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>{ <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> *res = *a + *b; <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>} <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>/* FIM */<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Depois de gerar o arquivo soma1.dll fiz no R:<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<div>
<p class=MsoNormal>dyn.load("soma1.dll")<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>soma2 <- function(a,b){<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>.C("soma1",
as.double(a), as.double(b), res = a + b)$res<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span class=apple-tab-span> </span>}<o:p></o:p></p>
</div>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>O programa está pensado corretamente? Aproveito para pedir
desculpas por aperriar tanto vocês e batendo na tecla só nesse assunto.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>Saudações,<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Pedro Rafael<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<p class=MsoNormal><o:p> </o:p></p>
<div>
<p class=MsoNormal>Em 26 de agosto de 2011 12:37, beniltoncarvalho [via R-br]
<<a href="mailto:ml-node%2B3771222-499417778-223914@n4.nabble.com">ml-node+3771222-499417778-223914@n4.nabble.com</a>>
escreveu:<o:p></o:p></p>
<p class=MsoNormal>Depende apenas do que vc estiver fazendo. .Call() e'
conveniente por <br>
retornar objetos ao R diretamente. O .C() e' legal pq vc pode pegar <br>
funcoes ja' prontas em C e apenas criar um wrapper (vide GSL). b <o:p></o:p></p>
<div>
<p class=MsoNormal style='margin-bottom:12.0pt'>_______________________________________________
<br>
R-br mailing list <br>
<a href="http://user/SendEmail.jtp?type=node&node=3771222&i=0"
target="_blank">[hidden email]</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>
<br>
<o:p></o:p></p>
<div class=MsoNormal align=center style='text-align:center'>
<hr size=1 width="100%" noshade style='color:#CCCCCC' align=center>
</div>
</div>
<div>
<div>
<div>
<p class=MsoNormal><b><span style='font-size:9.0pt;font-family:"Tahoma","sans-serif";
color:#444444'>If you reply to this email, your message will be added to the
discussion below:<o:p></o:p></span></b></p>
</div>
</div>
<p class=MsoNormal><span style='font-size:9.0pt;font-family:"Tahoma","sans-serif";
color:#444444'><a
href="http://r-br.2285057.n4.nabble.com/R-br-Duvida-Invocar-funcoes-C-no-R-tp3768159p3771222.html"
target="_blank">http://r-br.2285057.n4.nabble.com/R-br-Duvida-Invocar-funcoes-C-no-R-tp3768159p3771222.html</a>
<o:p></o:p></span></p>
</div>
<div>
<div>
<div style='margin-top:4.8pt'>
<p class=MsoNormal><span style='font-size:8.5pt;font-family:"Tahoma","sans-serif";
color:#666666'>To unsubscribe from R-br, <a
href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=cGVkcm8ucmFmYWVsLm1hcmluaG9AZ21haWwuY29tfDMzNTc5ODJ8NTAyMjI0MDYw"
target="_blank">click here</a>. <o:p></o:p></span></p>
</div>
</div>
</div>
</div>
<p class=MsoNormal><br>
<br clear=all>
<o:p></o:p></p>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<p class=MsoNormal>-- <br>
<span style='color:#000099'>Saudações,</span><o:p></o:p></p>
<div>
<p class=MsoNormal><span style='color:#000099'>Pedro Rafael Diniz Marinho.</span><o:p></o:p></p>
</div>
<p class=MsoNormal style='margin-bottom:12.0pt'><o:p> </o:p></p>
</div>
</div>
</body>
</html>