portfolio <- add.constraint(portfolio, type = "full_investment") portfolio <- add.constraint(portfolio, type = "box", min = 0, max = 1) # Add objective to maximize the Sharpe Ratio portfolio <- add.objective(portfolio, type = "risk", name = "StdDev") portfolio <- add.objective(portfolio, type = "return", name = "mean", target = 0.35/109) portfolio <- add.objective(portfolio, type = "risk_adjusted_return", name = "SharpeRatio", risk_free_rate = risk_free_rate) opt_portfolio_deoptim <- optimize.portfolio(R = returns_xts, portfolio = portfolio, optimize_method = "DEoptim", trace = TRUE)

Spatial data

Las encuestas con factores de expansión estatales y geolocalizados

Predicciones de precios de Indice al Consumidor, utilizando la librería forecast de R

portfolio <- add.constraint(portfolio, type = "full_investment") portfolio <- add.constraint(portfolio, type = "box", min = 0, max = 1) # Add objective to maximize the Sharpe Ratio portfolio <- add.objective(portfolio, type = "risk", name = "StdDev") portfolio <- add.objective(portfolio, type = "return", name = "mean", target = risk_free_rate) portfolio <- add.objective(portfolio, type = "risk_adjusted_return", name = "SharpeRatio", risk_free_rate = risk_free_rate) opt_portfolio_deoptim <- optimize.portfolio(R = returns_xts, portfolio = portfolio, optimize_method = "DEoptim", trace = TRUE)

portfolio <- add.constraint(portfolio, type = "full_investment") portfolio <- add.constraint(portfolio, type = "box", min = 0, max = 1) # Add objective to maximize the Sharpe Ratio portfolio <- add.objective(portfolio, type = "risk", name = "StdDev") portfolio <- add.objective(portfolio, type = "return", name = "mean", target = 0.35/109) portfolio <- add.objective(portfolio, type = "risk_adjusted_return", name = "SharpeRatio", risk_free_rate = risk_free_rate) opt_portfolio_deoptim <- optimize.portfolio(R = returns_xts, portfolio = portfolio, optimize_method = "DEoptim", trace = TRUE)

7:10