Fatal编程技术网
  • r/
  • R 编写函数的优雅方式

R 编写函数的优雅方式

r function

R 编写函数的优雅方式,r,function,R,Function,编写以下函数的更优雅的方式是什么。我试图练习我的功能开发技能，我只是试图手动重新创建线性模型的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 low

编写以下函数的更优雅的方式是什么。我试图练习我的功能开发技能，我只是试图手动重新创建线性模型的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下面的代码是什么


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")
  )
}



coef中的jad错误（总结（lm（y~x））%*%矩阵（c（1,1.96,1，-1.96），nrow=2）：不一致arguments@KEA
coef（summary（lm（y~x））的维度是什么？你能在帖子里展示一下吗？它是一个2x4，2行（截距和斜率）和4列（估计，标准误差，t值和p值）估计标准误差t值Pr（>| t |）（截距）30.569915 2.8709642 10.647961 1.564139e-22 stai 0.177085 0.1031589 1.716623 8.712701e-02@KEA好吧，请查看我的更新并重试。