非参数统计实验一

实 验 报 告

课 程 名 称：实验项目名称：姓 名：学 号：班 级：指 导 教 师：2016 年 3

月 10 日

1

财经大学实验报告

课 程 名 称 实验项目名称 学 生 姓 名 实 验 地 点 统计实验室 非参数统计 非参数统计基础 专业 实验日期 实验类型 实验时数 统计专业 年 月 日 R软件，SPSS与SAS软件 综合实验 2 主要仪器设备（实验软件） 实验 目的 通过实验掌握非参数统计与参数统计的区别，学习求秩的各种方法和正态得分计算法，掌握R统计软件的应用 1、实验用参数改变分布说明参数的意义。 2、非参数统计主要用秩，学习用秩的方法和正态得分 3、学习R语言 ，并学会用R绘出统计图 实验 内容原理 讨论 心得 根据实验情况和实验报告质量写出真实评价： 成绩 评定 综合评分 指导教师签名： 时间： 年 月 日

2

实验要求与数据：

1、产生 50 个标准正态分布的随机数 并画出它们的正态分布概率图形.

2、画出参数变化的概率密度分布图，正态分布的u,σ变化，产生100个均值为5,标准差为1的正态分布的随机数,再产生100个均值为6,标准差为1的正态分布的随机数,画概率密度图 3、 设随机变量X取区间[-5,5]上步长为0.1的各值, 计算X的服从参数为5 的t 分布的概率,并画出概率密度函数图形，同时画出标准正态概率密度曲线，观察二者的区别.

4、根据已知数据，求秩和正态得分

2012年城镇居民人均消费支出（元/年） 城市 乌鲁木齐市 克拉玛依市 木垒自治县 精河县 焉耆县 库车县 喀什市 和田市 伊宁市 奎屯市 塔城市 沙湾县 福海县 哈巴河县 石河子市 总消费支出 13785 20392 16165 11579 11505 14956 10579 149 12501 13480 14522 11943 11862 12175 155 食品 5297 6511 4273 3998 4063 5086 4383 6067 4698 00 4948 4236 4182 3743 5959 肉类 863 1075 627 782 8 1122 1253 17 1021 844 807 713 686 438 918 蔬菜类 500 657 417 412 378 436 394 596 376 651 412 512 391 302 606

1. set.seed(1)

x<-seq(-5,5,length.out=50) y<-dnorm(x,0,1)

plot(x,y,col=\"red\yaxs=\"i\Distribution\")

3

lines(x,dnorm(x,0,0.5),col=\"green\") lines(x,dnorm(x,0,2),col=\"blue\") lines(x,dnorm(x,-2,1),col=\"orange\")

legend(\"topright\2,1)),lwd=1,col=c(\"red\

2. 画出参数变化的概率密度分布图，正态分布的u,σ变化，产生100个均值为5,标准差为1的正态分布的随机数,再产生100个均值为6,标准差为1的正态分布的随机数,画概率密度图 命令： set.seed(1)

x <- seq(0,10,length.out=100) y <- dnorm(x,5,1)

4

plot(x,y,col=\"red\xaxs=\"i\ main=\"The Normal Density Distribution\") lines(x,dnorm(x,6,1),col=\"green\")

legend(\"topright\lwd=1, col=c(\"red\

3. set.seed(1)

x<-seq(-5,5,length.out=1000) y<-dt(x,1,0)

plot(x,y,col=\"red\\Distribution\")

5

lines(x,dt(x,5,0),col=\"green\") lines(x,dt(x,15,0),col=\"blue\") lines(x,dt(x,100,0),col=\"orange\")

legend(\"topleft\,0,0)),lwd=1,col=c(\"red\

set.seed(1)

x<-seq(-5,5,length.out=1000) y<-dunif(x,0,1)

plot(x,y,col=\"red\yaxs=\"i\Distribution\")

lines(x,dunif(x,0,0.5),col=\"green\")

6

lines(x,dunif(x,0,2),col=\"blue\") lines(x,dunif(x,1,6),col=\"orange\") lines(x,dunif(x,2,4),col=\"purple\")

legend(\"topright\,2,6,4)),lwd=1,col=c(\"red\

4. 根据已知数据用SPSS统计软件得到的结果为:

7