抽样调查实验考试题2013-2014.docVIP

实 验（实训）考试 项 目 名 称 浙江财经大学2013-2014学年第一学期 《抽样调查》实验课程期末综合测试 所属课程名称 抽样调查 适用专业、班级 11统计1，统计2 实验(实训)日期 2013年12月4日 班 级 11统计2 学 号 姓 名 浙江财经大学教务处制 要求：编写R程序完成以下题目，请在第2页开始答题，在答案中列出程序与结果。 1. R 软件基本操作 (0分) 读取student.txt中数据，(计算全部30名学生的数学、物理的平均成绩；(抽取一个样本容量为8的样本，求总体中数学、物理的平均成绩的估计；(计算该估计的误差。 ( 用函数rep()构造一个向量x，它由3个4，4个3，5个1构成； ( 用1-12产生一个3*4的矩阵； ( 产生一个数据表(list)，第一层为(1)题中student数据集，第二层为R内嵌的mtcars数据集。 (3) ( 产生来自正态分布N(5,1)的100个随机数； ( 计算其概率密度在x=3处的函数值； ( 画出其分布函数的图像。 2．简单随机抽样 (分) 设总体N=10，其指标值为{3，3，4，5，5，5，6，7，7，9} 计算总体方差S2； 从中抽取n=3的随机样本，计算不放回抽样的方差； 按不放回抽样，验证=。 3．分层抽样 (30分) 调查某个地区的养牛头数，以村作为抽样单元。根据村的海拔高度和人口密度划分成四层，每层取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 要求： 估计该地区养牛总头数Y及其估计量的相对标准误差； 分层抽样； 若样本量不变采用Neyman分配可以减少方差多少？ (15分)test.xls 中采取分层抽样方法，以语言为层，从每层抽取20人，对变量Total进行估计和分析，得出Total的平均成绩，95％的置信区间以及标准误。 答题纸 student=read.table(D:/student.txt,head=T) MATH-student[,2] PHYSICS-student[,3] MATHbar=mean(MATH) PHYSICSbar=mean(PHYSICS) math-sample(MATH,8) mathbar-mean(math) physics-sample(PHYSICS,8) physicsbar-mean(physics) errormath-mathbar-MATHbar errorphysics-physicsbar-PHYSICSbar MATHbar [1] 75.8 PHYSICSbar [1] 75.66667 mathbar [1] 77.25 physicsbar [1] 83.375 errormath [1] 1.45 errorphysics [1] 7.708333 （2） ( rep(c(4,3,1),c(3,4,5)) rep(c(4,3,1),c(3,4,5)) [1] 4 4 4 3 3 3 3 1 1 1 1 1 ( A-array(1:12,c(3,4)) A [,1] [,2] [,3] [,4] [1,] 1 4 7 10 [2,] 2 5 8 11 [3,] 3 6 9 12 ( L1-list(student,mtcars) L1 [[1]] name math physics chem literat english 1 Katty 65 61 72 84 79 2 Leo 77 77 76 64 55 3 Ricky 67