1、A-matrix(1:20,c(4,5)AB20,nrow=4,byrow=TRUE)B1.2.2编写程序求解C=A+BCD=A*BDF-A1:3,1:3FH-matrix(c(1,2,4,5),nrow=1)HG-B,HG1.3结果展示2.1问题叙述已知有5名学生的数据,如下表所示.用数据框的形式读入数据.学生数据序号姓名性别年龄身高(cm)体重(kg)1张三女1415642.02李四男1516549.03王五1615741.54赵六16252.05丁一15945.52.2问题求解2.2.1创建StudentData数据框StudentData-data.frame(name=c(zhang
2、san,lisiwangwuzhaoliudingyi),sex=c(FM),age=c(141516),height=c(156165157162159),weight=c(424941.55245.5)2.2.2运行程序求解StudentData2.3结果展示3.1问题叙述某单位对100名女生测定血清总蛋白含量(g/L),数据如下:74.379.968.878.070.480.569.771.273.579.575.675.078.872.075.865.068.064.380.376.581.277.667.374.781.675.472.767.277.270.384.3绘制上述数据的
3、直方图、密度估计曲线、经验分布图和QQ图.3.2问题求解3.2.1运用hist函数绘制直方图;hist(serumdata,freq=FALSE,col=purple,border=red,density=3,angle=60,main=paste(the histogram of serumdata),xlab=age,ylab=frequency)3.2.2运用lines函数绘制密度估计曲线;lines(density(serumdata),col=blue3.2.3运用plot函数绘制经验分布图;x lines(x,dnorm(x,mean(serumdata),sd(serumdata
4、),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块试验田的产量如下所示(单位:千克)甲种14013713614514
5、8135144141乙种118115128131130125求出两稻种产量的期望差 的置信区间( ).4.2问题求解4.2.1创建x、y数据框 x-c(140,137,136,140,145,148,140,135,144,141) x 1 140 137 136 140 145 148 140 135 144 141 y-c(135,118,115,140,128,131,130,115,131,125) y 1 135 118 115 140 128 131 130 115 131 1254.2.2运用t.test函数求解 t.test(x,y,var.equal=TRUE)4.3结果展示
6、由以上程序运行得两稻种产量的期望差的95%置信区间为 7.53626, 20.06374.5.1问题叙述甲乙两组生产同种导线,现从甲组生产的导线中随机抽取4根,从乙组生产的导线中随机抽取5根,它们的电阻值(单位: )分别为甲组0.1430.1420.137乙组0.1400.1360.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结果展示 Two Sample
7、t-testdata: x and yt = 1.198, df = 7, p-value = 0.2699alternative hypothesis: true difference in means is not equal to 095 percent confidence interval: -0.001996351 0.006096351sample estimates:mean of x mean of y 0.14125 0.13920由以上程序运行甲乙两电阻的期望差的95%置信区间为-0.001996351, 0.006096351.6.1问题叙述已知某种灯泡寿命服从正态分布
8、,在某星期所生产的该灯泡中随机抽取10只,测得其寿命(单位:小时)为1067 919 1196 785 1126 936 918 1156 920 948求这个星期生产出的灯泡能使用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.50879416.3结果展示由以上程序运行得,x=1000的概率为0.509,故x大于1000的概率为0.491.三、实验总结在R语言实验学习中,通过实验操作可使我们加深对理论知识的理解,学习和掌握R语言的基本方法,并能进一步熟悉和掌握R软件的操作方法,培养我们分析和解决实际问题的基本技能,提高我们的综合素质.Welcome ToDownload !欢迎您的下载,资料仅供参考!
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1