การคำนวณ Valuation Multiples
จากบริษัทในอุตสาหกรรมยาที่ระบุไว้ในแบบฝึกหัดก่อนหน้า (ข้อมูลถูกเก็บไว้ในออบเจกต์ pharma) ให้คำนวณค่า P/LTM EPS, P/NTM EPS และ P/BVPS สำหรับบริษัทที่เปรียบเทียบได้ โดย P คือราคาตลาดของหุ้น, EPS คือกำไรต่อหุ้น และ BVPS คือมูลค่าตามบัญชีของส่วนของผู้ถือหุ้นต่อหุ้น
ในทางปฏิบัติ EPS หรือ BVPS อาจไม่มีข้อมูลในบางครั้งเมื่อดึงจากฐานข้อมูลที่ใช้กันทั่วไป ดังนั้น โค้ดจึงต้องมีความยืดหยุ่นพอที่จะคำนวณ multiple เฉพาะเมื่อ EPS หรือ BVPS มีค่าเป็นบวกเท่านั้น หาก EPS หรือ BVPS ไม่เป็นบวก (คือน้อยกว่าหรือเท่ากับ 0) ให้กำหนดค่าของ multiple นั้นเป็น NA
ในแบบฝึกหัดนี้ ให้ใช้ฟังก์ชัน ifelse() เพื่อกำหนดให้ค่าที่ไม่เป็นบวกเท่ากับ NA ส่วนค่าที่เป็นบวกให้คำนวณ valuation multiple ตามปกติ
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การประเมินมูลค่าหุ้นด้วย R
คำแนะนำการฝึกหัด
- คำนวณ P/LTM EPS
- คำนวณ P/NTM EPS
- คำนวณ P/BVPS
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
# Calculate P/LTM EPS
pharma$ltm_p_e <- ifelse(___, ___, ___)
# Calculate P/NTM EPS
pharma$ntm_p_e <- ifelse(___, ___, ___)
# Calculate P/BVPS
pharma$p_bv <- ifelse(___, ___, ___)
pharma