编写函数的优雅方式

问题描述

编写以下函数的一种更优雅的方法是什么。我正在尝试练习我的函数开发技能，而我只是在尝试手动重新创建线性模型的CI。我非常了解confint（model）函数，但仍然...

jad<-function(x,y) {
  model<-lm(y~x)
  std.err<-coef(summary(model))[,2]
  coef.model1<-coef(summary(model))[,1]
  upper.ci<-coef.model1+1.96*std.err
  lower.ci<-coef.model1-1.96*std.err
  print(upper.ci)
  print(lower.ci)
}

解决方法

下面的代码如何？

jad <- function(x,y) {
  `colnames<-`(
    coef(summary(lm(y ~ x)))[,1:2] %*% matrix(c(1,1.96,1,-1.96),nrow = 2),c("upper.ci","lower.ci")
  )
}