抽样调查2要点.doc

实 验（实训）报 告 项 目 名 称 简单随机抽样(三)，分层抽样 所属课程名称 抽样调查 项 目 类 型 综合性实验 实验(实训)日期 201年 月 日 班 级 学 号 姓 名 指导教师 罗 季 浙江财经大学教务处制 实验名称: 简单随机抽样(三)，分层抽样 实验目的: 编写R程序解决简单随机抽样及分层抽样中的统计问题 实验要求: 解题，编写R程序，实现. 调查某个地区的养牛头数，以村作为抽样单元。根据村的海拔高度和人口密度划分成四层，每层取10个村作为样本单元，经过调查获得下列数据 层 村总数 样本村养牛头数 1 2 3 4 5 6 7 8 9 10 1 2 3 4 1411 4705 2558 14997 43 84 98 0 10 44 0 124 13 0 50 147 62 87 84 158 170 104 56 160 228 262 110 232 139 178 334 0 63 220 17 34 25 34 36 0 25 7 15 31 要求： 估计该地区养牛总头数及其估计量的。 求分层抽样。 若样本量不变采用Neyman分配可以减少方差多少？ 某乡欲估计今年的小麦总产量，全县共实验过程: N1-1411 N2-4705 N3-2558 N4-14997 y1-c(43,84,98,0,10,44,0,124,13,0) y2-c(50,147,62,87,84,158,170,104,56,160) y3-c(228,262,110,232,139,178,334,0,63,220) y4-c(17,34,25,34,36,0,25,7,15,31) N-N1+N2+N3+N4 W1-N1/N W2-N2/N W3-N3/N W4-N4/N ybar1-mean(y1) ybar2-mean(y2) ybar3-mean(y3) ybar4-mean(y4) ybar-W1*ybar1+W2*ybar2+W3*ybar3+W4*ybar4 Y-N*ybar Y [1] 1353572 VY-(N1*(N1-n)*var(y1))/n+(N2*(N2-n)*var(y2))/n+(N3*(N3-n)*var(y3))/n+(N4*(N4-n)*var(y4))/n SY-sqrt(VY)/Y SY [1] 0计该地区养牛总头数1353572及其估计量的0(2) N1-1411 N2-4705 N3-2558 N4-14997 y1-c(43,84,98,0,10,44,0,124,13,0) y2-c(50,147,62,87,84,158,170,104,56,160) y3-c(228,262,110,232,139,178,334,0,63,220) y4-c(17,34,25,34,36,0,25,7,15,31) N-N1+N2+N3+N4 W1-N1/N W2-N2/N W3-N3/N W4-N4/N ybar1-mean(y1) ybar2-mean(y2) ybar3-mean(y3) ybar4-mean(y4) ybar-W1*ybar1+W2*ybar2+W3*ybar3+W4*ybar4 vybar-(W1^2*var(y1)+W2^2*var(y2)+W3^2*var(y3)+W4^2*var(y4))/10-(W1*var(y1)+W2*var(y2)+W3*var(y3)+W4*var(y4))/N vsrs=(N-10)/(10*(N-1))*(W1^2*var(y1)+W2^2*var(y2)+W3^2*var(y3)+W4^2*var(y4)-(W1^2*var(y1)+W2^2*var(y2)+W3^2*var(y3)+W4^2*var(y4))/10+W1*ybar^2+W2*ybar^2+W3*ybar^2+W4*ybar^2-ybar^2+vyabr) deff-vybar/vsrs deff [1] 1.011586 (3) y1-c(43,84,98,0,10,44,0,124,13,0) y2-c(50,147,62,87,84,158,170,104,56,160) y3-c(228,262,110,232,139,178,334,0,6