<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.3429" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV align=justify><FONT face=Arial size=2><FONT color=#0000ff>Eu não encontrei
esta função <FONT face="Times New Roman" size=3>mclapply, precisa de alguma
bibliotéca para consegui-la?</FONT></FONT></FONT></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px"><FONT
face=Arial size=2></FONT>
<DIV><BR></DIV>Junior, <BR>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.<BR>Tente assim:<BR><BR>a<-mclapply(1:1, function(i)
{<BR><BR> g1 <- mvrnorm(n=1,
mat.cokri[[1]][1:2601],m1)<BR> g2 <- mvrnorm(n=1,
mat.cokri[[1]][1:2601],m2)<BR> g3 <- mvrnorm(n=1,
mat.cokri[[1]][2602:5202],m3)<BR> g4 <- mvrnorm(n=1,
mat.cokri[[1]][2602:5202],m4)<BR>
cbind(g1,g2,g3,g4)<BR><BR>},mc.cores=4)
<DIV><FONT face=Arial size=2></FONT><BR></DIV>
<DIV>a[[1]]</DIV>
<DIV><FONT face=Arial size=2></FONT><BR></DIV>
<DIV>abs</DIV>
<DIV>Paulo Nogueira Starzynski<BR>
<DIV><FONT face=Arial size=2></FONT><BR>
<DIV class=gmail_quote>Em 24 de fevereiro de 2012 00:33, Junior Beleti <SPAN
dir=ltr><<A
href="mailto:beleti.junior@gmail.com">beleti.junior@gmail.com</A>></SPAN>
escreveu:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">Boa
noite Benilton.
<DIV><FONT face=Arial size=2></FONT><BR></DIV>
<DIV>Vi suas recomendações, mas veja que no momento precisaria apenas chamar
uma </DIV>
<DIV>mesma função (no caso, eigen.f) várias vezes, de forma paralela.</DIV>
<DIV><FONT face=Arial size=2></FONT><BR></DIV>
<DIV>Gostaria de saber da possibilidade da criação de uma função com nome
(eigen2.f), </DIV>
<DIV>por exemplo, apenas para que fossem efetuados testes.</DIV>
<DIV><FONT face=Arial size=2></FONT><BR></DIV>
<DIV>Já tentei a criação de tal função, mas quando compilo o R, aparece um
erro de </DIV>
<DIV>compilação.</DIV>
<DIV><FONT face=Arial size=2></FONT><BR></DIV>
<DIV>Também tentei fazer a chamada a função eigen.f por meio apenas de
diversas chamadas,</DIV>
<DIV>por exemplo: </DIV>
<DIV><FONT face=Arial size=2></FONT><BR></DIV>
<DIV>
<DIV>mclapply(1:1, function(i) {</DIV>
<DIV><FONT face=Arial size=2></FONT><BR></DIV>
<DIV> g1 <- mvrnorm(n=1, mat.cokri[[1]][1:2601],m1)</DIV>
<DIV> g2 <- mvrnorm(n=1, mat.cokri[[1]][1:2601],m2)</DIV>
<DIV> g3 <- mvrnorm(n=1, mat.cokri[[1]][2602:5202],m3)</DIV>
<DIV> g4 <- mvrnorm(n=1, mat.cokri[[1]][2602:5202],m4)</DIV>
<DIV><FONT face=Arial size=2></FONT><BR></DIV>
<DIV>},mc.cores=4</DIV>
<DIV>)</DIV></DIV>
<DIV><FONT face=Arial size=2></FONT><BR></DIV>
<DIV>Mas o processador efetua apenas chamada a cada vez, mesmo utilizando a
função mclapply.</DIV>
<DIV><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT><FONT
face=Arial size=2></FONT><BR></DIV>
<DIV>Alguma sugestão?</DIV>
<DIV><FONT face=Arial size=2></FONT><FONT face=Arial size=2></FONT><FONT
face=Arial size=2></FONT><BR></DIV>
<DIV>Obrigado, Carlos
Beleti.<BR></DIV></BLOCKQUOTE></DIV></DIV></DIV></BLOCKQUOTE></BODY></HTML>