R変数名を印刷する、chi-sqループ

Question

私はRが初めてのので、これはかなり簡単だと確信しています。

 0 1 
    0 1016 977 
    1 47 35 

     Pearson's Chi-squared test 

data: data$heart and data[, var] 
X-squared = 1.2665, df = 1, p-value = 0.2604 

は、私はちょうどそれが実際変数名を印刷したい：それは次の結果を印刷し、最初の変数については

results <- lapply(c("age", "female", "black"), 
function(var){ 
print(table(data$heart,data[,var])); 
print(chisq.test(data$heart,data[,var], correct = FALSE)) 
}) 

：これは二変量テーブルとカイ二乗を印刷するループとして動作しますchi-sq結果の中の "data [、var]"の代わりにテーブルの/にあるので、私は何を見ているのか知っています。

ありがとうございました！

Answer 1

が、私はこれは私が実際に正確に同じ結果を得ている

fun <- function(var){ 
    print(table(data$heart,data[,var], dnn = c('heart', paste(var)))) 
    out <- chisq.test(data$heart,data[,var], correct = FALSE) 
    out$data.name <- paste('heart and',var) 
    print(out) 
} 

results <- lapply(c("age", "female", "black"),fun)