對單變數資料進行拆股與股利調整
如果你只有收盤價，可以用 adjRatios() 來調整。它有 3 個引數：splits、dividends 和 close。回傳的是一個 xts 物件，分別在 "Split" 與 "Div" 欄位提供拆股與股利的調整比率。
你需要透過 splits 引數提供拆股資料，才能計算拆股比率。若要計算股利比率，你需要分別透過 dividends 與 close 引數提供「未調整的」股利與「未調整的」價格。
取得拆股與股利的調整比率後，就把未調整價格同時乘上拆股與股利的調整比率，即可得到調整後價格。
你的工作空間已包含先前練習得到的 splits、dividends 與 raw_dividends，以及來自 Yahoo Finance 的 AAPL 資料。
本練習屬於課程
在 R 匯入與管理金融資料
練習說明
- 使用
adjRatios()計算拆股與股利的調整比率。將輸出指定給ratios。 - 取出 AAPL 的收盤價，將其同時乘上兩個調整比率，計算調整後收盤價，並指定給
aapl_adjusted。 - 檢視 Yahoo Finance 提供的調整後收盤價欄位的前幾列。
- 檢視你計算出的調整後收盤價的前幾列，並與 Yahoo Finance 的調整後收盤價比較。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
# Calculate split and dividend adjustment ratios
ratios <- adjRatios(splits = ___, dividends = ___, close = Cl(___))
# Use the Split and Div columns to calculate adjusted close for AAPL
aapl_adjusted <- Cl(___) * ratios[, "___"] * ratios[, "___"]
# Look at first few rows of adjusted close for AAPL
___(Ad(___))
# Look at first few rows of aapl_adjusted