data.table frollmax on descending

[tdhock]

@DorisAmoakohene please translate https://github.com/Rdatatable/data.table/issues/5923 to atime and post results here.

[DorisAmoakohene]

this is the result after I use atime using this code

result.frollmax <- atime::atime(

  N = 10^seq(1,3),
  setup = {
    set.seed(123)
    atime <- function(N, k, func) {
      x = func(N)
      y.data.table = data.table::frollmax(x, k)

    }
  },
  seconds.limit = 2,
  expr.list = list(
    normal = quote(atime(N, 10^seq(1,3), rnorm)),
    equalto0 = quote(atime(N, 10^seq(1,3), function(N) {rep(0, N)})),
    ascending = quote(atime(N, 10^seq(1,3), function(N) {seq(0, length.out=N)})),
    descending = quote(atime(N, 10^seq(1,3), function(N) {seq(0, by=-1, length.out=N)}))
  )
)

ee)

[tdhock]

great start, please increase N so we may see more differences.

[DorisAmoakohene]

by increasing N = 10^seq(1,7), this is the result I am getting

also is there a reason why descending cut at some point(1e05)?

[tdhock]

descending is cut because it went over seconds.limit

[tdhock]

is your result consistent with the original?

[DorisAmoakohene]

yes, it is

[tdhock]

please link to the code that you created and then close after