资源描述：
《非全参数统计(r软件)参考答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、实用标准文案内容：A.3,A.10,A.12A.3上机实践：将MASS数据包用命令library(MASS)加载到R中，调用自带“老忠实”喷泉数据集geyer，它有两个变量：等待时间waiting和喷涌时间duration，其中…(1)将等待时间70min以下的数据挑选出来;(2)将等待时间70min以下,且等待时间不等于57min的数据挑选出来;(3)将等待时间70min以下喷泉的喷涌时间挑选出来;(4)将喷涌时间大于70min喷泉的等待时间挑选出来。解:读取数据的R命令：library(MASS);#加载MASS包data(geyser);#加载数据集geyserattach(g
2、eyser);#将数据集geyser的变量置为内存变量(1)依题意编定R程序如下：sub1geyser=geyser[which(waiting<70),1];#提取满足条件（waiting<70）的数据,which()，读取下标sub1geyser[1:5];#显示子数据集sub1geyser的前5行[1]5760565054(2)依题意编定R程序如下：Sub2geyser=geyser[which((waiting<70)&(waiting!=57)),1];#提取满足条件（waiting<70&(waiting!=57)的数据.Sub2geyser[1:5];#显示子数据集su
3、b1geyser的前5行[1]6056505460……原数据集的第1列为waiting喷涌时间，所以用[which(waiting<70),2](3)Sub3geyser=geyser[which(waiting<70),2];#提取满足条件（waiting<70）的数据,which()，读取下标Sub3geyser[1:5];#显示子数据集sub1geyser的前5行[1]4.0000004.3833334.8333335.4500004.866667……原数据集的第2列为喷涌时间，所以用[which(waiting<70),2](4)Sub4geyser=geyser[which
4、(waiting>70),1];#提取满足条件（waiting<70）的数据,which()，读取下标Sub4geyser[1:5];#显示子数据集sub1geyser的前5行[1]8071807577…….A.10如光盘文件student.txt中的数据，一个班有30名学生，每名学生有5门课程的成绩，编写函数实现下述要求：(1)以data.frame的格式保存上述数据；(2)计算每个学生各科平均分，并将该数据加入(1)数据集的最后一列；(3)找出各科平均分的最高分所对应的学生和他所修课程的成绩；(4)找出至少两门课程不及格的学生，输出他们的全部成绩和平均成绩；(5)比较具有(4)特
5、点学生的各科平均分与其余学生平均分之间是否存在差异。先将数据集读入R系统student=read.table("…",header=T)class(student):#显示数据集student的类型，精彩文档实用标准文案[1]"data.frame"#student是数据框names(student);#显示数据框student的变量[1]"name""math""physics""chem""literat""english""mean"#输出显示，数据框student有7个变量,第7个变量是平均值mean。(1)write.table(student,"F:\gzmu非参数统计
6、\data2014\各章数据\附录A\x.txt",col.names=T)打开x.txt"name""math""physics""chem""literat""english""1""Katty"6561728479"2""Leo"7777766455……(2)依题意，要为原始数据集添加一个变量，即添加一列在最后。?[,6]=?me=rep(0,30);for(iin1:30){x=as.numeric(student[i,2:6]);me[i]=mean(x);}student$mean=me;#上面程序的最后一行也可以如此:student[,7]=menames(st
7、udent);[1]"name""math""physics""chem""literat""english""mean"#如上显示，程序运行后数据框student添加了第7列mean.(3)依题意，在(2)的程序运行后做，要用到which(mean==max(mean))，如同A.3。attach(student);maxme=student[which(mean==max(mean)),];#找出最高平均分的记录，并赋予maxme;maxme;name
