if (FALSE) { # identical(tolower(Sys.getenv("NOT_CRAN")), "true")
weighting_function <- decay_power(decay_value = 0.1)
weighting_function(c(20, 35))
weighting_function <- decay_power(decay_value = c(0.1, 0.2))
weighting_function(c(20, 35))
}
Run the code above in your browser using DataLab