[R-br] Criação de função fortran em pacote (base)

[Paulo Nogueira]

Junior,
não sei se entendi totalmente seu problema, mas acho que não tem a ver com
o paralelismo e sim com o retorno do mclapply.
Tente assim:

a<-mclapply(1:1, function(i) {

    g1 <- mvrnorm(n=1, mat.cokri[[1]][1:2601],m1)
    g2 <- mvrnorm(n=1, mat.cokri[[1]][1:2601],m2)
    g3 <- mvrnorm(n=1, mat.cokri[[1]][2602:5202],m3)
    g4 <- mvrnorm(n=1, mat.cokri[[1]][2602:5202],m4)
    cbind(g1,g2,g3,g4)

},mc.cores=4)

a[[1]]

abs
Paulo Nogueira Starzynski

Em 24 de fevereiro de 2012 00:33, Junior Beleti
<beleti.junior em gmail.com>escreveu:

> Boa noite Benilton.
>
> Vi suas recomendações, mas veja que no momento precisaria apenas chamar
> uma
> mesma função (no caso, eigen.f) várias vezes, de forma paralela.
>
> Gostaria de saber da possibilidade da criação de uma função com nome
> (eigen2.f),
> por exemplo, apenas para que fossem efetuados testes.
>
> Já tentei a criação de tal função, mas quando compilo o R, aparece um erro
> de
> compilação.
>
> Também tentei fazer a chamada a função eigen.f por meio apenas de diversas
> chamadas,
> por exemplo:
>
> mclapply(1:1, function(i) {
>
>     g1 <- mvrnorm(n=1, mat.cokri[[1]][1:2601],m1)
>     g2 <- mvrnorm(n=1, mat.cokri[[1]][1:2601],m2)
>     g3 <- mvrnorm(n=1, mat.cokri[[1]][2602:5202],m3)
>     g4 <- mvrnorm(n=1, mat.cokri[[1]][2602:5202],m4)
>
> },mc.cores=4
> )
>
> Mas o processador efetua apenas chamada a cada vez, mesmo utilizando a
> função mclapply.
>
> Alguma sugestão?
>
> Obrigado, Carlos Beleti.
>
> _______________________________________________
> 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120224/d33fd36f/attachment.html>