# Compute weekly returns of an asset vector
require(xts)
asset_returns_xts <- xts(c(29.2, 30.0, 36.2, 30.4, 38.5, -35.6, 34.5),
order.by = as.Date(c("2022-05-01", "2022-05-08", "2022-05-15",
"2022-05-22", "2022-05-29", "2022-06-05",
"2022-06-12")))
weekly_return(asset_returns_xts)
Run the code above in your browser using DataLab