Ağırlıkların zaman serisi
Önceki egzersizde Return.portfolio() fonksiyonunun işlevlerini keşfettin ve iki strateji kullanarak portföyler oluşturdun. Ancak Return.portfolio() içinde verbose = TRUE argümanını ayarlayarak, portföy getirilerine ve katkılarına ek olarak dönemin başı (BOP) ve dönemin sonu (EOP) ağırlık ve değerlerinden oluşan bir liste de oluşturabilirsin.
Bunlara, Return.portfolio() tarafından oluşturulan sonuç liste-nesnesinden erişebilirsin. Bu sonuç listesi $returns, $contributions, $BOP.Weight, $EOP.Weight, $BOP.Value ve $EOP.Value içerir.
Bu egzersizde, son egzersizde oluşturduğun portföyleri yeniden oluşturacak ama bunu verbose = TRUE kullanarak bir hesaplamalar listesi çıkaracak şekilde genişleteceksin. Ardından Apple’ın dönem sonu ağırlıklarını görselleştireceksin.
returns nesnesi çalışma alanında önceden yüklüdür.
Bu egzersiz
R ile Portföy Analizine Giriş
kursunun bir parçasıdırEgzersiz talimatları
- İki varlık için eşit ağırlıklı
eq_weightsvektörünü tanımla. - Satın al ve elde tut stratejisini kullanarak ve
verbose = TRUEayarlayarak getirilerden bir portföy oluştur. Bunapf_bhadını ver. - Aylık yeniden dengeleme stratejisini kullanarak ve
verbose = TRUEayarlayarak getirilerden bir portföy oluştur. Bunapf_rebaladını ver. pf_bhiçindeki dönem sonu ağırlıklarını kullanarakeop_weight_bhadlı yeni bir nesne oluştur.pf_rebaliçindeki dönem sonu ağırlıklarını kullanarakeop_weight_rebaladlı yeni bir nesne oluştur.eop_weight_bhiçindeki Apple’ın dönem sonu ağırlıklarınıplot.zoo()ile veeop_weight_rebaliçindeki Apple’ın dönem sonu ağırlıklarınıplot.zoo()ile çiz. Oluşturduğun grafikleri düzenlemek içinpar(mfrow = c(2, 1), mar = c(2, 4, 2, 2))kullanılır. Bu kodu değiştirme.
Uygulamalı interaktif egzersiz
Bu örnek kodu tamamlayarak bu egzersizi bitirin.
# 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)