install.packages（“icarus”） install.packages（“devtools”） 库（devtools） 安装github（“haroine/icarus”） 图书馆（icarus） N<-300##人口规模 ##计算Horvitz-Thompson估计量（返回1.66666 7） 加权平均值（data_employees$movies，data_empleyees$weight，N） ##添加校准边距 mar1<-c（“类别”，3,80,90,60） 3月2日<-c（“性别”，2140,90,0） 3月3日<-c（“部门”，2100130,0） 3月4日<-c（“工资”，0470000,0,0） 边缘<-rbind（3月1日、3月2日、3月3日、4日） ##计算校准重量 wCal<-校准（data=data_employees，marginMatrix=margins，colWeights=“weight” ，method=“raking”，description=FALSE） ##校准估计器的值：2.471917 加权平均值（data_employees$movies，wCal，N）