支持定义函数 - 聚合、均值、t 检验、表输出

大佬教程收集整理的这篇文章主要介绍了支持定义函数 - 聚合、均值、t 检验、表输出，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决支持定义函数 - 聚合、均值、t 检验、表输出？

开发过程中遇到支持定义函数 - 聚合、均值、t 检验、表输出的问题如何解决？下面主要结合日常开发的经验，给出你关于支持定义函数 - 聚合、均值、t 检验、表输出的解决方法建议，希望对你解决支持定义函数 - 聚合、均值、t 检验、表输出有所启发或帮助；

我目前正在进行一项事件研究。我在学习的最后部分一遍又一遍地喜欢相同的步骤，因此我想将这些步骤插入到我可以应用的函数中。输出应以表格形式呈现。

这是我的数据的 MRE：

df = data.frame(
  Date_ = 1:15,ISIN = rep(c('CH00','CH00','GB00'),length.out=15,each=5),Return = c(0.0175,-0.0734,0.0457,0.0208,-0.0780496,0.0688210,-0.0064685,-0.0997418,-0.0203781,0.0056672,0.0028146,0.0366418,0.0745412,0.1555046),rating_Change = c(0,1.9,-0.90,3.66,0),rating = c('A','A','B+','B+'),event = c(0,1,2,1)
)
df

然后我应用以下函数来过滤非零事件 - 在本例中大于零。 对于“s”，我可以定义评级变化的次数。 对于“w”，我可以定义事件的窗口。

event_up <- function(df,s,w) {
  data_filtered_up <- data.frame()
  for (i in 1:nrow(df)) {
    if (df[i,4]>s) {
      data_filtered_up[i+w,1:6] <- filter(df[i+w,1:6])
      data_filtered_up           <- na.omit(data_filtered_up)
    }
  }
  return(data_filtered_up)
}

现在我要执行以下步骤（针对不同的评级更改和不同的事件窗口一遍又一遍）：

TR_event_u_m3          <- event_up(df,-3:-1) #0 defines that the rating change is greater than 0,"-3:-1" defines the pre-event window (3 to 1 month before event)
TR_CAR_u_m3            <- aggregate(.~TR_event_u_m3$ISIN,data=TR_event_u_m3,mean) #aggregating the ISINs to calculate cumulative abnormal returns 
TR_CAR_u_m3            <- TR_CAR_u_m3[,-2][,-2] #deleting non-necessary columns 
TR_CAAR_u_m3           <- mean(TR_CAR_u_m3$AR) #calculate the mean of all cumulative average abnormal returns (CAAR) pre event window
TR_CAAR_u_m3_t         <- t.test(TR_CAR_u_m3$AR) #make t-test for the CAAR
TR_CAAR_table[1,1]     <- TR_CAAR_u_m3 #put CAAR value in table
TR_CAAR_table[2,1]     <- TR_CAAR_u_m3_t$statistic #put t-test for CAAR value in table

输出应在特定表中，其中行名描述事件窗口并始终遵循相应的 t 检验：

TR_CAAR_table           <- matrix(NA,8,8)
colnames(TR_CAAR_table) <- c("GSE_U","E_U","S_U","G_U","GSE_D","E_D","S_D","G_D")
rownames(TR_CAAR_table) <- c("t= -3:-1","t-test -3:-1","t= -1:+1","t-test -1:+1","t= 0:+1","t-test 0:+1","t= +1:+3","t-test +1:+3")

有没有办法将上述步骤（聚合、删除不必要的列、均值、t检验结果和表中的正确放置）整合到上面提到的函数（event_up）中，以便我只需要应用该功能，而不需要为每个事件窗口/评级更改一遍又一遍地键入步骤？

我尝试了几次，但总是出现错误，我真的不知道为什么。因此，非常感谢任何帮助和支持！！ 非常感谢你，安东尼亚

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

大佬总结

以上是大佬教程为你收集整理的支持定义函数 - 聚合、均值、t 检验、表输出全部内容，希望文章能够帮你解决支持定义函数 - 聚合、均值、t 检验、表输出所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。