Deret waktu bobot
Pada latihan sebelumnya, Anda mengeksplorasi fungsionalitas fungsi Return.portfolio() dan membuat portofolio menggunakan dua strategi. Namun, dengan menyetel argumen verbose = TRUE di Return.portfolio() Anda dapat membuat daftar bobot dan nilai awal periode (BOP) serta akhir periode (EOP) selain pengembalian portofolio, dan kontribusi.
Anda dapat mengaksesnya dari objek daftar hasil yang dibuat oleh Return.portfolio(). Daftar hasil tersebut berisi $returns, $contributions, $BOP.Weight, $EOP.Weight, $BOP.Value, dan $EOP.Value.
Dalam latihan ini, Anda akan membuat ulang portofolio yang Anda buat pada latihan terakhir namun memperluasnya dengan membuat daftar perhitungan menggunakan verbose = TRUE. Anda kemudian akan memvisualisasikan bobot akhir periode Apple.
Objek returns sudah dimuat sebelumnya di ruang kerja Anda.
Latihan ini adalah bagian dari kursus
Pengantar Analisis Portofolio di R
Petunjuk latihan
- Definisikan vektor
eq_weightsuntuk dua aset dengan bobot sama. - Buat portofolio pengembalian dengan menggunakan strategi buy and hold dan setel
verbose = TRUE. Beri namapf_bh. - Buat portofolio pengembalian menggunakan strategi rebalancing bulanan dan setel
verbose = TRUE. Beri namapf_rebal. - Buat objek baru bernama
eop_weight_bhmenggunakan bobot akhir periode daripf_bh. - Buat objek baru bernama
eop_weight_rebalmenggunakan bobot akhir periode daripf_rebal. - Plot bobot akhir periode Apple dalam
eop_weight_bhmenggunakanplot.zoo(), dan bobot akhir periode Apple dalameop_weight_rebalmenggunakanplot.zoo().par(mfrow = c(2, 1), mar = c(2, 4, 2, 2))digunakan untuk menata plot yang Anda buat. Jangan ubah kode ini.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# 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)