Pessoal, estou utilizando o pacote Rcpp para fazer um link entre C++ e R. Já consegui passar algumas funções (na verdade alguns loop) que tinha no meu codigo em R para C++, quando testo as funções que fiz (fiz 3) rodam certoinho, mas cuando coloco as 3 funções no programa e tento rodar meu programa todo o R trava. Alguem pode me ajudar? library(Rcpp) library(rugarch) nbur = 500 nobs = 1000 N = ntot = nbur + nobs data = rnorm(nobs) eboot = rnorm(nobs) n.ahead = 5 d = 2;p = 2,q= 2 garchorder = c(p,q) aux3 = cumsum(garchorder) Coeff_b = c(0.01,0.1,0.05,0.4,0.35) aux1 = Coeff_b[1]/(1-sum(Coeff_b[2:(p+1)])-sum(Coeff_b[(p+2):(aux3[2]+1)])) n.boot = 10 garchboot(data, n.boot, n.ahead, garchOrder = c(1,1), distribution.model = "norm", solver = "solnp", fit.control = list(stationarity = 1), n.burn = 500, simulation = list(simulation = FALSE, skew = NULL, shape = NULL), quant = c(0.90,0.95,0.99)) Para que este email não fique muito cumprido as funções que as coloquei no link aqui: https://www.dropbox.com/sh/5f8bpx6pt2cgam6/ELfL6BhGim/Rcpp Quem puder me dar um help agradecerei muito. *Carlos Trucíos Maza ** : ctrucios@gmail.com
O R nao trava para mim... entretanto, eu encontro falhas na implementacao... Por exemplo, linha 51 refere-se a "coeff_b", enquanto o nome da variavel e' "Coeff_b". Adicionalmente, suas previsoes yp e s2p parecem conter valores invalidos (-Inf e Inf).... b 2013/1/25 ctrucios <ctrucios@gmail.com>:
Pessoal, estou utilizando o pacote Rcpp para fazer um link entre C++ e R. Já consegui passar algumas funções (na verdade alguns loop) que tinha no meu codigo em R para C++, quando testo as funções que fiz (fiz 3) rodam certoinho, mas cuando coloco as 3 funções no programa e tento rodar meu programa todo o R trava. Alguem pode me ajudar?
library(Rcpp) library(rugarch) nbur = 500 nobs = 1000 N = ntot = nbur + nobs data = rnorm(nobs) eboot = rnorm(nobs) n.ahead = 5 d = 2;p = 2,q= 2 garchorder = c(p,q) aux3 = cumsum(garchorder) Coeff_b = c(0.01,0.1,0.05,0.4,0.35) aux1 = Coeff_b[1]/(1-sum(Coeff_b[2:(p+1)])-sum(Coeff_b[(p+2):(aux3[2]+1)])) n.boot = 10
garchboot(data, n.boot, n.ahead, garchOrder = c(1,1), distribution.model = "norm", solver = "solnp", fit.control = list(stationarity = 1), n.burn = 500, simulation = list(simulation = FALSE, skew = NULL, shape = NULL), quant = c(0.90,0.95,0.99))
Para que este email não fique muito cumprido as funções que as coloquei no link aqui:
https://www.dropbox.com/sh/5f8bpx6pt2cgam6/ELfL6BhGim/Rcpp
Quem puder me dar um help agradecerei muito.
Carlos Trucíos Maza * : ctrucios@gmail.com
_______________________________________________ R-br mailing list R-br@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.
Obg deve ser então problema com o meu R. Vou ver certinho. Ps: Vou ver os problemas que vc encontrou. Obg. *Carlos Trucíos Maza ** : ctrucios@gmail.com Em 25 de janeiro de 2013 16:28, Benilton Carvalho < beniltoncarvalho@gmail.com> escreveu:
O R nao trava para mim... entretanto, eu encontro falhas na implementacao... Por exemplo, linha 51 refere-se a "coeff_b", enquanto o nome da variavel e' "Coeff_b".
Adicionalmente, suas previsoes yp e s2p parecem conter valores invalidos (-Inf e Inf)....
b
2013/1/25 ctrucios <ctrucios@gmail.com>:
Pessoal, estou utilizando o pacote Rcpp para fazer um link entre C++ e R. Já consegui passar algumas funções (na verdade alguns loop) que tinha no meu codigo em R para C++, quando testo as funções que fiz (fiz 3) rodam certoinho, mas cuando coloco as 3 funções no programa e tento rodar meu programa todo o R trava. Alguem pode me ajudar?
library(Rcpp) library(rugarch) nbur = 500 nobs = 1000 N = ntot = nbur + nobs data = rnorm(nobs) eboot = rnorm(nobs) n.ahead = 5 d = 2;p = 2,q= 2 garchorder = c(p,q) aux3 = cumsum(garchorder) Coeff_b = c(0.01,0.1,0.05,0.4,0.35) aux1 = Coeff_b[1]/(1-sum(Coeff_b[2:(p+1)])-sum(Coeff_b[(p+2):(aux3[2]+1)])) n.boot = 10
garchboot(data, n.boot, n.ahead, garchOrder = c(1,1), distribution.model = "norm", solver = "solnp", fit.control = list(stationarity = 1), n.burn = 500, simulation = list(simulation = FALSE, skew = NULL, shape = NULL), quant = c(0.90,0.95,0.99))
Para que este email não fique muito cumprido as funções que as coloquei no link aqui:
https://www.dropbox.com/sh/5f8bpx6pt2cgam6/ELfL6BhGim/Rcpp
Quem puder me dar um help agradecerei muito.
Carlos Trucíos Maza * : ctrucios@gmail.com
_______________________________________________ R-br mailing list R-br@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.
R-br mailing list R-br@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.
participantes (2)
-
Benilton Carvalho -
ctrucios