Novas respostas marcadas com a tag dplyr
1
A pergunta está com a tag dplyr, mas eis uma alternativa usando data.table:
library(data.table)
dt <- as.data.table(x)
dt[, `:=`(spread_3 = frollmean(x, 3), spread_5 = frollmean(x, 5))]
> dt
x spread_3 spread_5
1: 30 NA NA
2: 35 NA NA
3: 10 25.00000 NA
4: 25 23.33333 NA
5: 15 16.66667 23
6: 20 20.00000 ...
3
Acredito que o argumento align = "right" dentro da função zoo:rollmean seja o que é necessário para resolver esse problema.
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> ...
respondida 10/02 às 20:51
Marcus Nunes
17mil77 medalhas de ouro2525 medalhas de prata4848 medalhas de bronze
As 50 principais respostas recentes são incluídas
Tags relacionadas
dplyr × 108r × 102
tidyverse × 14
data.frame × 9
rstudio × 8
dataframe × 6
ggplot2 × 5
data × 4
string × 3
plyr × 3
stringr × 2
banco-de-dados × 1
array × 1
regex × 1
excel × 1
loop × 1
for × 1
script × 1
join × 1
table × 1
multithreading × 1
group-by × 1
filter × 1
packages × 1
paralelismo × 1