Định giá cổ phiếu bằng R
Cliff Ang
Senior Vice President, Compass Lexecon
Về mặt toán học, CAPM như sau:
$$ E(R_i) = R_f + \beta_i (R_m - R_f) $$
trong đó
Beta thường được ước tính bằng hồi quy mô hình thị trường dạng:
$$ R_i = \alpha + \beta \times R_m $$
(khác CAPM, mô hình thị trường không có lãi suất phi rủi ro!!!)
trong đó
Hồi quy thường được thực hiện với
# 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]
Định giá cổ phiếu bằng R