估计ATE时有这么一行ate.all <- c(s.out1$qi$att.ev, -s.out2$qi$att.ev)

输入后报错，Error in s.out1$qi$att.ev : 类别为'closure'的对象不可以取子集

用mode查看，s.out1的类别为S4，s.out1$qi的类型为function，如何引用才能得到正确的结果呢？谢谢