計算估值倍數
使用你在前一個練習中找出的製藥公司（其資料已存於 pharma 資料物件），計算可比公司 的 P/LTM EPS、P/NTM EPS，以及 P/BVPS。P 代表該股票的市場價格，EPS 是每股盈餘，BVPS 是每股帳面淨值。
請注意，實務上常用的資料庫有時不會提供 EPS 或 BVPS。因此，你需要讓程式碼有足夠彈性，只在 EPS 或 BVPS 為正值時才計算倍數。若 EPS 或 BVPS 非正值（也就是小於或等於 0），程式碼應將該倍數的值設為 NA。
在本練習中，請使用 ifelse() 將非正值設為 NA。其餘為正值的情況下，就可以計算估值倍數。
本練習屬於課程
在 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