Optimización de Programas de Inversión

Nota Breve: Introducción a la Teoría Moderna de Portafolios.

Harry Markowitz publicó en 1952 un trabajo "Selección de portafolios" el cual después sería referido como "La theoria modernade portafolios". En el cual especificaba

Introduction Portfolio theory deals with the problem of constructing for a given collection of assets an investment with desirable features. A variety of different asset characteristics can be taken into consideration, such as the amount of value, on average, an asset returns on over a period of time and the riskiness of reaping returns comparable to the average. The financial objectives of the investor and tolerance of risk determine what types of portfolios are to be considered desirable.

Portafolio con 2 activos:

Valor Esperado (Media):

Riesgo (Desviación Estándar):


In [4]:
library(quantmod)
library(PerformanceAnalytics)
Tickers  <- c("AC.MX","ALFAA.MX")
getSymbols(Tickers, from="2014-01-01", to="2016-02-01")
ClosePrices  <- do.call(merge, lapply(Tickers, function(x) Cl(get(x))))
TotalBMV <- na.omit(ClosePrices)
Rendimientos <- round(Return.calculate(TotalBMV, method = "discrete")[-1],4)
Rendimientos <- Rendimientos[complete.cases(Rendimientos)]


Out[4]:
  1. 'AC.MX'
  2. 'ALFAA.MX'

In [ ]: