抽样调查试验一共8

1、实验（实训）报告项目名称 R 语言初步所属课程名称抽样调查项目类型综合性实验实验（实训）日期 2013年4月1日班 级学 号姓 名指导教师浙江财经学院教务处制实验名称:R语言初步实验目的:熟悉R语言实验要求:会以下操作:1. 安装R并导入程序包2. 查询函数帮助3. 数据读取和t检验4. 方差分析和箱线图绘制5. 下标和条件筛选6. 了解工作路径7. R脚本运行8. 绘图练习9. 编写函数作业:画出三大抽样分布2分布、t分布、F分布的概率密度函数，并比较参数不同时，概率密度函数的不同形态。作业说明： 作业用 word 编辑，以唯一附件的方式上传。作业中要包含程 序及图形第 2 页实验过程:1.

2、 2分布概率密度函数(p.d.f.):1nfn(x)22 (0,xnx21 2x2 e 2,x 0 ;)0程序> x<-c(0,10)> yv-c(0,0.8)> par(lwd=2)> plot(fu ncti on(x)dchisq(x,1),xlim=x,ylim=: y,col=hsv(0),xlab="n ",ylab二"de nsityof t(n)",lty=2,main="theChisqDe nsity Distributio n")>plot(fu ncti on(x)dchis

3、q(x,1),xlim=x,ylim=y,col= ” red ”，add二TRUE)>plot(fu ncti on(x)dchisq(x,2),xlim=x,ylim=: y,II II1力力yaxs="i",col=gree n,add=TRUE)>plot(fu ncti on(x)col= ” blue ” ,add=TRUE)dchisq(x,3),xlim=x,ylim=: y,>plot(fu ncti on(x)dchisq(x,5),xlim=x,ylim=y,col= ” orange ” ,add=TRUE)lege nd(&quo

4、t;topright",lege nd=paste("df=",c(1,2,3,5), lwd=3,+col=c("red", ” green ”>,"blue", ” orange ” ),bty="n")p.d.f.图像第7页2. t分布概率密度函数（p.d.f.）:> x<-c(-4,4)> yv-c(0,0.4)> par(lwd=2)>plot(fu nctio n(x)dn orm(x,0,1), xlim=x, ylim = y,col二hsv(0),xl

5、ab二"n ",ylab二"de nsity of t(n )",lty=2,ma in二"Ce ntral t-Den sity")>plot(fu ncti on(x)dt(x,df =20),xlim=x,ylim=y,col=hsv(0.2),add=TRUE)>plot(fu ncti on(x)dt(x,df =10),xlim=x,ylim=y,yaxs="i",col=hsv(0.4),add=TRUE)>plot(fu ncti on(x)dt(x,df= 5),xlim=x,y

6、lim=y,col=hsv(0.6),add=TRUE)>plot(fu ncti on(x)dt(x,df= 2),xlim=x,ylim=y,col二hsv(0.8),add二TRUE)>lege nd("topright",c("N(0,1)","t(20)","t(10)","t(5)","t (2) "),col二hsv(seq(0,1,0.2),bty=" n",cex=1.2,pch=15)> abli ne(v=0)p.d

7、.f.图像3. F分布概率密度函数(p.d.f.):nin22n_,n 1n2L 1n 晋f (x)()( x) (1x)x 0fmdx)(QL)(卑 n2 n2n2,x 00, x 0程序> xv-c(0,2)> yv-c(0,0.8)> par(lwd=2)> plot(fu ncti on(x)df(x,1,1),xlim=x, ylim = y,col二hsv(0),xlab二"n ”,ylab二"de nsityof t(n )",lty=2,ma in二"TheFDen sity Distributio n"

8、)>plot(fu ncti on(x)df(x,3,1),xlim=x,ylim= y,col= ”green ” ,add=TRUE)>plot(fu ncti on(x)df(x,6,1),xlim=x,ylim= y,yaxs="i",col= ” blue ” ,add=TRUE)>plot(fu ncti on(x)df(x,3,3),xlim=x,ylim= y,col= ”orange ” ,add=TRUE)>plot(fu ncti on(x)df(x,3,6),xlim=x,ylim= y,col 二” pink ” ,add二

9、TRUE)> lege nd("topright",c(1,1),(3,1),(6,1),(3,3),(3,6), lwd=3,lege nd("topright",lege nd=paste("df1=",c(1,1),"df2=",c(3,1),"df3=",c(6,1),"df4=",c(3,3),"df5=",c(3,6),),lwd=3,col=c("red", ” green ” ,"blue", ” orange ” , ” pink ” ),bty="n")p.d.f.图像希望以上资料对你有所帮助，附励志名言 3 条：1、常自