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