E para o OP: coeff[1] + sum(coeff[2:(p+1)]*y_boot[m - (1:p)]^2) + sum(coeff[(p+2):(aux3[2]+1)]*s2_boot[m - (1:q)])
e' equivalente a X = cbind(1, y_boot[m-(1:p)]^2, s2_boot[m-(1:q)]) X %*% coeff[1:(aux3[2]+1)] (ou alguma pequena variacao disso, dada a nao reproducibilidade do codigo inicial) b 2013/1/18 Benilton Carvalho <[email protected]>: > Eu recomendaria os manuais... em particular o "Writing R > Extensions"... hoje, vc tbm pode usar bastante coisa do blog do Dirk, > com mencoes particulares ao Rcpp. > > 2013/1/18 Tiago Souza Marçal <[email protected]>: >> Caros colegas, >> >> Aproveitando a discussão, gostaria de saber se vocês conhecem algum material >> sobre importações de funções em C++ para R que eu possa ler. >> >> Att. >> >> Tiago. >> >> ________________________________ >> Date: Fri, 18 Jan 2013 18:10:54 -0200 >> From: [email protected] >> To: [email protected] >> Subject: Re: [R-br] R e C++ >> >> >> No código q vc enviou, não há nada que evidencie a necessidade de um for(). >> É apenas uma linha de comando usando %*%. >> >> Mas faltou vc definir 'm', 'p' e 'q' para q eu possa dizer definitivamente. >> >> On Jan 18, 2013 3:08 PM, "ctrucios" <[email protected]> wrote: >> >> então eu não estou querendo utilizar "for" (e é o que teria que fazer para a >> multiplicação matricial) >> >> Carlos Trucíos Maza >> * : [email protected] >> >> >> >> >> >> Em 18 de janeiro de 2013 14:59, Benilton Carvalho >> <[email protected]> escreveu: >> >> Se o trecho for apenas esse, será q multiplicação Matricial não basta? >> >> On Jan 18, 2013 2:50 PM, "ctrucios" <[email protected]> wrote: >> >> Olá pessoal, >> >> Estou tentando de passar parte de um código que tenho no R para C++ (quero >> utilizar o Rcpp para que meu programa rode mais rápido) embora to meio >> enferrujado com C, alguém poderia me ajudar com esta linha do R e me dizer >> como teria que escrever ela em C++? (pensei em utilizar for mas fiquei >> pensando se existe uma forma mais direta) >> >> Codigo R: >> coeff[1] + sum(coeff[2:(p+1)]*y_boot[m - (1:p)]^2) + >> sum(coeff[(p+2):(aux3[2]+1)]*s2_boot[m - (1:q)]) >> >> Desde já agradeço. >> >> Carlos Trucíos Maza >> * : [email protected] >> >> >> >> >> _______________________________________________ >> R-br mailing list >> [email protected] >> 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 >> [email protected] >> 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 >> [email protected] >> 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 >> [email protected] >> 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 >> [email protected] >> 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 [email protected] 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.
