最新范文最新范文R語(yǔ)言實(shí)驗(yàn)3R基礎(chǔ)（三）實(shí)驗(yàn)?zāi)康?1?掌握列表、數(shù)據(jù)框的相關(guān)運(yùn)算;2?掌握R對(duì)數(shù)據(jù)文件的讀寫操作;3■掌握R的簡(jiǎn)單編程。二、實(shí)驗(yàn)內(nèi)容:1■完成教材例題;2?完成以下練習(xí)。練習(xí):要求:①完成練習(xí)并粘貼運(yùn)行截圖到文檔相應(yīng)位置（截圖方法見下），并將所有自己輸入文字的字體顏色設(shè)為紅色（包括后面的思考及小結(jié)）,②回答思考題，③簡(jiǎn)要書寫實(shí)驗(yàn)小結(jié)。④修改本文檔名為“本人完整學(xué)號(hào)姓名T,其中1表示第1次實(shí)驗(yàn)，以后更改為2,3,..?。如文件名為“1305543109張立1”,表示學(xué)號(hào)為1305543109的張立同學(xué)的第1次實(shí)驗(yàn)，注意文件名中沒有空格及任何其它字符。最后連同數(shù)據(jù)文件、源程序文件等（如果有的話），一起壓縮打包發(fā)給課代表，壓縮包的文件名同上。截圖方法:法1:調(diào)整需要截圖的窗口至合適的大小，并使該窗口為當(dāng)前激活窗口(即該窗口在屏幕最前方)，按住鍵盤Alt鍵(空格鍵兩側(cè)各有一個(gè))不放,再按鍵盤右上角的截圖鍵(通常印有“印屏幕”或“PrScrn”等字符)，即完成截圖。再粘貼到word文檔的相應(yīng)位置即可。法2:利用QQ輸入法的截屏工具。點(diǎn)擊QQ輸入法工具條最右邊的“扳手”圖標(biāo)，選擇其中的“截屏”工具。)1■自行完成教材P84頁(yè)開始的2.6-2.9節(jié)中的例題。2?教材在講解列表(List)時(shí),所舉例子的參數(shù)是有名參數(shù)。這里我們練習(xí)創(chuàng)建一個(gè)列表，其參數(shù)是無(wú)名參數(shù)，并回答以下問題。運(yùn)行以下命令創(chuàng)建列表,注意每個(gè)元素的默認(rèn)名稱；L<-list(12,c(34,56),matrix(1:12,nrow=4),1:15,list(10,11))L[[2]][2]的輸出結(jié)果是什么？請(qǐng)先自己寫出結(jié)果,再運(yùn)行驗(yàn)證；[1]56⑶用1:10替換L的第四個(gè)元素，請(qǐng)寫出命令，并運(yùn)行驗(yàn)證；L[[4]]<-c(1:10)⑷將L的第五個(gè)元素中的11替換為20,請(qǐng)寫出命令,并運(yùn)行驗(yàn)證。L[[5]][2]<-20運(yùn)行結(jié)果截圖1<-List-1：_,2Kc;56);matrixi1:_2,m^,；=ri,_:_5;1151i_3fI)-_2__'_2'_二丸nI：1；；<；二]um_2：L：：5：:.2：203.(習(xí)題2.4)生成一個(gè)5階的Hilbert矩陣，nnijh=)(H,11-+=jihij,i,j=1,2,計(jì)算Hilbert矩陣H的行列式;求H的逆矩陣；求H的特征值和特征向量。源代碼：>nv-5;Hv-array(0,dim=c(n,n))>for(iin1:5){for(jin1:5){H[i,j]v-1/(i+j-1)}}>H>det(H)

>solve(H)>eigen(H)運(yùn)行截圖:Mr.<-S;ray(0fdiir.=c(nfn.))、io-(1L:5)-：for(：irL:5)-：?C；C-L/(1-：-L)-'；-'；[J][池][,3][,4：[Q口二1.00000000.50000000.3333333o.2sojaaa0.2000000Z]0.SOOOOOO0.33333330.2500000o.^oojaaaa.1666667S]0.33333330.25000000.20000000.1666667a.1428571已］0.2SOOOOO0.20000000.16666670.142E；5710.1250OOO【?]0.20000000.16666670.1428:5710.12500000.1111111det(H)[1]3.^49295e-12aolve(H)【A【3【宀1-300-1400S30【紜1-SCO-1530026550-12^00【眾1-153007D350-117G005G700【監(jiān)1-140C26520-117500179200-&&200◎]63C-1：600567QQmoo>eige^(H)宜p己J.J亡日[1]■!?^6^C51e+0QE?Q353^：e-Ql1?3?aSSS-Sae-Q^曰.ZS^SSSe-Qe^vecrois[J][,2][J][,2][,3]［宀0、76735470?6013715-0?21^:21360?04716151Z]0.4457911-0.27591340.72^1021-0.^3266733⑶］0.3215733-0.42437660.120^:5330.66735044已］0.2534339-0.4439030-0.30957^:00.23302452O.2O93226-0.4230134-0.565193^：-0.55755335Ir5]0?006173363-0.1166327^7□.506163653-0.767131193□.3762^55^5（習(xí)題2.5）已知有5名學(xué)生的數(shù)據(jù)，如下表所示。用數(shù)據(jù)框的形式讀入數(shù)據(jù)。學(xué)生數(shù)據(jù)解:源代碼〉dfv-data.frame(Name=c(”張三丁李四丁王五"，”趙六"，"丁一"),Sex=c("女丁男丁女丁男丁女")，Age=c(14,15,16,14,15),Height=c(156,165,157,162,159),Weight=c(42.0,49O41.5,52O45.5));df運(yùn)行截圖：女男女更女前一一四五六一1張李女男女更女前一一四五六一1張李i-fe<-T-■卓面:二本地蠱盤（C:J_軟件（D：）_如舊）_娛樂（F0.MOMO（G:Jv<卻容迥);ex2.&Allfiles3打開◎>■土二己mu（_-卜blfthUL張三r冷譯四rr”rr三五J”趙六J”丁—「F-3申=UL女rr」男女jrr杲rr’rr女”『-Ace=c（L4fL5,L6,L^,L5）,-'^Lg-Z=c（15宕■二<55f二5=f二宕2#二59）#-冋亡Lg-Z=c[弓2二?5后、Q嚴(yán)5■■SljiiizENameSexAgeHeigntWeightTOC\o"1-5"\h\z1^156^2.0165^3.0157^1.516252.015345.5.[H^.62017/3/1517:09哀本軸J』匸E丄J丄7IJ?J>d±<-re且d.匸呂上il皀(：E:L2_e.uhcici呂皀()”ii已耳ci已rNT)C:\UsersYASUS\Documents(習(xí)題2.6)將上題中的數(shù)據(jù)表的中數(shù)據(jù)寫成一個(gè)純文本文件，用函數(shù)read.table()讀該文件,然后再用函數(shù)write.csv()寫成一個(gè)Excel能打開的文件,并用Excel打開。步驟：復(fù)制上表數(shù)據(jù)到記事本，并以ex2.6.txt為文件名保存在合適的目錄中；在read.tabel()中利用file.choose(),打開對(duì)話框來(lái)讀取此文件；用函數(shù)write.csv()將此文件以ex26cxv為文件名保存。找到ex26cxv,并打開它驗(yàn)證。文件默認(rèn)存在什么地方?如何找到此文件？如果想把此文件存放在D盤根目錄下，如何修改代碼？源代碼：>dfv-read.table(file.choose(),header=T)dfwrite.csv(df,file二“ex2.6.cxv”)write.csv(df,file二“D:/ex2.6.cxv”)運(yùn)行截圖：1234-5女男女更女前一一四五六一1張李1234-5女男女更女前一一四五六一1張李i-fe<-T-■卓面:二本地蠱盤（C:J_軟件（D：）_如舊）_娛樂（F0.MOMO（G:Jv<卻容迥）;ex2.&Allfiles3打開◎>■土二己mu（_-卜blfthUL張三r冷譯四rr”rr三五J”趙六J”丁—「F-3申=UL女rr」男女jrr杲rr’rr女”『-Ace=c（L4fL5,L6,L^,L5）,-'^Lg-Z=c（15宕■二<55f二5=f二宕2#二59）#-冋亡Lg-Z=c[弓2二?5后、Q嚴(yán)5■■SljiiizENameSexAgeHeigntWeightTOC\o"1-5"\h\z1^156^2.0165^3.0157^1.516252.015345.5.[H^.62017/3/1517:09哀本軸J』匸E丄J丄7IJ?J>d±<-re且d.t■呂上il皀（：E:L2_e.uhcici呂皀（）”h已?：!已rNT）C:\UsersYASUS\DocumentsR->改變工作目錄->6.（習(xí)題2.7）編寫一個(gè)R程序（函數(shù)）。輸入一個(gè)整數(shù)n,如果n<0,則中止運(yùn)算，并輸出一句話:“要求輸入一個(gè)正整數(shù)”否則，如果n是偶數(shù)，則將n除2,并賦給n;否則，將3n+1賦給n。不斷循環(huán)，直到n=1，才停止計(jì)算，并輸出一句話:“運(yùn)算成功”。這個(gè)例子是為了檢驗(yàn)數(shù)論中的一個(gè)簡(jiǎn)單的定理。源代碼：Funv-function（n）｛if(nv=O)list(fail="要求輸入一個(gè)正整數(shù)")else{repeat{if(n==1)breakelseif(n%%2==0){nv-n/2}elsenv-3*n+1list("運(yùn)算成功")爲(wèi)Il二二壯(zE亡二="要求輸入一幾正翌數(shù)「else-repeat■:Z.I(二==二)E?z:ea]fTOC\o"1-5"\h\zeLaeif2}2132"r-L-List(n運(yùn)算成功r思考：1?列表元素除了可以用“列表名[[下標(biāo)]]”、“列表名[["元素名"]]”這兩種方式來(lái)引用列表$元素名2?/r/