# Simulate data for 50 assets over 200 time periods
set.seed(123)
T <- 200
p <- 50
returns <- matrix(rnorm(T * p, mean = 0.001, sd = 0.02), ncol = p)
# Compute bandwidth using Silverman's rule of thumb
bw <- silverman(returns)
print(bw)
tv <- TVMVP$new()
tv$set_data(returns)
tv$silverman()
Run the code above in your browser using DataLab