实验5数据的描述性分析(二).doc

实验5数据的描述性分析（二）

实验目的：

掌握定量数据的描述性统计分析中常用的指标

集中趋势：众数、中位数median()、四分位数、百分位数quantile()、（加权）平均数（weigthted.）mean()

分散程度：极差range()、半极差、方差var()、标准差sd()、变异系数、标准误

分布形态：偏度系数、峰度系数

掌握R语言绘直方图、茎叶图和箱线图的方法。

实验内容：

练习：

要求：①完成练习并粘贴运行截图到文档相应位置(截图方法见下)，并将所有自己输入文字的字体颜色设为红色（包括后面的思考及小结），②回答思考题，③简要书写实验小结。④修改本文档名为“本人完整学号姓名1”，其中1表示第1次实验，以后更改为2,3,...。如文件名为“1305543109张立1”，表示学号为1305543109的张立同学的第1次实验，注意文件名中没有空格及任何其它字符。最后连同数据文件、源程序文件等（如果有的话，本次实验没有），一起压缩打包发给课代表，压缩包的文件名同上。

截图方法：

法1：调整需要截图的窗口至合适的大小，并使该窗口为当前激活窗口（即该窗口在屏幕最前方），按住键盘Alt键（空格键两侧各有一个）不放，再按键盘右上角的截图键（通常印有“印屏幕”或“PrScrn”等字符），即完成截图。再粘贴到word文档的相应位置即可。

法2：利用QQ输入法的截屏工具。点击QQ输入法工具条最右边的“扳手”图标，选择其中的“截屏”工具。）

自行完成教材中相应的例题。

（习题3.7）画出习题3.3中小鸡增重的直方图(1)小区间的宽度为0.lg，起点为3.55g，终点为4.95g。纵坐标是频数，并将频数标在直方图的上方（类似图3.6(a)）;

源代码：

hist(x,col=lightblue,borde=red,

+xlab=小鸡增重量（g）,breaks=14,

+labels=TRUE,xlim=c(3.55,4.55))

运行结果或截图：

将（1）中直方图的纵坐标改为频率，并将数据的概率密度曲线和正态分布密度曲线同时画在直方图上（类似图3.6(b)）。

源代码：

hist(C,freq=FALSE,breaks=c(3.55,3.65,3.75,3.85,3.95,4.05,4.15,4.25,4.35,4.45,4.55,

4.65,4.75,4.85,4.95),col=lightblue,border=red,labels=TRUE,xlim=c(3.55,4.95),ylim=c(0,1.5))

lines(density(C),col=blue,lwd=2)

x-seq(from=3.55,to=4.95,by=.1)

lines(x,dnorm(x,mean(C),sd(C)),col=red,lwd=2)

运行结果或截图：

（习题3.11）计算习题3.3中小鸡增重数据的中位数、算术平均数，以及上四分位数和下四分数。

源代码：

median(x)

mean(x)

quantile(x,probs=c(0.25,0.75))

运行结果或截图：

（习题3.16）计算习题3.3中小鸡增重数据的极差、四分位差、方差和标准差。

源代码：x-scan(file.choose())

Read100items

max(x)-min(x)

R-range(X)

错误:找不到对象X

R-range(x)

R[2]-R[1]

Q-quantile(x,probs=c(0.25,0.75),names=F)

Q[2]-Q[1]

var(x)

sd(x)

运行结果或截图：

（习题3.18）计算习题3.3中小鸡增重数据的偏度系数和峰度系数。结合习题3.7中的直方图，理解偏度系数和峰度系数的意义。

源代码：source(E:/R语言/黄茂胜/R/chap03/skew.R)

skew(X)

source(E:/R语言/黄茂胜/R/chap03/kurt.R)

kurt(X)

运行结果或截图：

（习题3.9）计算习题3.1中饮料数据的众数。

源代码：

Lst-scan(file.choose(),what=list(sex=,type=))

Ta-table(Lst)

drink-margin.table(Ta,2)

max(drink);which.max(drink)

运行结果或截图：

（习题3.13）2015年某大学经济管理学院共有学生500名，其中18岁的学生110名，19岁的学生110名，20岁的学生100名，21岁的学生90名，22岁的学生90名。计算该学院学