ต้นทุนส่วนทุน
ในแบบฝึกหัดนี้ จะให้คำนวณต้นทุนส่วนทุนตามแบบ CAPM ณ สิ้นปี 2016 บริษัทที่ศึกษามีค่า beta เท่ากับ 1.46 ซึ่งเก็บอยู่ในตัวแปร beta โดยจะต้องคำนวณอัตราผลตอบแทนไร้ความเสี่ยงและส่วนชดเชยความเสี่ยงของตราสารทุนจากเทคนิคที่เรียนไปในบทก่อนหน้า ข้อมูลพันธบัตรรัฐบาลสหรัฐฯ อายุ 10 ปี จาก Federal Reserve Electronic Database เก็บอยู่ใน treas และข้อมูลผลตอบแทนของดัชนี S&P 500 และพันธบัตรรัฐบาลอายุ 10 ปี จากเว็บไซต์ของศาสตราจารย์ Damodaran website เก็บอยู่ใน damodaran
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การประเมินมูลค่าหุ้นด้วย R
คำแนะนำการฝึกหัด
- กรองข้อมูลพันธบัตรรัฐบาลสหรัฐฯ เฉพาะวันที่ 30 ธันวาคม 2016
- เลือกเฉพาะคอลัมน์ที่ 2 (อัตราผลตอบแทน)
- แปลงอัตราผลตอบแทนไร้ความเสี่ยงจากหน่วยเปอร์เซ็นต์เป็นทศนิยม
- คำนวณส่วนต่างรายปีระหว่างผลตอบแทนของ S&P กับผลตอบแทนของพันธบัตรรัฐบาลสหรัฐฯ
- คำนวณค่าเฉลี่ยของส่วนต่างผลตอบแทน
- คำนวณต้นทุนส่วนทุนตามแบบ CAPM
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
# Subset Treasury data to 12/30/16
rf <- subset(treas, ___)
# Keep 2nd column
rf_yield <- ___
# Convert to decimal terms
rf_yield_dec <- ___
rf_yield_dec
# Calcualte difference between S&P 500 Return and Treasury Return
diff <- ___
# Calculate average difference
erp <- ___
erp
# Calculate CAPM Cost of Equity
ke <- ___
ke