Question

我正在尝试将列表另存为.csv文件

我正在使用“心理”获得cohen.kappa。我有数据（名为ic2），有1000个观察值和51个变量。

kappa <- function(ic2, colN) {
    tab <- vector("list", colN)
    for (i in seq_len(ncol(ic2))) {
    tab[[i]]=cohen.kappa(res[[i]])}
    tab}
a=kappa(ic2, ncol(ic2))
a

输出将是：

[[1]]
Call: cohen.kappa1(x = x, w = w, n.obs = n.obs, alpha = alpha)

Cohen Kappa and Weighted Kappa correlation coefficients and confidence boundaries 
                 lower estimate upper
unweighted kappa     1        1     1
weighted kappa       1        1     1

 Number of subjects = 1000 

[[2]]
Call: cohen.kappa1(x = x, w = w, n.obs = n.obs, alpha = alpha)

Cohen Kappa and Weighted Kappa correlation coefficients and confidence boundaries 
                 lower estimate upper
unweighted kappa  0.87      0.9  0.93
weighted kappa    0.87      0.9  0.93

 Number of subjects = 1000

所以有51个输出。我想将51输出保存为一个csv文件。我怎么能保存它？我想保存输出有3列和两行（行的名称是未加权的kappa和加权kappa;列的名称是低，估计和上限），因为我将从输出中提取估计值。

Answer 1

我不清楚您与51列中的每一列进行比较的其他评级是什么。但这里有一个例子可以帮助你做你想做的事。我创建了一个类似你的假数据框但更小，只有10行和5列。我使用1到10之间的数字作为参考评级，为每行计算Cohen的kappa。结果保存在与原始数据框具有相同行数的数据框中，6个变量分别代表未加权和加权kappa的下限，估计值和上限。

# fake data
ic2 <- data.frame(matrix(sample(1:5, size=10*5, replace=TRUE), nrow=10))

# reference rating ?
ref <- 1:nrow(ic2)

# Cohen's kappa
results <- data.frame(t(apply(ic2, 2, function(x) as.numeric(t(cohen.kappa(cbind(ref, x))$confid)))))
names(results) <- c("klo", "k", "kup", "kwlo", "kw", "kwup")
results

如何保存列为csv文件的模式

1 个答案: