2023年R語(yǔ)言實(shí)驗(yàn)報(bào)告習(xí)題詳解

R語(yǔ)言實(shí)驗(yàn)報(bào)告習(xí)題詳解學(xué)院: 班級(jí)：?學(xué)號(hào)： 姓名：?導(dǎo)師： 成績(jī): 目錄一、實(shí)驗(yàn)?zāi)康?1二、實(shí)驗(yàn)內(nèi)容 11.1問(wèn)題敘述 11.2問(wèn)題求解 11.2.1創(chuàng)建按列、行輸入的4×5矩陣； 11.2.2編寫程序求解 11.3結(jié)果展示 22.1問(wèn)題敘述 22.2問(wèn)題求解 32.2.1創(chuàng)建StudentData數(shù)據(jù)框 32.2.2運(yùn)行程序求解 32.3結(jié)果展示 33.1問(wèn)題敘述 33.2問(wèn)題求解 43.2.1運(yùn)用hist函數(shù)繪制直方圖； 43.2.2運(yùn)用lines函數(shù)繪制密度估計(jì)曲線； 43.2.3運(yùn)用plot函數(shù)繪制經(jīng)驗(yàn)分布圖； 43.2.4運(yùn)用qqnorm函數(shù)繪制QQ圖 43.3結(jié)果展示 44.1問(wèn)題敘述 64.2問(wèn)題求解 64.2.1創(chuàng)建x、y數(shù)據(jù)框 64.2.2運(yùn)用t.test函數(shù)求解 64.3結(jié)果展示 75.1問(wèn)題敘述 75.2問(wèn)題求解 75.2.1創(chuàng)建x、y數(shù)據(jù)框 75.2.2運(yùn)用t.test函數(shù)求解 75.3結(jié)果展示 76.1問(wèn)題敘述 86.2問(wèn)題求解 86.2.1創(chuàng)建x數(shù)據(jù)框 86.2.2運(yùn)用pnorm函數(shù)求解 86.3結(jié)果展示 8三、實(shí)驗(yàn)總結(jié) 8一、實(shí)驗(yàn)?zāi)康腞是用于記錄分析、繪圖的語(yǔ)言和操作環(huán)境。R是屬于GNU系統(tǒng)的一個(gè)自由、免費(fèi)、源代碼開(kāi)放的軟件，它是一個(gè)用于記錄計(jì)算和記錄制圖的優(yōu)秀工具;本次實(shí)驗(yàn)規(guī)定掌握了解R語(yǔ)言的各項(xiàng)功能和函數(shù),可以通過(guò)完畢實(shí)驗(yàn)內(nèi)容對(duì)R語(yǔ)言有一定的了解，會(huì)運(yùn)用軟件對(duì)數(shù)據(jù)進(jìn)行分析;通過(guò)本實(shí)驗(yàn)加深對(duì)課本知識(shí)的理解以及純熟地運(yùn)用R語(yǔ)言軟件來(lái)解決一些復(fù)雜的問(wèn)題。二、實(shí)驗(yàn)內(nèi)容1.1問(wèn)題敘述將1,２,…,２０構(gòu)成兩個(gè)4×5階的矩陣，其中矩陣A是按列輸入,矩陣B是按行輸入,并做如下運(yùn)算.C=A+Ｂ;D=A*B;Ｆ是由A的前3行和前3列構(gòu)成的矩陣;Ｇ是由矩陣Ｂ的各列構(gòu)成的矩陣,但不含B的第3列.1.2問(wèn)題求解1.２．1創(chuàng)建按列、行輸入的４×5矩陣；A<－maｔriｘ（1:20,c(4,5))AＢ<-ｍaｔｒiｘ(1:２0,nrow＝4，bｙrｏw=TRＵE)B１．2.2編寫程序求解A<-maｔrｉx（1：20，c(４,５))ＡB<-ｍatrｉx(1:20,ｎrow=４,ｂyrow＝TRUＥ)BC=A+BCD=A*ＢDF<－A[1:3，1:３]ＦH<-mａt(yī)riｘ(c（1,2，４,5）,nｒｏw=1)HG<-B[,H]G1.3結(jié)果展示2．１問(wèn)題敘述已知有5名學(xué)生的數(shù)據(jù)，如下表所示．用數(shù)據(jù)框的形式讀入數(shù)據(jù).學(xué)生數(shù)據(jù)序號(hào)姓名性別年齡身高（cm）體重(kg)1張三女14156４2.0２李四男１5１６5４9．０3王五女161５741.５４趙六男1416２52．０５丁一女1５15９45.5２.2問(wèn)題求解2.2.1創(chuàng)建StudｅntDaｔa數(shù)據(jù)框StｕdｅntData<－ｄａt(yī)ａ.fｒaｍe（ｎamｅ＝ｃ("zhａngｓan"，"lisi"，＂wａnｇwu","ｚhaｏliu","diｎgｙi"),sｅｘ=c("F","M＂,"Ｆ","M＂,＂F"),aｇe＝c("14","1５"，"16＂，＂1４","15＂),ｈeｉght=c("156＂，"1６５","１57","162","1５9＂),weigｈt=c("４2"，"49＂,"41.5"，"５2",＂4５.５"))2．２．2運(yùn)營(yíng)程序求解StudenｔData<－daｔa．framｅ(name＝c（＂zｈangsan＂，"ｌｉｓi",＂wangwu","zhaoｌiｕ","ｄｉnｇｙi＂),sex＝c("F"，"M","F",＂M＂,"F"）,agｅ=c("１4＂,＂15","１6"，"14＂,"15"),hｅigｈt=c("156","1６5"，"15７"，"16２＂,"159＂）,weiｇht=c(＂42"，"4９","4１．5＂,＂5２","４５.5＂）)ＳｔuｄenｔＤata2.3結(jié)果展示3.１問(wèn)題敘述某單位對(duì)１00名女生測(cè)定血清總蛋白含量(g／L),數(shù)據(jù)如下:7４.379.968.878.０７0．４80.5８0.56９.77１．273.579.575.67５.078．87２．０7２．０72.０74.371.2７２．０７5.073.57８.8７4．375．865.074.371.２69．768.0７３．57５.０72．０64.375.88０.369.７７4.3７3.573.5７5.87５.8６8.876.5７０．4７1.２81.2７５.070.４６8．0７0．4７2.076．574.3７6.577．667.372.075.074．37３.57９.5７３.574．765.07６．581.675.4７2．７72.767．276.57２.770.4７7.26８.867．36７.3６7．３72.775.87３.575.073.５73.５73．５７2.781．６70.374.373.579.5７０.476．５72．777．２８4．375.０7６.570.4繪制上述數(shù)據(jù)的直方圖、密度估計(jì)曲線、經(jīng)驗(yàn)分布圖和QＱ圖.3．２問(wèn)題求解３.2.1運(yùn)用ｈisｔ函數(shù)繪制直方圖；hｉｓt（serumdatａ，fｒeq＝FAＬSE,ｃol＝"ｐuｒｐｌe"，borｄer="reｄ",dｅｎsity=３，ａnglｅ＝60,ｍａiｎ=ｐａｓｔｅ（＂ｔhehｉstoｇramofsｅrｕmdata＂),xlab=＂ａge"，ylａb="frｅquｅncy")3.２.２運(yùn)用lines函數(shù)繪制密度估計(jì)曲線；liｎeｓ(deｎsity(serumdata),col＝"blue")3．2．3運(yùn)用plot函數(shù)繪制經(jīng)驗(yàn)分布圖;ｘ<-６4:85＞ｌｉnes(x，dｎorm(x，meａn（serｕmdatａ),sd（serumdata)),col="gｒeeｎ")>ｐloｔ(ecdｆ(ｓeｒumdaｔa),ｖｅrticals＝TＲUE，do.p＝FＡLSE)>lines(x,pnoｒm(x,mean(ｓerumdaｔa）,sd(serumdatａ))，cｏl＝"bｌｕe"）3．2．4運(yùn)用qqｎoｒm函數(shù)繪制QQ圖ｑqnorm(ｓeruｍdata,col="purple")qｑline(ｓeruｍｄatａ,col＝＂ｒed")３.3結(jié)果展示直方圖密度估計(jì)曲線經(jīng)驗(yàn)分布圖ＱＱ圖4.1問(wèn)題敘述甲、乙兩種稻谷分別播種在１0塊實(shí)驗(yàn)田中,每塊實(shí)驗(yàn)田甲乙稻谷各種一半．假設(shè)兩稻谷產(chǎn)量X，Y均服從正態(tài)分布,且方差相等.收獲后10塊實(shí)驗(yàn)田的產(chǎn)量如下所示（單位:公斤）甲種1４01３7１361401４５148１40135144１４1乙種１351１81151４0１２８1311３０11５１3１１25求出兩稻種產(chǎn)量的盼望差的置信區(qū)間(）.4．２問(wèn)題求解4.2.1創(chuàng)建x、ｙ數(shù)據(jù)框＞x＜-c(１40,１37,１36,140，１４5,148,140,135,14４，1４1)>x[１]140１3７１361４０145148１４0１351４414１＞y＜-c(13５,１１8,１15，140,１2８，1３1,13０,1１５,１31,125)>ｙ[１］135１18115１401２８131130１１513112５4.２．2運(yùn)用t.test函數(shù)求解＞t.tesｔ(x,ｙ,var.equaｌ＝TRUE）４.3結(jié)果展示由以上程序運(yùn)營(yíng)得兩稻種產(chǎn)量的盼望差的95%置信區(qū)間為[７.53626,2０.0637４].5．1問(wèn)題敘述甲乙兩組生產(chǎn)同種導(dǎo)線,現(xiàn)從甲組生產(chǎn)的導(dǎo)線中隨機(jī)抽取4根，從乙組生產(chǎn)的導(dǎo)線中隨機(jī)抽取5根,它們的電阻值（單位：）分別為甲組0.１４3０.1420.14３0．137乙組0.14０0.1420．１３６0.1380.140假設(shè)兩組電阻值分別服從正態(tài)分布未知．試求的置信區(qū)間系數(shù)為0．９5的區(qū)間估計(jì)．5.２問(wèn)題求解5．2．1創(chuàng)建x、y數(shù)據(jù)框>x＜-c（0.14３,0.142,０.１４３,0.137)＞y<-c(０.140，０.1４2,0.1３６，0．138，0．14０)5．2.2運(yùn)用t．test函數(shù)求解>ｔ．tｅst(ｘ,y,ｖar.eｑual=TＲUE)5.3結(jié)果展示TwoSａmplet－testdatａ:xandyt＝1．19８,ｄf=7,p-vａlue=0.2６9９ａltｅr