R语言实验报告习题详解Word文档格式.docx
《R语言实验报告习题详解Word文档格式.docx》由会员分享,可在线阅读,更多相关《R语言实验报告习题详解Word文档格式.docx(11页珍藏版)》请在冰豆网上搜索。
![R语言实验报告习题详解Word文档格式.docx](https://file1.bdocx.com/fileroot1/2022-11/27/e84175ee-2447-45fb-8d48-adf4435f7390/e84175ee-2447-45fb-8d48-adf4435f73901.gif)
A<
-matrix(1:
20,c(4,5))
A
B<
20,nrow=4,byrow=TRUE)
B
1.2.2编写程序求解
C=A+B
C
D=A*B
D
F<
-A[1:
3,1:
3]
F
H<
-matrix(c(1,2,4,5),nrow=1)
H
G<
-B[,H]
G
1.3结果展示
2.1问题叙述
已知有5名学生的数据,如下表所示.用数据框的形式读入数据.
学生数据
序号
姓名
性别
年龄
身高(cm)
体重(kg)
1
张三
女
14
156
42.0
2
李四
男
15
165
49.0
3
王五
16
157
41.5
4
赵六
162
52.0
5
丁一
159
45.5
2.2问题求解
2.2.1创建StudentData数据框
StudentData<
-data.frame(name=c("
zhangsan"
"
lisi"
wangwu"
zhaoliu"
dingyi"
),sex=c("
F"
M"
),age=c("
14"
15"
16"
),height=c("
156"
165"
157"
162"
159"
),weight=c("
42"
49"
41.5"
52"
45.5"
))
2.2.2运行程序求解
StudentData
2.3结果展示
3.1问题叙述
某单位对100名女生测定血清总蛋白含量(g/L),数据如下:
74.3
79.9
68.8
78.0
70.4
80.5
69.7
71.2
73.5
79.5
75.6
75.0
78.8
72.0
75.8
65.0
68.0
64.3
80.3
76.5
81.2
77.6
67.3
74.7
81.6
75.4
72.7
67.2
77.2
70.3
84.3
绘制上述数据的直方图、密度估计曲线、经验分布图和QQ图.
3.2问题求解
3.2.1运用hist函数绘制直方图;
hist(serumdata,freq=FALSE,col="
purple"
border="
red"
density=3,angle=60,main=paste("
thehistogramofserumdata"
),xlab="
age"
ylab="
frequency"
)
3.2.2运用lines函数绘制密度估计曲线;
lines(density(serumdata),col="
blue"
3.2.3运用plot函数绘制经验分布图;
x<
-64:
85
>
lines(x,dnorm(x,mean(serumdata),sd(serumdata)),col="
green"
plot(ecdf(serumdata),verticals=TRUE,do.p=FALSE)
lines(x,pnorm(x,mean(serumdata),sd(serumdata)),col="
3.2.4运用qqnorm函数绘制QQ图
qqnorm(serumdata,col="
qqline(serumdata,col="
3.3结果展示
直方图
密度估计曲线
经验分布图
QQ图
4.1问题叙述
甲、乙两种稻谷分别播种在10块试验田中,每块实验田甲乙稻谷各种一半.假设两稻谷产量X,Y均服从正态分布,且方差相等.收获后10块试验田的产量如下所示(单位:
千克)
甲种
140
137
136
145
148
135
144
141
乙种
118
115
128
131
130
125
求出两稻种产量的期望差
的置信区间(
).
4.2问题求解
4.2.1创建x、y数据框
x<
-c(140,137,136,140,145,148,140,135,144,141)
x
[1]140137136140145148140135144141
y<
-c(135,118,115,140,128,131,130,115,131,125)
y
[1]135118115140128131130115131125
4.2.2运用t.test函数求解
t.test(x,y,var.equal=TRUE)
4.3结果展示
由以上程序运行得两稻种产量的期望差
的95%置信区间为[7.53626,20.06374].
5.1问题叙述
甲乙两组生产同种导线,现从甲组生产的导线中随机抽取4根,从乙组生产的导线中随机抽取5根,它们的电阻值(单位:
)分别为
甲组
0.143
0.142
0.137
乙组
0.140
0.136
0.138
假设两组电阻值分别服从正态分布
未知.试求
的置信区间系数为0.95的区间估计.
5.2问题求解
5.2.1创建x、y数据框
-c(0.143,0.142,0.143,0.137)
-c(0.140,0.142,0.136,0.138,0.140)
5.2.2运用t.test函数求解
5.3结果展示
TwoSamplet-test
data:
xandy
t=1.198,df=7,p-value=0.2699
alternativehypothesis:
truedifferenceinmeansisnotequalto0
95percentconfidenceinterval:
-0.0019963510.006096351
sampleestimates:
meanofxmeanofy
0.141250.13920
由以上程序运行甲乙两电阻的期望差
的95%置信区间为[-0.001996351,0.006096351].
6.1问题叙述
已知某种灯泡寿命服从正态分布,在某星期所生产的该灯泡中随机抽取10只,测得其寿命(单位:
小时)为
1067919119678511269369181156920948
求这个星期生产出的灯泡能使用1000小时以上的概率.
6.2问题求解
6.2.1创建x数据框
x=c(1067,919,1196,785,1126,936,918,1156,920,948)
6.2.2运用pnorm函数求解
pnorm(1000,mean(x),sd(x))
[1]0.5087941
6.3结果展示
由以上程序运行得,x<
=1000的概率为0.509,故x大于1000的概率为0.491.
三、实验总结
在R语言实验学习中,通过实验操作可使我们加深对理论知识的理解,学习和掌握R语言的基本方法,并能进一步熟悉和掌握R软件的操作方法,培养我们分析和解决实际问题的基本技能,提高我们的综合素质.
WelcomeTo
Download!
!
欢迎您的下载,资料仅供参考!