<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:10pt"><div><span>Apenas tire a parte '<span style="font-style: italic;">matrix.x$'</span> e deve funcionar:</span></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><span><br></span></div><div style="background-color: transparent;"><span><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif;">R2 <- ddply(matrix.x, 'seq', transform, var=funcao.x(var1))</span><br></span></div><div><br></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><br></div><div style="color: rgb(0, 0, 0);
font-size: 13px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><br></div> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 10pt;"> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div dir="ltr"> <hr size="1"> <font size="2" face="Arial"> <b><span style="font-weight:bold;">De:</span></b> Tropidurus Torquatus <t.torquatus@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Terça-feira, 25 de Fevereiro de 2014 12:41<br> <b><span style="font-weight: bold;">Assunto:</span></b> [R-br] Família ply<br> </font> </div> <div class="y_msg_container"><br><div id="yiv4458045722"><div><div>Caros
R-users</div><div><br></div><div>Dada uma matrix qualquer:</div><div><br></div><div><span style="background-color:rgb(0, 0, 0);"><font color="#29f914" face="Andale Mono">seq = c("a","a","a","a","a","a","b","b","b","b","b","c","c","c","c","c","c","c","c","c","c","c","c","c”)</font></span></div><div><div style="margin: 0px; font-family: 'Andale Mono'; color: rgb(41, 249, 20); background-color: rgb(0, 0, 0);">var1 = c(1,2,3,4,5,6,0,1,2,3,4,0,1,2,3,4,5,6,7,8,9,10,11,12)</div></div><div><div style="margin: 0px; font-family: 'Andale Mono'; color: rgb(41, 249, 20); background-color: rgb(0, 0, 0);">matrix.x = data.frame(seq,var1)</div></div><div><br></div><div>funcao.x = function(x,d=1,T=3)</div><div><span class="yiv4458045722Apple-tab-span" style="white-space:pre;"> </span>{</div><div><span class="yiv4458045722Apple-tab-span" style="white-space:pre;"> </span>i = exp ( ( -x ) / ( d * T ) )</div><div><span class="yiv4458045722Apple-tab-span"
style="white-space:pre;"> </span>net = sum (i)</div><div><span class="yiv4458045722Apple-tab-span" style="white-space:pre;"> </span>resultado = 100 * ( i / net ) </div><div></div><div><span class="yiv4458045722Apple-tab-span" style="white-space:pre;"> </span>return (resultado)</div><div><span class="yiv4458045722Apple-tab-span" style="white-space:pre;"> </span>}</div><div><br></div><div>Preciso aplicar a função dentro de cada subgrupo (seq) da matrix.x e criar ou um novo data.frame ou uma nova linha da matrix.x.</div><div>Tentei utilizar o comando ddply do pacote, com o comando abaixo, não sei se essa seria a melhor forma, mas mesmo assim não estou conseguindo:</div><div>
<div style="margin-bottom:0.71cm;">library(“plyr”) </div></div><div><br></div><div><br></div><div><div style="margin: 0px; font-family: 'Andale Mono'; color: rgb(41, 249, 20); background-color: rgb(0, 0, 0);">R2 <- ddply(matrix.x, 'seq', transform, var=funcao.x(matrix.x$var1))</div><div style="margin: 0px; font-family: 'Andale Mono'; color: rgb(0, 249, 0); background-color: rgb(0, 0, 0);">Error in data.frame(list(seq = c(2L, 2L, 2L, 2L, 2L), var1 = c(0, 1, 2, : arguments imply differing number of rows: 5, 24</div></div><div><br></div><div><br></div><div>Na verdade essa formula deveria dar um valor para cada linha… não sei se escolhi a função correta para o que necessito, alguém poderia me mostrar um caminho a seguir?</div><div><br></div><div>No mais agradeço,</div><div><br></div><div>Thales Siqueira</div><div><br></div><div><br></div></div></div><br>_______________________________________________<br>R-br mailing list<br><a
ymailto="mailto:R-br@listas.c3sl.ufpr.br" 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" 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> </div></body></html>