“闭包”类型的对象不可子集

Question

我正在尝试编译正在运行但未编译的代码。

错误消息：从第 40-42 行退出 (midterm.Rmd) data$Y_i1 中的错误：“闭包”类型的对象不是子集 调用： ... withCallingHandlers -> withVisible -> eval -> eval -> mean 执行停止

代码

c) 使用来自问题集 1 的数据集“potential_outcomes.Rda”（在 bCourses 上也加载了此考试），使用 R 计算 ATE 和 SE($\hat{ATE}$)。对于后者，假设在实验中将一半的单位分配给治疗组。ATE是参数还是估计量？SE($\hat{ATE}$)怎么样？

ATE <- mean(data$Y_i1) - mean(data$Y_i0)
ATE ## Average Treatment Effect

N1 <- length(data$Y_i1)
N0 <- length(data$Y_i0)
N <- 23 # Half of observations
var1 <- var(data$Y_i1)
var0 <- var(data$Y_i0)
var1N <- var1/N
var0N <- var0/N
SEATE <- sqrt(var1N + var0N)
SEATE ## The Standard Error of the ATE

ATE 是一个参数，因为它描述了框。不需要估计。另一方面，ATE 的 SE 近似于均值差异的真实标准误差。

Answer 1

object of type 'closure' is not subsettable 表示您正在尝试对函数进行子集化。如果不设置data，则会引用utils包中的data函数。

is.function(data)
#> [1] TRUE

因此，如果我们尝试使用 $ 运算符，则会出现错误。

data$Species
#> Error in data$Species : object of type 'closure' is not subsettable

但是，如果将data 设置为数据框，它就可以工作。

data <- iris

data$Species
#>  [1] setosa     setosa    
#>  [3] setosa     setosa  
#>  ...