如果在R中删除了项目/案例，那么Cronbach的Alpha

Question

我在R中有一堆数据集，有问题的cronbach's alphas。 这些数据没有缺失值，因此我用以下内容计算alpha：

cronbach <- function(x){
colx <- ncol(x)
value <- (1-sum(apply(x,2,var))/var(apply(x,1,sum)))*(colx/(colx-1))
return(value)}

我需要的是一个不仅计算alpha而且还计算：

的函数

1. 如果项目（列）已删除
，则计算alpha

2. 如果案例（行）已删除，则计算alpha Dataframe或任何合理维度的矩阵。

   提前致谢。