[R-br] Programando com C e R

[Manoel Galdino]

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?

abç
Manoel


2013/2/6 ctrucios <ctrucios em gmail.com>

> Boa tarde pessoal,
>
> 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.
>
> 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.
>
>
> [image: Imagem inline 2]
>
> Na verdade é um mesmo código que faço três vezes (assim que descobri o
> erro).
> O problema aparece quando rodo mais de dois vezes (por isso que aqui
> copiei o codigo 3 vezes)
>
> source("volatnGarch.r")
> source("sbootGarch.r")
> source("forebootGarch.r")
> yb = rnorm(10000)
>
> d = 1
> p=1
> q=1
> garchOrder = c(p,q)
> Coeff_b = c(0.01,0.1,0.85)
> aux1 =  Coeff_b[1]/(1-Coeff_b[2]-Coeff_b[3])
> aux3 = cumsum(c(1,1))
> C = sbootGarch(aux1,yb,Coeff_b,garchOrder)
> A = volatnGarch(yb,Coeff_b,garchOrder)
> e_b = rnorm(5)
> n.ahead = length(e_b)
> B = forebootGarch(yb,e_b,A[[1]],Coeff_b,garchOrder)
> rm(list=ls(all=TRUE))
>
> source("volatnGarch.r")
> source("sbootGarch.r")
> source("forebootGarch.r")
> yb = rnorm(10000)
>
> d = 1
> p=1
> q=1
> garchOrder = c(p,q)
> Coeff_b = c(0.01,0.1,0.85)
> aux1 =  Coeff_b[1]/(1-Coeff_b[2]-Coeff_b[3])
> aux3 = cumsum(c(1,1))
> C = sbootGarch(aux1,yb,Coeff_b,garchOrder)
> A = volatnGarch(yb,Coeff_b,garchOrder)
> e_b = rnorm(5)
> n.ahead = length(e_b)
> B = forebootGarch(yb,e_b,A[[1]],Coeff_b,garchOrder)
> rm(list=ls(all=TRUE))
>
> source("volatnGarch.r")
> source("sbootGarch.r")
> source("forebootGarch.r")
> yb = rnorm(10000)
>
> d = 1
> p=1
> q=1
> garchOrder = c(p,q)
> Coeff_b = c(0.01,0.1,0.85)
> aux1 =  Coeff_b[1]/(1-Coeff_b[2]-Coeff_b[3])
> aux3 = cumsum(c(1,1))
> C = sbootGarch(aux1,yb,Coeff_b,garchOrder)
> A = volatnGarch(yb,Coeff_b,garchOrder)
> e_b = rnorm(5)
> n.ahead = length(e_b)
> B = forebootGarch(yb,e_b,A[[1]],Coeff_b,garchOrder)
> rm(list=ls(all=TRUE))
>
>
> as funções em C seguem no seguinte link.
> https://www.dropbox.com/sh/5f8bpx6pt2cgam6/fcuvUtFili/Codigos
>
>
>
>
>
>
> *Carlos Trucíos Maza
> **     : ctrucios em gmail.com
>
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>



-- 
Manoel Galdino
https://sites.google.com/site/galdinomcz/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130206/a16517b5/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: image.png
Tipo: image/png
Tamanho: 15719 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130206/a16517b5/attachment.png>