Caros R-users
Dada uma matrix qualquer:
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”)
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)
matrix.x = data.frame(seq,var1)
funcao.x = function(x,d=1,T=3)
{
i = exp ( ( -x ) / ( d * T ) )
net = sum (i)
resultado = 100 * ( i / net )
return (resultado)
}
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.
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:
R2 <- ddply(matrix.x, 'seq', transform, var=funcao.x(matrix.x$var1))
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
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?
No mais agradeço,
Thales Siqueira