# Toy example
dates <- as.Date("2020-01-01") + 7*(0:5)
scores <- data.frame(
Date = dates,
AAA = seq(0.1, 0.6, length.out = 6),
BBB = rev(seq(0.1, 0.6, length.out = 6))
)
weights <- data.frame(
Date = dates,
AAA = c(0, 0.1, 0, 0.2, 0, 0.15),
BBB = c(0, 0, 0, 0, 0, 0 )
)
scores_oos_only(scores, weights)
Run the code above in your browser using DataLab