R语言试验报告—习题详解

1、R语言实验报告习题详解学院：班级：学号：姓名：导师：成绩：目录一、实验目的R是用于统计分析、绘图的语言和操作环境。R是属于GNU系统的一个自由、 免费、源代码开放的软件，它是一个用于统计计算和统计制图的优秀工具；本次试验要求掌握了解R语言的各项功能和函数，能够通过完成试验内容对 R语言有一定的了解，会运用软件对数据进行分析；通过本实验加深对课本知识的理解以及熟练地运用R语言软件来解决一些复杂的冋题。二、实验内容问题叙述将1,2，20构成两个4X 5阶的矩阵，其中矩阵A是按列输入，矩阵B 是按行输入，并做如下运算.C=A+B;D=A*B;F是由A的前3行和前3列构成的矩阵；G是由矩阵B的各列构成

2、的矩阵，但不含 B的第3列.问题求解创建按列、行输入的4X 5矩阵;A<-matrix(1:20,c(4,5)AB<-matrix(1:20, nrow=4,byrow=TRUE)B程序求解A<-matrix(1:20,c(4,5)AB<-matrix(1:20, nrow=4,byrow=TRUE)BC=A+BCD=A*BDF<-A1:3,1:3FH<-matrix(c(1,2,4,5), nrow=1)HG<-B,HG结果展示问题叙述已知有5名学生的数据，如下表所示.用数据框的形式读入数据学生数据序号姓名性别年龄身高（cm）体重（kg）1:张三:女

3、141562李四男1516531 王五女161574赵六:男141625丁一女15159问题求解StudentData 数据框Stude ntData<( name=c("zha ngsa n","lisi","wa ngwu","zhaoliu","di ngyi"),se x=c("F","M","F","M","F"),age=c("14","15&quo

4、t;,"16","14","15"),height=c("15 6","165","157","162","159"),weight=c("42","49","","52","")程序求解Stude ntData<( name=c("zha ngsa n","lisi","wa ng

5、wu","zhaoliu","di ngyi"),se x=c("F","M","F","M","F"),age=c("14","15","16","14","15"),height=c("15 6","165","157","162","159")

6、,weight=c("42","49","","52","")Stude ntData结果展示问题叙述某单位对100名女生测定血清总蛋白含量（g/L）,数据如下:绘制上述数据的直方图、密度估计曲线、经验分布图和QQ图.问题求解直方图；hist(serumdata,freq=FALSE,col="purple",border="red",de nsity=3,a ngle=60,ma in=paste("the histogram of serum

7、data"),xlab="age",ylab="freque ncy")运用lines函数绘制密度估计曲线；lin es(de nsity(serumdata),col="blue")运用plot函数绘制经验分布图；x<-64:85> lin es(x,d no rm(x,mea n( serumdata),sd(serumdata),col="gree n")> plot(ecdf(serumdata),verticals=TRUE,=FALSE)> lin es(x,p no

8、rm(x,mea n( serumdata),sd(serumdata),col="blue")运用qqnorm函数绘制QQ图qqno rm(serumdata,col="purple")qqli ne(serumdata,col="red")结果展示直方图密度估计曲线经验分布图QCS问题叙述甲、乙两种稻谷分别播种在10块试验田中，每块实验田甲乙稻谷各种一半假设两稻谷产量X，Y均服从正态分布，且方差相等.收获后10块试验田的产量 如下所示（单位：千克）甲种140137136140145148140135144141乙种13511811

9、5140128131130115131125求出两稻种产量的期望差12的置信区间（0.05）问题求解框> x<-c(140,137,136,140,145,148,140,135,144,141)> x1 140 137 136 140 145 148 140 135 144 141> y<-c(135,118,115,140,128,131,130,115,131,125)> y1 135 118 115 140 128 131 130 115 131 125函数求解> （x,y,=TRUE）结果展示由以上程序运行得两稻种产量的期望差i 2的95泄信

10、区间为,.问题叙述甲乙两组生产同种导线，现从甲组生产的导线中随机抽取 4根，从乙组生产的导线中随机抽取5根，它们的电阻值（单位： ）分别为甲组乙组假设两组电阻值分别服从正态分布N( 1，2)和N( 2，彳未知.试求12的置信区间系数为的区间估计问题求解框> XV-C”，> y<-c,函数求解> (x,y,=TRUE)结果展示Two Sample t-testdata: x and yt = , df = 7, p-value =alter native hypothesis: true differe nce in means is n ot equal to 095 perce nt con fide nce in terval:sample estimates:mea n of x mea n of y由以上程序运行甲乙两电阻的期望差12的95汕信区间为，.问题叙述已知某种灯泡寿命服从正态分布，在某星期所生产的该灯泡中随机抽取10只，测得其寿命（单位：小时）为1067 919 1196 785 1126 936 918 1156 920 948求这个星期生产出的灯泡能使用 1000小时以上的概率问题求解x数据框> x=c(1067,919,1196,785,1126,936,918,1156,920,948)> xpnorm函数求解&g