ปรับข้อมูล Univariate สำหรับการแบ่งหุ้นและเงินปันผล
หากมีเพียงราคาปิด สามารถปรับได้ด้วย adjRatios() ซึ่งรับอาร์กิวเมนต์ 3 ตัว ได้แก่ splits, dividends และ close แล้วส่งคืนออบเจกต์ xts ที่มีอัตราส่วนการปรับสำหรับการแบ่งหุ้นและเงินปันผลในคอลัมน์ "Split" และ "Div" ตามลำดับ
ต้องระบุข้อมูลการแบ่งหุ้นผ่านอาร์กิวเมนต์ splits เพื่อคำนวณอัตราส่วนการแบ่งหุ้น ส่วนการคำนวณอัตราส่วนเงินปันผลนั้น ต้องระบุเงินปันผลดิบและราคาดิบผ่านอาร์กิวเมนต์ dividends และ close ตามลำดับ
เมื่อได้อัตราส่วนการปรับสำหรับการแบ่งหุ้นและเงินปันผลแล้ว ให้คำนวณราคาที่ปรับแล้วโดยคูณราคาที่ยังไม่ปรับด้วยอัตราส่วนการปรับทั้งสอง
ใน Workspace มีข้อมูล splits, dividends และ raw_dividends จากแบบฝึกหัดก่อนหน้า รวมถึงข้อมูล AAPL จาก Yahoo Finance
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การนำเข้าและจัดการข้อมูลทางการเงินใน 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