# \donttest{
data(sample_prices_weekly)
b <- function(prices, params, ...) {
weight_equally(filter_top_n(calc_momentum(prices, params$lookback), 10))
}
opt <- run_param_grid(
prices = sample_prices_weekly,
grid = list(lookback = c(8, 12, 26)),
builder = b
)
plot(opt, type = "line", params = "lookback")
# }
Run the code above in your browser using DataLab