文档介绍：R语言实验三
实验3 R基础（三）
实验目的：
掌握列表、数据框的相关运算；
掌握R对数据文件的读写操作；
掌握R的简单编程。
实验内容：
完成教材例题；
完成以下练****br/>练****br/>要求：①完成练****br/>R语言实验三
实验3 R基础（三）
实验目的：
掌握列表、数据框的相关运算；
掌握R对数据文件的读写操作；
掌握R的简单编程。
实验内容：
完成教材例题；
完成以下练****br/>练****br/>要求：①完成练****并粘贴运行截图到文档相应位置(截图方法见下)，并将所有自己输入文字的字体颜色设为红色（包括后面的思考及小结），②回答思考题，③简要书写实验小结。④修改本文档名为“本人完整学号姓名1”，其中1表示第1次实验，以后更改为2,3,...。如文件名为“1305543109张立1”，表示学号为1305543109的张立同学的第1次实验，注意文件名中没有空格及任何其它字符。最后连同数据文件、源程序文件等（如果有的话），一起压缩打包发给课代
L[[2]][2]的输出结果是什么？请先自己写出结果，再运行验证；
[1] 56
用1:10替换L的第四个元素，请写出命令，并运行验证；
> L[[4]]<-c(1:10)
将L的第五个元素中的11替换为20，请写出命令，并运行验证。
> L[[5]][2]<- 20
运行结果截图
（）生成一个5阶的Hilbert矩阵，
，，i, j=1,2,…,n
计算Hilbert矩阵H的行列式；
求H的逆矩阵；
求H的特征值和特征向量。
源代码：
>n<-5;H<-array(0,dim=c(n,n))
>for(i in 1:5){for(j in 1:5){
H[i,j]<-1/(i+j-1)
}
}
>H
>det(H)
>solve(H)
>eigen(H)
运行截图：
（）已知有5名学生的数据，如下表所示。用数据框的形式读入数据。
学生数据
序号
姓名
性别
年龄
身高cm
体重kg
1
张三
女
14
156
2
李四
男
15
165
3
王五
女
16
157
4
赵六
男
14
162
5
丁一
女
15
159
解：源代码：>df<-(
Name=c("张三","李四","王五","赵六","丁一"),
Sex=c("女","男","女","男","女"),
Age=c(14,15,16,14,15),
Height=c(156,165,157,162,159),
Weight=c(,,,,));df
运行截图：
（）将上题中的数据表的中数据写成一个纯文本文件，()读该文件，()写成一个Excel能打开的文件，并用Excel打开。
步骤：
复制上表数据到记事本，；
()()，打开对话框来读取此文件；
()。
，并打开它验证。文件默认存在什么地方？如何找到此文件？如果想把此文件存放在D盘根目录下，如何修改代码？
源代码：
>df <-((),header=T)
> df
> (df, file=“”)
> (df, file=“D:/”)
运行截图：
R->改变工作目录->
（）编写一个R程序（函数）。输入一个整数n，如果n≤0，则中止运算，并输出一句话：“要求输入一个正整数”；否则，如果n是偶数，则将n除2，并赋给n；否则，将3n+1赋给n。不断循环，直到n=1，才停止计算，并输出一句话：“运算成功”。这个例子是为了检验数论中的一个简单的定理。
源代码：
Fun<-function(n){
if(n<=0)
list(fail="要求输入一个正整数")
else {
repeat