Fiz um programa muito simples para entender. O programa simplesmente soma um número com outro e está abaixo:<div><br></div><div>/* INICIO */</div><div><div>#include <R.h> </div><div><br></div><div>/* Funcao Principal */ </div>
<div>void soma1(double *a, double *b, double *res) </div><div>{ </div><div>     *res = *a + *b; </div><div>} </div><div>/* FIM */</div><div><br></div><div>Depois de gerar o arquivo soma1.dll fiz no R:</div><div><br></div>
<div><div>dyn.load("soma1.dll")</div><div>soma2 <- function(a,b){</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>.C("soma1", as.double(a), as.double(b), res = a + b)$res</div>
<div><span class="Apple-tab-span" style="white-space:pre">      </span>}</div></div><div><br></div><div>O programa está pensado corretamente? Aproveito para pedir desculpas por aperriar tanto vocês e batendo na tecla só nesse assunto.</div>
<div><br></div><div>Saudações,</div><div>Pedro Rafael</div><div><br></div><div><br></div><br><div class="gmail_quote">Em 26 de agosto de 2011 12:37, beniltoncarvalho [via R-br] <span dir="ltr"><<a href="mailto:ml-node%2B3771222-499417778-223914@n4.nabble.com">ml-node+3771222-499417778-223914@n4.nabble.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

        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
<br><div class="im">_______________________________________________
<br>R-br mailing list
<br><a href="http://user/SendEmail.jtp?type=node&node=3771222&i=0" rel="nofollow" link="external" target="_blank">[hidden email]</a>
<br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.
<br>
        
        <br>
        <br>
        <hr noshade size="1" color="#cccccc">
        </div><div style="color:#444;font:12px tahoma,geneva,helvetica,arial,sans-serif"><div class="im">
                <div style="font-weight:bold">If you reply to this email, your message will be added to the discussion below:</div>
                </div><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>
        </div><div><div></div><div class="h5">
        <div style="color:#666;font:11px tahoma,geneva,helvetica,arial,sans-serif;margin-top:.4em">
                
                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>.
        </div></div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br><font color="#000099">Saudações,</font><div><font color="#000099">Pedro Rafael Diniz Marinho.</font></div><font color="#000099"><br></font><br>

</div>