在r中使用mice包时如何解决这个错误？

问题描述

我正在尝试为一组分类和数值变量估算缺失值。 我使用的代码如下：

sapply(data,function(x) sum(is.na(x)))

library(dplyr) 
data1 <- data %>%
  mutate(
    Age = as.numeric(Age),Sex = as.factor(Sex),BMI = as.numeric(BMI),Smoking = as.factor(Smoking),Alcohol = as.factor(Alcohol),HIV = as.factor(HIV),DM = as.factor(DM),Outcome = as.factor(Outcome),)

library(mice)
init = mice(data1,maxit=0) 
meth = init$method
predM = init$predictorMatrix

meth[c("Age","BMI")]="norm" 
meth[c("Sex","Smoking","Alcohol","HIV","DM","Outcome")]="logreg" 

set.seed(123)
imputed = mice(data1,method=meth,predictorMatrix=predM,m=5)

imputed1 <- complete(imputed)

但我不断收到此错误：

iter 变量 1 1 AgeError in solve.default(xtx + diag(pen)) ： 系统在计算上是奇异的：倒数条件数 = 8.07738e-24

有没有人对此有任何解决方案？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）