如何解决编写函数的优雅方式
编写以下函数的一种更优雅的方法是什么。我正在尝试练习我的函数开发技能,而我只是在尝试手动重新创建线性模型的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")
)
}