r-回归投资组合超额收益

Question

我的数据：

dput(head(mydata))
structure(list(DATE = structure(c(-315619200, -312940800, -310435200, 
-307756800, -305164800, -302486400), tzone = "UTC", class = c("POSIXct", 
"POSIXt")), RF = c(0.33, 0.29, 0.35, 0.19, 0.27, 0.24), RMRF = c(-6.99, 
0.99, -1.46, -1.7, 3.08, 2.09), SMB = c(2.13, 0.71, -0.65, 0.32, 
1.42, -0.24), UMD = c(-3.28, 3.59, 1.85, 2.6, 4.77, 1.03), HML = c(2.65, 
-2.15, -2.69, -2.22, -3.83, -0.3), JANDUM = c(1, 0, 0, 0, 0, 
0), R4 = c(-4.57, 1.5, -2.83, -1.98, 3.54, 2.15)), row.names = c(NA, 
-6L), class = c("tbl_df", "tbl", "data.frame"))

因此，我的数据包含：

R4是投资组合的百分比回报，RF是商品的回报无风险(无风险利率(，RMRF是投资组合的超额收益市场组合、SMB、UMD和HML是三个因素JANDUM是1月份的虚拟变量(1月份虚拟变量(。

数据的月频率为1960年1月至2003年12月(共有528次观测(。

这是我试图建立的，我正在努力回归投资组合超额回报(R4-RF(一个常数和所有其他变量(RMRF、SMB、UMD、HML和JANDUM(

我怎样才能做到这一点？

Answer 1

也许这会让你开始？

mydata$PER <-mydata$R4 - mydata$RF 
mydata$JANDUM <- as.factor(mydata$JANDUM)
model <- lm(PER ~ DATE + RMRF + SMB + UMD + HML + JANDUM, data = mydata)
summary(model)