最新范文最新范文R語言實驗3R基礎（三）實驗目的:1?掌握列表、數據框的相關運算;2?掌握R對數據文件的讀寫操作;3■掌握R的簡單編程。二、實驗內容:1■完成教材例題;2?完成以下練習。練習:要求:①完成練習并粘貼運行截圖到文檔相應位置（截圖方法見下），并將所有自己輸入文字的字體顏色設為紅色（包括后面的思考及小結）,②回答思考題，③簡要書寫實驗小結。④修改本文檔名為“本人完整學號姓名T,其中1表示第1次實驗，以后更改為2,3,..?。如文件名為“1305543109張立1”,表示學號為1305543109的張立同學的第1次實驗，注意文件名中沒有空格及任何其它字符。最后連同數據文件、源程序文件等（如果有的話），一起壓縮打包發給課代表，壓縮包的文件名同上。截圖方法:法1:調整需要截圖的窗口至合適的大小，并使該窗口為當前激活窗口(即該窗口在屏幕最前方)，按住鍵盤Alt鍵(空格鍵兩側各有一個)不放,再按鍵盤右上角的截圖鍵(通常印有“印屏幕”或“PrScrn”等字符)，即完成截圖。再粘貼到word文檔的相應位置即可。法2:利用QQ輸入法的截屏工具。點擊QQ輸入法工具條最右邊的“扳手”圖標，選擇其中的“截屏”工具。)1■自行完成教材P84頁開始的2.6-2.9節中的例題。2?教材在講解列表(List)時,所舉例子的參數是有名參數。這里我們練習創建一個列表，其參數是無名參數，并回答以下問題。運行以下命令創建列表,注意每個元素的默認名稱；L<-list(12,c(34,56),matrix(1:12,nrow=4),1:15,list(10,11))L[[2]][2]的輸出結果是什么？請先自己寫出結果,再運行驗證；[1]56⑶用1:10替換L的第四個元素，請寫出命令，并運行驗證；L[[4]]<-c(1:10)⑷將L的第五個元素中的11替換為20,請寫出命令,并運行驗證。L[[5]][2]<-20運行結果截圖1<-List-1：_,2Kc;56);matrixi1:_2,m^,；=ri,_:_5;1151i_3fI)-_2__'_2'_二丸nI：1；；<；二]um_2：L：：5：:.2：203.(習題2.4)生成一個5階的Hilbert矩陣，nnijh=)(H,11-+=jihij,i,j=1,2,計算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)運行截圖: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【監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（習題2.5）已知有5名學生的數據，如下表所示。用數據框的形式讀入數據。學生數據解:源代碼〉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運行截圖：女男女更女前一一四五六一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嚴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(習題2.6)將上題中的數據表的中數據寫成一個純文本文件，用函數read.table()讀該文件,然后再用函數write.csv()寫成一個Excel能打開的文件,并用Excel打開。步驟：復制上表數據到記事本，并以ex2.6.txt為文件名保存在合適的目錄中；在read.tabel()中利用file.choose(),打開對話框來讀取此文件；用函數write.csv()將此文件以ex26cxv為文件名保存。找到ex26cxv,并打開它驗證。文件默認存在什么地方?如何找到此文件？如果想把此文件存放在D盤根目錄下，如何修改代碼？源代碼：>dfv-read.table(file.choose(),header=T)dfwrite.csv(df,file二“ex2.6.cxv”)write.csv(df,file二“D:/ex2.6.cxv”)運行截圖：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嚴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.（習題2.7）編寫一個R程序（函數）。輸入一個整數n,如果n<0,則中止運算，并輸出一句話:“要求輸入一個正整數”否則，如果n是偶數，則將n除2,并賦給n;否則，將3n+1賦給n。不斷循環，直到n=1，才停止計算，并輸出一句話:“運算成功”。這個例子是為了檢驗數論中的一個簡單的定理。源代碼：Funv-function（n）｛if(nv=O)list(fail="要求輸入一個正整數")else{repeat{if(n==1)breakelseif(n%%2==0){nv-n/2}elsenv-3*n+1list("運算成功")爲Il二二壯(zE亡二="要求輸入一幾正翌數「else-repeat■:Z.I(二==二)E?z:ea]fTOC\o"1-5"\h\zeLaeif2}2132"r-L-List(n運算成功r思考：1?列表元素除了可以用“列表名[[下標]]”、“列表名[["元素名"]]”這兩種方式來引用列表$元素名2?/r/