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)