home.social
  1. data challenge: rolling median

    library(data.table)
    set.seed(108)
    x = rnorm(1e8)
    n = 1000
    frollmedian(x, n) |> system.time()
    # user system elapsed
    # 8.439 0.727 3.212