Olha, nunca chamei C do R (mas deveria!). Em todo caso, você não parece estar usando o pacote Rcpp. Não seria melhor com o Rcpp?<div><br></div><div>abç</div><div>Manoel<br><div><br><br><div class="gmail_quote">2013/2/6 ctrucios <span dir="ltr">&lt;<a href="mailto:ctrucios@gmail.com" target="_blank">ctrucios@gmail.com</a>&gt;</span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div>Boa tarde pessoal,</div><div><br></div><div>Estou tentando utilizar C e R juntos, fiz 3 funções em C e chamo elas do R. Mas estive testando e testando e deu este erro. Na verdade as vezes da este erro e as vezes trava de vez.</div>



<div><br></div><div>Não sei se é pela forma em que estou programando em C (na verdade estou bem enferrujado e estou utilizando ponteiros)  deixo aqui  o código quem puder de uma olhadinha.</div><div><br></div><div><br></div>



<img src="cid:ii_13cb0510bd3fb7e3" alt="Imagem inline 2"><div><br></div><div>Na verdade é um mesmo código que faço três vezes (assim que descobri o erro).</div><div>O problema aparece quando rodo mais de dois vezes (por isso que aqui copiei o codigo 3 vezes)</div>



<div><br></div><div><div><font color="#000066">source(&quot;volatnGarch.r&quot;)</font></div><div><font color="#000066">source(&quot;sbootGarch.r&quot;)</font></div><div><font color="#000066">source(&quot;forebootGarch.r&quot;)</font></div>



<div><font color="#000066">yb = rnorm(10000)</font></div><div><font color="#000066"><br></font></div><div><font color="#000066">d = 1</font></div><div><font color="#000066">p=1</font></div><div><font color="#000066">q=1</font></div>



<div><font color="#000066">garchOrder = c(p,q)</font></div><div><font color="#000066">Coeff_b = c(0.01,0.1,0.85)</font></div><div><font color="#000066">aux1 =  Coeff_b[1]/(1-Coeff_b[2]-Coeff_b[3])</font></div><div><font color="#000066">aux3 = cumsum(c(1,1))</font></div>



<div><font color="#000066">C = sbootGarch(aux1,yb,Coeff_b,garchOrder)</font></div><div><font color="#000066">A = volatnGarch(yb,Coeff_b,garchOrder)</font></div><div><font color="#000066">e_b = rnorm(5)</font></div><div><font color="#000066">n.ahead = length(e_b)</font></div>



<div><font color="#000066">B = forebootGarch(yb,e_b,A[[1]],Coeff_b,garchOrder)</font></div><div><font color="#000066">rm(list=ls(all=TRUE))</font></div><div><br></div><div>source(&quot;volatnGarch.r&quot;)</div><div>source(&quot;sbootGarch.r&quot;)</div>



<div>source(&quot;forebootGarch.r&quot;)</div><div>yb = rnorm(10000)</div><div><br></div><div>d = 1</div><div>p=1</div><div>q=1</div><div>garchOrder = c(p,q)</div><div>Coeff_b = c(0.01,0.1,0.85)</div><div>aux1 =  Coeff_b[1]/(1-Coeff_b[2]-Coeff_b[3])</div>



<div>aux3 = cumsum(c(1,1))</div><div>C = sbootGarch(aux1,yb,Coeff_b,garchOrder)</div><div>A = volatnGarch(yb,Coeff_b,garchOrder)</div><div>e_b = rnorm(5)</div><div>n.ahead = length(e_b)</div><div>B = forebootGarch(yb,e_b,A[[1]],Coeff_b,garchOrder)</div>



<div>rm(list=ls(all=TRUE))</div><div><br></div><div><font color="#003300">source(&quot;volatnGarch.r&quot;)</font></div><div><font color="#003300">source(&quot;sbootGarch.r&quot;)</font></div><div><font color="#003300">source(&quot;forebootGarch.r&quot;)</font></div>



<div><font color="#003300">yb = rnorm(10000)</font></div><div><font color="#003300"><br></font></div><div><font color="#003300">d = 1</font></div><div><font color="#003300">p=1</font></div><div><font color="#003300">q=1</font></div>



<div><font color="#003300">garchOrder = c(p,q)</font></div><div><font color="#003300">Coeff_b = c(0.01,0.1,0.85)</font></div><div><font color="#003300">aux1 =  Coeff_b[1]/(1-Coeff_b[2]-Coeff_b[3])</font></div><div><font color="#003300">aux3 = cumsum(c(1,1))</font></div>



<div><font color="#003300">C = sbootGarch(aux1,yb,Coeff_b,garchOrder)</font></div><div><font color="#003300">A = volatnGarch(yb,Coeff_b,garchOrder)</font></div><div><font color="#003300">e_b = rnorm(5)</font></div><div><font color="#003300">n.ahead = length(e_b)</font></div>



<div><font color="#003300">B = forebootGarch(yb,e_b,A[[1]],Coeff_b,garchOrder)</font></div><div><font color="#003300">rm(list=ls(all=TRUE))</font></div></div><div><br></div><div><br></div><div>as funções em C seguem no seguinte link.</div>



<div><a href="https://www.dropbox.com/sh/5f8bpx6pt2cgam6/fcuvUtFili/Codigos" target="_blank">https://www.dropbox.com/sh/5f8bpx6pt2cgam6/fcuvUtFili/Codigos</a></div><div><br></div><div><br></div><div><br></div><div><br></div>

<div><br></div>

<div><br clear="all"><div><p style="margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"></p><blockquote><a name="13cb05d2bed9de84_SafeHtmlFilter_SafeHtmlFilter_SafeHtmlFilter__MailAutoSig"><b><span style="font-size:10.0pt;font-family:&quot;Arial Narrow&quot;,&quot;sans-serif&quot;;color:gray">Carlos Trucíos Maza<br>



</span></b></a><span style="font-size:10.0pt;font-family:Wingdings;color:gray">*</span><span style="font-size:7.0pt;color:gray">    
</span><span style="font-size:10.0pt;font-family:&quot;Arial Narrow&quot;,&quot;sans-serif&quot;;color:gray">: </span><a href="http://ctrucios@gmail.com" target="_blank"><span style="font-size:10.0pt;font-family:&quot;Arial Narrow&quot;,&quot;sans-serif&quot;;color:blue">ctrucios@gmail.com<br>



</span></a><br><font color="#808080" face="&#39;Arial Narrow&#39;, sans-serif"><br></font></blockquote>







<p></p></div>
</div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">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><br><br clear="all"><div><br></div>-- <br>

Manoel Galdino<br><a href="https://sites.google.com/site/galdinomcz/" target="_blank">https://sites.google.com/site/galdinomcz/</a><br>
</div></div>