Eu tenho um data frame com dados diários, sendo cada linha os mês/ano e cada coluna os dias 1, 2, 3...
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
---|---|---|---|---|---|---|---|
1 | 10 | 5 | 0 | 0 | 25 | 12 | 0 |
2 | 0 | 0 | 0 | 0 | 0 | 0 | 1 |
3 | 40 | 25 | 5 | 0 | 1 | 0 | 32 |
4 | 0 | 10 | 6 | 3 | 0 | 0 | 2 |
5 | 2 | 0 | 0 | 0 | 3 | 0 | 0 |
6 | 10 | 3 | 15 | 30 | 3 | 0 | 0 |
7 | 0 | 0 | 0 | 0 | 0 | 0 | 18 |
Preciso contar quantas sequências de 5 ou mais zeros há em cada linha usando o RStudio. Encontrei uma pergunta similar (aqui), mas não funcionou aqui. Quando rodo
rollapply(dados, 5, mean)
Está calculando por coluna e preciso contar por linha. Tentei incluir o rowsum:
dados5 <- rowsum(rollapply(dados, 5, mean)==0)
Só que dá erro:
Error in rowsum.default(rollapply(dados, 5, mean) == 0) : 'x' deve ser numérico
No data frame os dados são numéricos, então, não entendi o erro. Quando utilizo o jitter,
dados5 <- ifelse(dados == 0, dados, jitter(dados))
rowsum(rollapply(data5, 5, mean) == 0)
aparece mesmo erro:
Error in jitter(dados) : 'x' deve ser numérico
Se alguém puder ajudar, agradeço.
jitter
não faz o que pensa que faz, veja também esta pergunta do SO.en.