<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span>Caro,</span></div><div><span>Tente usar as funções lapply é melhor que loop</span></div><div><span></span> </div><div><span>list.mean <- lapply(df[,-c(1:19)], function(x){<br> with(df, mean(xl))<br> })</span></div><div><span>list.mean <- lapply(list.aov, mean)</span></div><div><span></span> </div><div><span>ions.mean2 <- ldply(list.mean)</div></span><div></div><div> </div><div><font face="times new roman, new york, times, serif">Alisson Lucrécio da Costa</font><br></div> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div
dir="ltr"> <font size="2" face="Arial"> <div style="margin: 5px 0px; padding: 0px; border: 1px solid rgb(204, 204, 204); height: 0px; line-height: 0; font-size: 0px;" class="hr" contentEditable="false" readonly="true"></div> <b><span style="font-weight: bold;">From:</span></b> mauricio osvaldo moura <mauricio.moura@ufpr.br><br> <b><span style="font-weight: bold;">To:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight: bold;">Sent:</span></b> Monday, July 2, 2012 1:54 PM<br> <b><span style="font-weight: bold;">Subject:</span></b> [R-br] dificuldade para gerar um loop<br> </font> </div> <br>
<meta content="off" http-equiv="x-dns-prefetch-control"><div id="yiv1116649587"><div>Caros,<div><br></div><div><br></div><div>estou com um problema que deve ser simples de responder mas que eu fiquei empacado. Tenho uma base de dados (data frama) com 15.245 linhas por 369 colunas. Destas 369 colunas as 19 primeiras são médias de variáveis ambientais (retiradas do worldclim) e 330 representam a presená/ausência de determinada espécie nas células. a matrix ficaria assim:</div><div><br></div><div><span style="font-family: Monaco; font-size: 13px;" class="yiv1116649587Apple-style-span"><br></span></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;">Rangebio2<span style="color: rgb(4, 34, 153);"> </span>StdDevbio2<span style="color: rgb(4, 34, 153);"> </span>CoefVarbio2<span style="color: rgb(4, 34, 153);"> </span>Minbio3<span style="color: rgb(4, 34, 153);"> </span>Meanbio3<span
style="color: rgb(4, 34, 153);"> </span>Agalychniscallidryas<span style="color: rgb(4, 34, 153);"> </span>Agalychnislitodryas<span style="color: rgb(4, 34, 153);"> </span>Acriscrepitans<span style="color: rgb(4, 34, 153);"> </span></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; color: rgb(4, 34, 153); font-size-adjust: none; font-stretch: normal;"><span style="color: rgb(5, 81, 24);">2.402</span> <span style="color: rgb(5, 81, 24);">0.034</span> <span style="color: rgb(5, 81, 24);">50</span> <span style="color: rgb(5, 81, 24);">50.889</span> <span style="color: rgb(5, 81, 24);">51.0</span>
<span style="color: rgb(5, 81, 24);">0</span> <span style="color: rgb(5, 81, 24);">0</span> <span style="color: rgb(5, 81, 24);">0</span> </div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; color: rgb(4, 34, 153); font-size-adjust: none; font-stretch: normal;"><span style="color: rgb(5, 81, 24);">1.680</span> <span style="color: rgb(5, 81, 24);">0.022</span> <span style="color: rgb(5, 81, 24);">50</span> <span style="color: rgb(5, 81, 24);">51.611</span> <span style="color: rgb(5, 81, 24);">51.5</span> <span style="color: rgb(5, 81, 24);">0</span> <span style="color: rgb(5, 81, 24);">0</span>
<span style="color: rgb(5, 81, 24);">0</span> </div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; color: rgb(4, 34, 153); font-size-adjust: none; font-stretch: normal;"><span style="color: rgb(5, 81, 24);">1.136</span> <span style="color: rgb(5, 81, 24);">0.014</span> <span style="color: rgb(5, 81, 24);">50</span> <span style="color: rgb(5, 81, 24);">51.344</span> <span style="color: rgb(5, 81, 24);">51.5</span> <span style="color: rgb(5, 81, 24);">0</span> <span style="color: rgb(5, 81, 24);">0</span> <span style="color: rgb(5, 81, 24);">0</span>
</div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; color: rgb(4, 34, 153); font-size-adjust: none; font-stretch: normal;"><span style="color: rgb(5, 81, 24);">0.860</span> <span style="color: rgb(5, 81, 24);">0.011</span> <span style="color: rgb(5, 81, 24);">50</span> <span style="color: rgb(5, 81, 24);">50.867</span> <span style="color: rgb(5, 81, 24);">50.5</span> <span style="color: rgb(5, 81, 24);">0</span> <span style="color: rgb(5, 81, 24);">0</span> <span style="color: rgb(5, 81, 24);">0</span> </div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; color: rgb(4, 34, 153); font-size-adjust: none; font-stretch: normal;"><span
style="color: rgb(5, 81, 24);">2.819</span> <span style="color: rgb(5, 81, 24);">0.045</span> <span style="color: rgb(5, 81, 24);">46</span> <span style="color: rgb(5, 81, 24);">46.971</span> <span style="color: rgb(5, 81, 24);">47.0</span> <span style="color: rgb(5, 81, 24);">0</span> <span style="color: rgb(5, 81, 24);">0</span> <span style="color: rgb(5, 81, 24);">0</span> </div><div><span style="color: rgb(4, 34, 153); font-family: Monaco; font-size: 11px;" class="yiv1116649587Apple-style-span"><span style="color: rgb(5, 81, 24);">2.126</span> <span style="color: rgb(5, 81, 24);">0.032</span> <span style="color: rgb(5, 81, 24);">47</span>
<span style="color: rgb(5, 81, 24);">47.639</span> <span style="color: rgb(5, 81, 24);">48.0</span> <span style="color: rgb(5, 81, 24);">0</span> <span style="color: rgb(5, 81, 24);">0</span> <span style="color: rgb(5, 81, 24);">0</span> </span><span style="font-family: Monaco; font-size: 13px;" class="yiv1116649587Apple-style-span"> </span><font class="yiv1116649587Apple-style-span" face="Monaco"><span style="font-size: 13px;" class="yiv1116649587Apple-style-span"><div style="font: 12.5px/normal Monaco; margin: 0px; font-size-adjust: none; font-stretch: normal;">
</div></span></font></div><div><br></div><div><div style="font: 12.5px/normal Monaco; margin: 0px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 12.5px/normal Monaco; margin: 0px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3">O problema é que eu preciso de uma média de cada variável climática para cada espécie, que são 330 em coluna.</font></div></div><div style="font: 12.5px/normal Monaco; margin: 0px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 12.5px/normal Monaco; margin: 0px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3">Minha primeira tentativa foi gerar um classificador com cada espécie e usar o nome da espécie como id e fazer as operações. isso não
funcionou.</font></div><div style="font: 12.5px/normal Monaco; margin: 0px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 12.5px/normal Monaco; margin: 0px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3">O que eu fiz então, foi usar o seguinte comando:</font></div><div style="font: 12.5px/normal Monaco; margin: 0px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 12.5px/normal Monaco; margin: 0px; font-size-adjust: none; font-stretch: normal;"><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><span style="color: rgb(4, 34, 153);"><br></span></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px
4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><span style="color: rgb(4, 34, 153);"><br></span></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><span style="color: rgb(4, 34, 153);">with(</span>spp<span style="color: rgb(4, 34, 153);">, mean(</span>Meanbio1<span style="color: rgb(4, 34, 153);"> [</span>Agalychnisannae<span style="color: rgb(4, 34, 153);">!=</span><span style="color: rgb(5, 81, 24);">0</span><span style="color: rgb(4, 34, 153);">]))</span></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><span style="color: rgb(4, 34, 153);"><font class="yiv1116649587Apple-style-span" size="3"><br></font></span></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px;
font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3">Isso funciona bem. O problema é que são 330 nomes e mais 18 variáveis para fazer.</font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3">tentei fazer um loop para chamar todos os nomes e gerar uma
tabela de saida com o nome da espécie (nome da coluna) e a média da variável mas não consegui nada.</font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3">Por isso gostaria de saber se alguém poderia me dar uma força sugerindo uma forma de fazer esse loop ou indicando outra possibilidade.</font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3">Como
apenas abri o data frame e usei esta função este é o código mínimo (e único) que eu tenho.</font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3">Obrigado antecipadamente</font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3">Mauricio</font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch:
normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" size="3"><br></font></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><span style="color: rgb(4, 34, 153);"><font class="yiv1116649587Apple-style-span" size="3"><br></font></span></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch:
normal;"><span style="color: rgb(4, 34, 153);"><font class="yiv1116649587Apple-style-span" size="3"><br></font></span></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><span style="color: rgb(4, 34, 153);"><br></span></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><span style="color: rgb(4, 34, 153);"><br></span></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><span style="color: rgb(4, 34, 153);"><br></span></div><div style="font: 10.9px/normal Monaco; margin: 0px 0px 0px 4px; font-size-adjust: none; font-stretch: normal;"><font class="yiv1116649587Apple-style-span" color="#042299"><br></font></div></div></div></div><meta content="on" http-equiv="x-dns-prefetch-control"><br>_______________________________________________<br>R-br mailing list<br><a
href="mailto:R-br@listas.c3sl.ufpr.br" ymailto="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" 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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br> </div> </div> </div></body></html>