การประเมินมูลค่าหุ้นด้วย R
Cliff Ang
Senior Vice President, Compass Lexecon
ในเชิงคณิตศาสตร์ CAPM มีรูปแบบดังนี้:
$$ E(R_i) = R_f + \beta_i (R_m - R_f) $$
โดยที่
โดยทั่วไป Beta ประมาณค่าด้วยการถดถอยแบบ market model ในรูปแบบ:
$$ R_i = \alpha + \beta \times R_m $$
(ต่างจาก CAPM ตรงที่ market model ไม่มีอัตราผลตอบแทนที่ปราศจากความเสี่ยง!!!)
โดยที่
การถดถอยมักดำเนินการโดยใช้
# Calculate stock return rets <- Delt(prices$firm_ret)# Calculate market return rets$spy <- Delt(prices$spy)# Rename first variable names(rets)[1] <- "firm_ret"# Remove first observation - NA rets <- rets[-1, ]# Run regression reg <- lm(myl ~ spy, data = rets)# Extract beta beta <- summary(reg)$coeff[2]
การประเมินมูลค่าหุ้นด้วย R