La serie temporal de los pesos
En el ejercicio anterior, exploraste la funcionalidad de la función Return.portfolio() y creaste carteras usando dos estrategias. Sin embargo, si defines el argumento verbose = TRUE en Return.portfolio(), además de los rendimientos de la cartera y las contribuciones, puedes crear una lista con los pesos y valores de inicio de período (BOP) y fin de período (EOP).
Puedes acceder a estos elementos desde el objeto de tipo lista que devuelve Return.portfolio(). La lista resultante contiene $returns, $contributions, $BOP.Weight, $EOP.Weight, $BOP.Value y $EOP.Value.
En este ejercicio, vas a recrear las carteras del ejercicio anterior, pero ampliando el análisis al crear una lista de cálculos usando verbose = TRUE. Después, visualizarás los pesos de fin de período de Apple.
El objeto returns está precargado en tu espacio de trabajo.
Este ejercicio forma parte del curso
Introducción al análisis de carteras en R
Instrucciones del ejercicio
- Define el vector
eq_weightspara dos activos con el mismo peso. - Crea una cartera de rendimientos usando la estrategia buy and hold y estableciendo
verbose = TRUE. Llámalapf_bh. - Crea una cartera de rendimientos usando la estrategia de rebalanceo mensual y estableciendo
verbose = TRUE. Llámalapf_rebal. - Crea un nuevo objeto llamado
eop_weight_bhusando los pesos de fin de período depf_bh. - Crea un nuevo objeto llamado
eop_weight_rebalusando los pesos de fin de período depf_rebal. - Representa los pesos de fin de período de Apple en
eop_weight_bhusandoplot.zoo(), y los pesos de fin de período de Apple eneop_weight_rebalusandoplot.zoo(). Se usapar(mfrow = c(2, 1), mar = c(2, 4, 2, 2))para organizar las gráficas que crees. No modifiques este código.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# Create the weights
eq_weights <-
# Create a portfolio using buy and hold
pf_bh <- Return.portfolio(returns, weights = eq_weights, ___ )
# Create a portfolio that rebalances monthly
pf_rebal <- Return.portfolio(returns, weights = eq_weights, rebalance_on = "months", ___ )
# Create eop_weight_bh
# Create eop_weight_rebal
# Plot end of period weights
par(mfrow = c(2, 1), mar=c(2, 4, 2, 2))
plot.zoo(___$AAPL)
plot.zoo(___$AAPL)