【最新范文】R语言 实验3 R基础(三)

最新范文最新范文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/