R로 하는 주식 가치평가
Cliff Ang
Senior Vice President, Compass Lexecon
내재 가격 산출 절차
상대 가치평가는 내재 가격을 산출
BVPS가 $30인 중형 금융주의 가치는 얼마인가?
finl <- subset(midcap400, gics_sector == "Financials")finl$p_bv <- ifelse(finl$bvps < 0, NA, finl$price / finl$bvps)finl <- finl[complete.cases(finl), ]avg_p_b <- mean(finl$p_bv) avg_p_b
2.688627
bvps <- 30
implied_price <- avg_p_b * bvps
implied_price
80.65881
R로 하는 주식 가치평가