<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif">Ricardo,</div><div class="gmail_default" style="font-family:tahoma,sans-serif"><br></div><div class="gmail_default" style="font-family:tahoma,sans-serif">Sua função gera vários valores para cada célula.</div><div class="gmail_default" style="font-family:tahoma,sans-serif">veja: </div><div class="gmail_default" style=""><font face="tahoma, sans-serif">map1[i]=map1[1]-(sample(dist)[1]>=runif(1))*1</font><br></div><div class="gmail_default" style=""><font face="tahoma, sans-serif"><br></font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif">Eu ainda não sei se entendi qual o produto final que você deseja, mas vamos lá.</font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif"><br></font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif">Um passo bem simples para aumentar a velocidade é transformar o dataframe (dist) em numeric.</font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif"><br></font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif">Segundo, você poderia tentar vetorizar os cálculos.</font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif">eu começaria com algo assim:</font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif"><br></font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif"><div class="gmail_default">map1<-raster("map1.asc")</div><div class="gmail_default">map2<-raster("map2.asc")<br></div></font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif"><div class="gmail_default">r1<-rasterToPoints(map1)</div><div class="gmail_default">r2<-extract(map2,r1[,1:2])</div></font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif">##Aqui faz o calculo da probabilidade</font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif">teste<-r1[,3]==3&r2==1&!<a href="http://is.na">is.na</a>(r2)<br></font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif">##Aqui substitui tudo de uma só vez</font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif"><br></font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif">Espero ter ajudado.</font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif">Abraço</font></div><div class="gmail_default" style=""><font face="tahoma, sans-serif"><div class="gmail_default"><br></div></font></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 5 de outubro de 2015 21:17, Mauro Sznelwar <span dir="ltr"><<a href="mailto:sznelwar@uol.com.br" target="_blank">sznelwar@uol.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div lang="PT-BR" link="blue" vlink="purple">
<div>
<p class="MsoNormal"><span style="font-family:"Arial","sans-serif";color:#17365d">Onde
estão os arquivos para rodar? Só anexou o código fonte!<u></u><u></u></span></p><span class="">
<div>
<p class="MsoNormal"><span style="color:#1f497d"><u></u> <u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p>
<p class="MsoNormal">Faltou a função!<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
<div>
<p class="MsoNormal">Em 5 de outubro de 2015 12:37, Ricardo Dobrovolski <<a href="mailto:rdobrovolski@gmail.com" target="_blank">rdobrovolski@gmail.com</a>>
escreveu:<u></u><u></u></p>
<div>
<p class="MsoNormal">Prezados,<u></u><u></u></p>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">Quero reclassificar o map1 de acordo com o map2.<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">O mapa 2 tem duas categorias, 3 e 2.<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">Quero que as células do map1 com a categoria 3 virem 2 se
elas for sobreposta à categoria 1 do map2, de acordo com uma distribuição de
probabilidades empírica, armazenada em change.dist.<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">Na verdade, preparei uma função para resolver esse problema,
mas ela é baseada em um for no qual cada célula é avaliada. E isso é muito
lento para a área avaliada.<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">Além disso, como o modelo é probabilistico, teríamos de
fazer isso pelo menos 100 vezes. <u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">Assim, peço a ajuda dos senhores & senhoras para
resolver o problema.<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">Segue abaixo a função e em anexo os arquivos.<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">Valeu!<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">Abraço,<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">RD.<u></u><u></u></p>
</div>
</div>
</div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
</span></div>
<br><br>
<hr style="border:none;color:#909090;background-color:#b0b0b0;min-height:1px;width:99%">
<table style="border-collapse:collapse;border:none">
<tbody><tr>
<td style="border:none;padding:0px 15px 0px 8px">
<a href="https://www.avast.com/antivirus" target="_blank">
<img border="0" src="http://static.avast.com/emails/avast-mail-stamp.png" alt="Avast logo">
</a>
</td>
<td>
<p style="color:#3d4d5a;font-family:"Calibri","Verdana","Arial","Helvetica";font-size:12pt">
Este email foi escaneado pelo Avast antivírus.
<br><a href="https://www.avast.com/antivirus" target="_blank">www.avast.com</a>
</p>
</td>
</tr>
</tbody></table>
<br>
</div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><div><font color="#444444" size="2" face="arial, helvetica, sans-serif">Luciano F. Sgarbi</font></div><div><font color="#444444" size="2" face="arial, helvetica, sans-serif"><a href="http://buscatextual.cnpq.br/buscatextual/visualizacv.do?id=K4299200T7" target="_blank"> Currículo Lattes</a></font></div><div><font size="2" face="arial, helvetica, sans-serif"><font color="#444444">Laboratório de Ecologia Teórica e Síntese<br style="background-color:rgb(255,255,255)"></font><span style="color:rgb(68,68,68)">Departamento de Ecologia, Instituto de Ciências Biológicas V.</span><font color="#444444"><br></font></font><div style="background-color:rgb(255,255,255)"><font color="#444444" size="2" face="arial, helvetica, sans-serif"><font>Universidade Federal de Goiás, campus II, Goiânia-GO, </font>Brasil</font></div></div></div></div></div></div>
</div>