mydata<-read.csv("f:/Book1.csv")
mydata
mydata[complete.cases(mydata), ]
mydata[!complete.cases(mydata), ]
library(mice)
md.pattern(mydata)
x <- as.data.frame(abs(is.na(mydata)))#这一行是干嘛的?
head(mydata, n=111)
head(x, n=111)
imp<-mice(mydata,seed=22222)#这里运行老是显示1 1 热量摄入.千卡. 艾滋病人数.人. 艾滋病发病率.人.万人. 成年男性健康状况得分.分. 成年女性健康状况得分.分.错误于solve.default(xtx + diag(pen)) :
系统计算上是奇异的: 倒条件数=1.90034e-16
fit=with(imp,lm(热量摄入.千卡= 艾滋病人数.人+艾滋病发病率.人.万人+成年男性健康状况得分.分+成年女性健康状况得分.分))#这里的lm后面不知道哪些设为自变量,因变量,我只是个补个缺失值,难道还要分自变量和因变量?
pooled<-pool(fit)
summary(pooled)
dataset3 <- complete(imp, action=3)


雷达卡





京公网安备 11010802022788号







