# NOT RUN {
# NOT RUN {
# Load data
data("data_efficient_portfolios_returns")
m_assets_returns <- data_efficient_portfolios_returns
number_assets <- length(m_assets_returns[1,])
v_weights <- rep(1/number_assets, number_assets)
# Portfolio Diversification Index (PDI)
f_diversification_measurement(v_weights, m_assets_returns, "Portfolio_Diversification_Index")
# Diversification Ratio (DR)
f_diversification_measurement(v_weights, m_assets_returns, "Diversification_Ratio")
# Diversification Delta (DD)
f_diversification_measurement(v_weights, m_assets_returns, "Diversification_Delta")
# Diversification Delta Star (DD*)
f_diversification_measurement(v_weights, m_assets_returns, "Diversification_Delta_Star")
# }
# }
Run the code above in your browser using DataLab