generate.unicef

来自「r软件 另一款可以计算核估计的软件包 需安装r软件」· UNICEF 代码 · 共 10 行

## 
unicef.tab <- read.table(file="unicef.full.dat", na.strings='-')
unicef <- na.omit(unicef.tab[unicef.tab[,10] <= 1000,c(1,4,11)])
rownames(unicef) <- unicef[,1]
unicef <- unicef[,-1]
colnames(unicef) <- c("GNI","Ave life exp")

save(unicef, file="unicef.RData", ascii=TRUE, version=2)