當我嘗試用貓進行打印，它給我回NULL的盡頭

Question

counts <- c(18,17,15,20,10,20,25,13,12) 
outcome <- gl(3,1,9) 
treatment <- gl(3,3) 

model1 <- glm(counts ~ outcome + treatment, family = poisson()) 
model2 <- glm(counts ~ outcome, family = poisson()) 

print_params <- function(model){ 
    cat("\nAIC:", model$aic, 
     "\nDeviance:", model$deviance)} 

list_models <- list(model1,model2) 
do.call("rbind", sapply(list_models, print_params, simplify = FALSE)) 

這給了我：

AIC: 56.76132 
Deviance: 5.129141 
AIC: 52.76132 
Deviance: 5.129141NULL 

我不知道爲什麼我得到這個。有沒有另外一種方法呢？

Answer 1

NULL來自命令行，評估你輸入的內容。這link談到它（Spacedman的迴應）。

他們建議你用invisible（）包裝函數。這個工作對我來說：

invisible(do.call("rbind", sapply(list_models, print_params, simplify = FALSE))) 

AIC: 56.76132 
Deviance: 5.129141 

AIC: 52.76132 
Deviance: 5.129141 

Answer 2

print_params回報NULL（cat是副作用），所以如果你看看你*apply的結果，你有cat結果，那麼兩個NULL名單。 do.call然後返回您的函數的結果，然後返回兩個NULL的結果，即一個NULL。

爲了捕捉只是副作用，稍有簡化你的語法：

do.call("cat", lapply(list_models, print_params)) 

給

AIC: 56.76132 
Deviance: 5.129141 
AIC: 52.76132 
Deviance: 5.129141