R语言实现整群抽样总体均值和方差的估计
一、实验目的
二、计算程序（1）估计该学校每个学生每周的零花钱，并给出置信度为95的置信区间1。读取数据dataread。csv（C：UsersAdminDesktop抽样调查理论与方法整群抽样实例。csv）2。求样本均值的yas。matrix（data）将数据框类型转换为矩阵类型Eymean（y）样本均值3。求样本总方差N315n8M6fnN群间方差Eyiapply（data，2，mean）求第i群的均值参数说明：第二个参数为1表示求行平均，第二个参数为2表示求列平均data1rbind（data，Eyi）将群均值整合给数据框data中并赋值给data1data1sbsqrt（Msum（（EyiEy）2）（n1））群间方差的标准差sb样本均值的方差vsqrt（（1f）（sb2）（nM））样本均值的方差的标准差v95的置信区间lowerEy1。96v置信下限upperEy1。96v置信上限c（lower，upper）置信区间（2）估计以宿舍为群的群内相关系数和设计效应si2function（i）｛sum（（data〔，i〕mean（data〔，i〕））2）｝sw1sqrt（（si2（1）si2（2）si2（3）si2（4）si2（5）si2（6）si2（7）si2（8））（n（M1）））群内相关系数pc（sb2sw12）（sb2（M1）sw12）pc设计效应deff1（M1）pcdeff
三、计算结果（1）估计该学校每个学生每周的零花钱，并给出置信度为95的置信区间1。读取数据dataread。csv（C：UsersAdminDesktop抽样调查理论与方法整群抽样实例。csv）2。求样本均值的yas。matrix（data）将数据框类型转换为矩阵类型Eymean（y）样本均值3。求样本总方差N315n8M6fnN群间方差Eyiapply（data，2，mean）求第i群的均值参数说明：第二个参数为1表示求行平均，第二个参数为2表示求列平均data1rbind（data，Eyi）将群均值整合和数据框data中并赋值给data1data1宿舍1宿舍2宿舍3宿舍4宿舍5宿舍6宿舍7宿舍815891123。0000099。0000110。0111。0000120。000096。000002838389。00000105。000099。0100。0000115。000080。000003747994。0000098。0000132。0116。0000117。000063。00000482111109。00000107。000087。099。000099。0000130。0000056610179。00000129。000099。0107。0000106。0000105。000006876980。0000090。0000124。0105。0000120。000086。000007758995。66667104。6667108。5106。3333112。833393。33333sbsqrt（Msum（（EyiEy）2）（n1））群间方差的标准差sb〔1〕30。44198样本均值的方差vsqrt（（1f）（sb2）（nM））样本均值的方差的标准差v〔1〕4。33776795的置信区间lowerEy1。96v置信下限upperEy1。96v置信上限c（lower，upper）置信区间〔1〕89。66464106。66869（2）估计以宿舍为群的群内相关系数和设计效应si2function（i）｛sum（（data〔，i〕mean（data〔，i〕））2）｝sw1sqrt（（si2（1）si2（2）si2（3）si2（4）si2（5）si2（6）si2（7）si2（8））（n（M1）））群内相关系数pc（sb2sw12）（sb2（M1）sw12）pc〔1〕0。3476299设计效应deff1（M1）pcdeff〔1〕2。73815
用豆腐和鸡蛋做的这盘菜，在饭店卖到88块，我在家只用5块钱搞大家好！我是小梦！豆腐和鸡蛋是咱们经常选用的食材了，豆腐当中含有多种维生素和矿物质，其中的钙铁元素是最丰富的，而且豆腐的口感软嫩，入口即化特别好吃，而鸡蛋不同的做法都能呈现出不……
厨师长分享椒盐基围虾的做法，虾肉鲜嫩，喜欢吃虾的要收藏了大家好，我是第一美食阿飞，每天都有几道美食分享给你，关注带你领略四海八荒的舌尖美味。虾中含有丰富的镁，还具有益气滋养、补肾壮阳、通络止痛、开胃化痰等功效。今天和大家……
智能手表从三星GalaxyWatchActive2到苹果Ap前几天下单的AppleWatchSeries8今天坐着顺丰的飞机过来了！说说今天试戴的感觉，并简单比较一下AppleWatchSeries8与三星的GalaxyWatch……
Accuphase金嗓子50周年纪念之光A300单声道后级音AccuphaseA300单声道后级功放是一款顶级音响设备，作为日本顶尖品牌金嗓子庆祝50周年纪念的产品之一，具有卓越的性能和非凡的意义。它继承了前代产品A250的精湛工艺，进……
简单粗暴！月下无限连不是梦王者荣耀露娜带什么技能技能推荐：惩戒、净化1、惩戒惩戒是露娜作为打野必选的召唤师技能，在前期不仅可以帮助露娜快速刷野发育，也能帮助露娜很好地掌握主宰、暴君。后……
原来剥虾仁这么简单，你知道怎么样弄吗？简单剥虾法（个人观点，紧供参考）：小龙虾：步骤1：剥下虾钳，沿钳末的关节扭开步骤2：拔掉虾钳，吃掉钳里的虾肉步骤3：一手拿着虾身，一手抓着虾头，轻轻一扭……
好榴莲的挑选方法看部分肉，有的榴莲开裂以后可以看到一部分的果肉，那么如果果肉看起来尖小，那么肉就小不太好。闻气味，这一点没怎么买过的不太好买，大家可以找榴莲闻起来不是特别臭但是可以闻出甜……
张宁向林书豪学习很多，首次对位告诫自己别头脑发热虎扑01月03日讯202122赛季CBA常规赛第17轮，山西男篮118112北京男篮。赛后此役贡献14分的山西球员张宁接受采访，表示首次真正意义上对位林书豪有些紧张。张宁……
君子与小人的10大区别我们大家都知道，为人处世，要多交君子，少与小人来往，但什么样的人是君子，什么样的人是小人呢？这个还是先要辨别清楚。下面是君子和小人的10大区别，希望能够帮您认清身边的君子……
天天洗脸，您洗对了吗？洗对脸，才是健康护肤的第一步有一句话，叫：洗脸不对，护肤全废。充分说明了，洗脸的重要性，千万不要觉得，洗脸是一件很随便的事儿，洗脸，也大有文章，天天洗脸，您洗对了吗？把脸洗对，才是健康护肤的第一步，今天，……
8月宁可不吃肉，也要吃它！随手一煮，补脾益气，错过再等一年秋吃水八仙，赛过小神仙。秋天是比较讲究尝鲜的，水八仙指的则是水下的八种食材。分别是：菱角、莲藕、鸡头米、茭白、莼菜、马蹄、茨菇、水芹菜。去年在门口的小堰塘放了点菱角，没想……
川菜传统菜系之烧白过去，在四川隆重一点场合一般都会有九道菜，俗称九大碗，其中纳入平常百姓餐桌上的一道菜特别受老年人喜爱，这也是我父亲最爱的一道菜烧白。烧白分为甜烧白与咸烧白，甜烧白又称为夹……
咖啡到底好不好？昨天给大家科普了喝咖啡是否致癌的问题。我是从丙烯酰胺的角度讲的，基本意思是喝咖啡致癌与丙烯酰胺有关，要想达到致癌的剂量，那需要55杯咖啡一天喝下去，而且要长此以往。这个问……
我国有哪些本地人不吃专让外地人吃的美食小吃？对于吃货来说，出去玩的时候赏景识人是次要的，一路逛吃逛吃才是旅行的意义所在。每个城市都有那么几条即使没去过也早有耳闻的美食街，每个地方都有那么几种独具地方特色，去了都要往回带的……
美食家做菜食谱拌黄瓜丝【材料】嫩黄瓜500克，芝麻酱、陈醋各18克，精盐10克，白糖、蒜泥、香油各5克，葱丝75克，姜丝3克。【操作】1。将黄瓜洗净，去把，横切成片，……
说出你家乡最令人回味的水果还有美食？我们老家在孝感云梦县，好吃的小吃很多。各种各样。我比较喜欢吃砂子馍。这种面食做起来简单，工艺有几道。先和好面，把包馅的内容放好，包好它，擀平，做成面饼，放在炒过的鹅卵石上，炕一……
生活中有太多难忘的美食，你做梦吃过美食吗？是什么美食？谢谢！很高兴能回答你的问题。人的欲望是无限大的，没有得到的就越想得到，而对于爱美食的人来说，越没有吃过的美食，越是向往，而对于我这个超级吃货来说，每次看完美食节目晚上就会……
高圆圆晒踏青美照，衬衣领口大开锁骨迷人，阅读量超过30万明星跟风是娱乐圈很常见的一种现象，这一段时间，晒踏青美照成为了一种时尚，不少女明星开始晒自己踏青的美照，就连高圆圆也开始跟风了，晒出了一组踏青美照，并收获了不错的流量。近……
宇麦科技群晖NAS的CPU突然加班？不要慌！它可能在帮你索引有些小伙伴在安装完NAS之后便会先将文件一股脑地全都导入到SynologyDrive文件夹或团队文件夹中再慢慢进行整理此时你会发现DSM的右上角多……
差点儿重现一个麦迪时刻是真惊险啊！湖人和火箭的最后时刻杰伦格林这小子居然45秒连扔俩三分别忘了火箭历史上可出过麦迪时刻的小格林这后撤步，撤到湖人嗓子眼了虽说火箭开局就拉垮，一……
品质品牌数字化我爱我家坚守三大关键词发力2023岁末年初，随着中央层面重申房地产是国民经济支柱产业地位，并出台多项政策保障房地产市场平稳运行，各地支持房地产的利好政策轮番出台，市场预期整体向好。2023年，我爱我家将抓……
托多罗维奇2213王少杰195廖三宁196北控大胜江苏终结2北京时间1月15日，202122赛季CBA常规赛第23轮，北控男篮对阵江苏男篮。北控男篮4节比赛一直保持领先，最终11482大胜江苏男篮。北控方面，王少杰19分5篮板，廖三宁1……
上海本地人下馆子一般会去哪里？上海人一般下馆子还是喜欢吃一些老字号啦！阿峰面馆虹口的老字号面馆，生意出奇的好，只有中午才会开门营业！这家葱油是用小火慢慢熬出来的，特别香，浇头也都是分量十足，很地道的本……
看一看百万亩花海的花花世界，最美的时候，最佳观景地几度春风过，花开遍地香。春风吹绿了大地，送来醉人的花香。又到了赏花最好的时节，今天带你去看一看花花世界。中国有众多的赏花圣地，恐怕几天几夜也说不完，今天重点介绍几个最美的……