Project 第一部分 数据处理
导入数据
> mydata <- read.csv("/users/xinyiwang/study/Rproject9/E6.csv")
查看数据中有缺失值的行
> mydata[!complete.cases(mydata),]
id alb rdw pla tg NLR gender age death hs ventilation
13 1230112 2.2 13.2 188 92 NA 0 81 1.00 2.7699 0
62 122031 2.2 12.8 NA 81 33.000000 NA 76 1.00 2.6600 0
77 103111 NA 17.2 231 NA 9.333000 0 73 1.00 1.2220 0
91 5100022 3.3 12.9 312 199 13.799000 NA 73 0.00 11.3330 1
124 663111 NA 16.1 99 NA 6.111100 1 72 1.00 3.0001 1
144 271110 2.5 13.6 118 NA 2.811110 0 70 0.00 3.2221 0
197 407661 4.1 12.5 288 81 NA 0 65 1.00 12.0112 0
245 409911 3.8 12.9 178 NA 4.550100 1 61 0.00 18.2210 0
277 230110 2.9 16.0 NA 132 1.200000 0 58 1.00 2.3300 1
297 391110 2.8 15.9 NA 20