us_60_40 <- asset_allocations$static$us_60_40
reb_date <- as.Date("2022-03-31")
constant_weights(us_60_40,
reb_date,
ETFs$Prices[, us_60_40$tickers],
ETFs$Returns[, us_60_40$tickers],
ETFs$risk_free)
Run the code above in your browser using DataLab