lR软件语句练习及解答.docVIP

利用所给数据“管理学院2007级学生统计学课程成绩”： 数据下载地址：百度文库搜索“管理学院2007级学生统计学课程成绩” 注意：将下载的管理学院2007级学生统计学课程成绩.xls文件另存为“管理学院2007级学生统计学课程成绩.csv”,这样R软件才能直接读取，当然先要把文件放进R的工作目录。 （一）计算成绩的平均数、方差、标准差、中位数、四分位距、离散系数、全距、不及格率； data=read.csv(管理学院2007级学生统计学课程成绩.csv,head=TRUE) data=data[,-1] 总体均值=mean(data);总体均值 [1] 79.2977 总体方差=var(data);总体方差 [1] 167.7606 总体标准差=sd(data);总体标准差 [1] 12.95224 总体中位数=median(data);总体中位数 [1] 80.975 总体四分位距=c(quantile(data,probs=c(0.75)))-c(quantile(data,probs=c(0.25)));总体四分位距 75% 15.975 总体离散系数=总体标准差/总体均值;总体离散系数 [1] 0.1633369 总体全距=c(max(data)-min(data));总体全距 [1] 72.8 总体不及格率=length(data[data60])/length(data);总体不及格率 [1] 0 总体不及格率=length(data[data60])/length(data);总体不及格率 （2）分别计算会计大类、经济大类学生的统计学成绩的平均数、方差、标准差、中位数、四分位距、离散系数、全距、不及格率； 会计学=data[1:141,] 平均值1=mean(会计学[,2]) 平均值1 [1] 81.90816 方差1=var(会计学[,2]) 方差1 [1] 166.9257 标准差1=sd(会计学[,2]) 标准差1 [1] 12.91997 中位数1=c(median(会计学[,2])) 中位数1 [1] 80.95 四分位距=c(quantile(会计学[,2],probs=c(0.75)))-c(quantile(会计学[,2],probs=c(0.25))) 四分位距 75% 15.9 离散系数1=标准差1/会计平均值 离散系数1 [1] 0.1577373 data=read.csv(管理学院2007级学生统计学课程成绩.csv,head=TRUE) data1=data[1:141,] data2=data[142:282,] 均值2=mean(data2[,2]) 均值2 [1] 76.68723 方差2=var(data2[,2]) 方差2 [1] 209.7706 标准差2=sd(data2[,2]) 标准差2 [1] 14.48346 中位数2=c(median(data2[,2])) 中位数2 [1] 78.4 四分位距2=c(quantile(data2[,2],probs=c(0.75)))-c(quantile(data2[,2],probs=c(0.25))) 四分位距2 75% 18.8 离散系数2=标准差2/均值2 离散系数2 [1] 0.188864 全距2=c(max(data2[,2])-min(data2[,2])) 全距2 [1] 72.8 不及格人数2=161-141 不及格率2=不及格人数/141 不及格率2 [1] 0.1418440 （三）选择合适图形，对两个大类学生统计学成绩进行图示，并进行比较分析； data=read.csv(管理学院2007级学生统计学课程成绩.csv,head=TRUE) 会计学=data[1:141,] 会计学=会计学[,-1] 经济大类=data[142:282,] 经济大类=经济大类[,-1] plot.new() figureparameter=par(mfrow=c(2,2),bg=light green,cex.lab=1,font=3) hist(会计学);hist(经济大类) 分析：会计学和经济大类都是左偏分布，集中分布于80~90分，可见普遍成绩较好。经济大类的高分段（90~95）比例又高于会计学，同时不及格率也高于会计学，可见经济大类的成绩离散程度高于会计，这从上面得出的数据中也可以得到验证。 （四）设计一种或几种抽样方法，抽取40名学生的成绩，组成一个样本，计算该样本的平均数、方差、标准差、中位数、四分位距、离散系数、全距、不及格率，并