Cada alteração em um vetor sum () em outro
Boa tarde pessoal, Estou com uma dúvida de programação, onde tenho dois vetores de dados onde gostaria de obter a soma do primeiro, a cada alteração do segundo, tentei fazer: cont<-rpois(1000,4)####Cria os dados parc<-rep(1:length(freq),each=2)###Cria um novo vetor dados<-cbind(freq, parc) head(dados) ###Aqui gostaria de fazer a soma de cont a cada alteração de parc, usando um loop, for(i in 1:length(dados)) ##poderia ate especificar algo como dados$parc[i]>parc[i]+1 ## mas o problema seria fazer a sum() dentro de dados$freq Alguém teria alguma sugestão, Obrigado -- Alexandre DOS SANTOS Engenheiro Florestal, Msc. Laboratório de Entomologia Florestal Departamento de Entomologia Universidade Federal de Lavras Caixa Postal 3037 37200-000 - Lavras - Minas Gerais - Brasil Tel: +55 35 92230304
Vc vai precisar explicar melhor o seu caso para q eu possa entender. (por sinal, seu exemplo nao eh reproduzivel, faltou definir quem eh 'freq')
Desculpe Benilton, Tentei tantas coisas que estou confundindo os objetos. Meu problema é tenho dois vetores (freq e parc)em:
freq<-rpois(10000,4)####Cria os dados parc<-rep(1:length(freq),each=2)###Cria um novo vetor dados0<-cbind(freq, parc) dados[1:10,] freq parc [1,] 3 1 [2,] 4 1 [3,] 3 2 [4,] 3 2 [5,] 3 3 [6,] 3 3 [7,] 5 4 [8,] 3 4 [9,] 7 5 [10,] 6 5
Porém eu gostaria de criar um novo vetor onde a cada alteração em parc, gostaria da soma de freq, sendo que no exemplo, o novo vetor teria como primeiro valor o 7 (soma de 3 + 4 no objeto freq, pois no vetor parc alterou-se de 1 para 2) e assim sucessivamente ate o final do objeto dados, estava tentando utilizar a função if e como condição dados$parc[i]>parc[i]+1 mas não sei como seria fazer a soma dentro de dados$freq, uma vez que não posso utilizar operações com vetores dentro da função if(), Obrigado Alexandre Em 25-11-2011 14:24, Benilton Carvalho escreveu:
Vc vai precisar explicar melhor o seu caso para q eu possa entender. (por sinal, seu exemplo nao eh reproduzivel, faltou definir quem eh 'freq') _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- Alexandre DOS SANTOS Engenheiro Florestal, Msc. Laboratório de Entomologia Florestal Departamento de Entomologia Universidade Federal de Lavras Caixa Postal 3037 37200-000 - Lavras - Minas Gerais - Brasil Tel: +55 35 92230304
suponha que parc e freq tenham a mesma frequencia (no seu caso nao tem, mas acho q foi um erro seu) freq<-rpois(10000,4) parc<-rep(1:length(freq),each=2, length.out=length(freq)) res = tapply(freq, parc, sum) b
Obrigado Benilton!!!! e desculpe pelo vergonhoso erro -- Alexandre DOS SANTOS Engenheiro Florestal, Msc. Laboratório de Entomologia Florestal Departamento de Entomologia Universidade Federal de Lavras Caixa Postal 3037 37200-000 - Lavras - Minas Gerais - Brasil Tel: +55 35 92230304 Em 25-11-2011 14:53, Benilton Carvalho escreveu:
parc<-rep(1:length(freq),each=2, length.out=length(freq))
se era isso, outra opcao eh usar aggregate()
participantes (2)
-
ASANTOS -
Benilton Carvalho