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