<div dir="ltr"><div>Thales, bom dia!</div><div><br></div><div>A explicação está um pouco confusa, mas deduzo que você queira aplicar a função e relativizá-la pelo somatório do grupo dado por 'seq'.</div><div><br></div>
<div>Na sua funcao.x vejo alguns problemas, como uso da notação reservada 'T' para uma variável e o fato da somatória ser a própria variável calculada.</div><div><br></div><div>Tentei uma solução mais simplista, baseado no que deduzi. Espero que o trecho de código que segue possa ajudar.</div>
<div><br></div><div><font face="courier new, monospace">### <code r></font></div><div><font face="courier new, monospace">seq  <- rep(c("a","b","c"), c(6,5,13))</font></div><div><font face="courier new, monospace">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)</font></div>
<div><font face="courier new, monospace">d    <- 1</font></div><div><font face="courier new, monospace">TT   <- 3 # Não use 'T' como nome de var, pois é reservado pra TRUE!</font></div><div><font face="courier new, monospace">ind  <- exp ( ( -var1 ) / ( d * TT ) ); ind</font></div>
<div><font face="courier new, monospace">net  <- sapply(seq(var1), function(x) sum(ind[which(seq==seq[x])])); net ### soma condicionada</font></div><div><font face="courier new, monospace">res  <- 100*(ind/net); res</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">df.x <- data.frame(seq, var1, ind, net, res); df.x ### data.frame != matrix</font></div><div><font face="courier new, monospace">### </code></font><br>
</div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">Se a ideia for realmente essa, dá pra melhorar o código e mesmo partir pra soluções com a família plyr.</font></div>
<div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><br></blockquote></div><br></div>
</div>