如何在“ twang”包中停止打印“ ps”功能？

Question

R中“ twang”包中的“ ps”功能（倾向得分估算）一直在打印其报告。我该如何关闭？

我已经尝试将“ print.level”参数设置为0。但这对我不起作用。

D = rbinom(100, size = 1, prob = 0.5)
X1 = rnorm(100)
X2 = rnorm(100)
ps(D ~ ., data = data.frame(D, X1, X2), stop.method = 'es.mean',  
estimand = "ATE", print.level = 0)

我希望没有印刷过程，但它会不断给我类似的东西：

拟合gbm模型 Iter TrainDeviance ValidDeviance StepSize改善      1 1.3040纳米0.0100纳米      2 1.3012纳米0.0100纳米      3 1.2985纳米0.0100纳米      4 1.2959楠0.0100楠      5 1.2932纳米0.0100纳米      6 1.2907纳米0.0100纳米      7 1.2880纳米0.0100纳米      8 1.2855纳米0.0100纳米      9 1.2830纳米0.0100纳米     10 1.2804纳米0.0100纳米     20 1.2562纳米0.0100纳米 .....

这很烦人。

Answer 1

大概您想将结果捕获到一个变量中；如果将其与verbose = FALSE参数结合使用，它应该可以满足您的需求：

res <- ps(D ~ ., data = data.frame(D, X1, X2), stop.method = 'es.mean', 
   estimand = "ATE", print.level = 0, verbose = FALSE)

我尚未测试您是否仍然需要print.level = 0。