R语言实验三.docx

R语言实验三.docx

《R语言实验三.docx》由会员分享，可在线阅读，更多相关《R语言实验三.docx（7页珍藏版）》请在冰豆网上搜索。

R语言实验三

R语言实验三

R语言实验三

源代码：

>n<-5;H<-array（0,dim=c（n,n））

>for（iin1:

5）{for（jin1:

5）{

H[i,j]<-1/（i+j-1）

}

}

>H

>det（H）

>solve（H）

>eigen（H）

运行截图：

1.（习题2.5）已知有5名学生的数据，如下表所示。

用数据框的形式读入数据。

学生数据

序号

姓名

性别

年龄

身高cm

体重kg

1

张三

女

14

156

42.0

2

李四

男

15

165

49.0

3

王五

女

16

157

41.5

4

赵六

男

14

162

52.0

5

丁一

女

15

159

45.5

解：

源代码：

>df<-data.frame（

Name=c（"张三","李四","王五","赵六","丁一"）,

Sex=c（"女","男","女","男","女"）,

Age=c（14,15,16,14,15）,

Height=c（156,165,157,162,159）,

Weight=c（42.0,49.0,41.5,52.0,45.5））;df

运行截图：

2.（习题2.6）将上题中的数据表的中数据写成一个纯文本文件，用函数read.table（）读该文件，然后再用函数write.csv（）写成一个Excel能打开的文件，并用Excel打开。

步骤：

（1）复制上表数据到记事本，并以ex2.6.txt为文件名保存在合适的目录中；

（2）在read.tabel（）中利用file.choose（），打开对话框来读取此文件；

（3）用函数write.csv（）将此文件以ex2.6.cxv为文件名保存。

（4）找到ex2.6.cxv，并打开它验证。

文件默认存在什么地方？

如何找到此文件？

如果想把此文件存放在D盘根目录下，如何修改代码？

源代码：

>df<-read.table（file.choose（）,header=T）

>df

>write.csv（df,file=“ex2.6.cxv”）

>write.csv（df,file=“D:

/ex2.6.cxv”）

运行截图：

R->改变工作目录->

3.（习题2.7）编写一个R程序（函数）。

输入一个整数n，如果n≤0，则中止运算，并输出一句话：

“要求输入一个正整数”；否则，如果n是偶数，则将n除2，并赋给n；否则，将3n+1赋给n。

不断循环，直到n=1，才停止计算，并输出一句话：

“运算成功”。

这个例子是为了检验数论中的一个简单的定理。

源代码：

Fun<-function（n）{

if（n<=0）

list（fail="要求输入一个正整数"）

else{

repeat{

if（n==1）break

elseif（n%%2==0）{n<-n/2}

else

n<-3*n+1

}

list（"运算成功"）

}

}

运行截图：

思考：

1.列表元素除了可以用“列表名[[下标]]”、“列表名[["元素名"]]”这两种方式来引用外，还有哪一种方式？

列表$元素名

2.列表与数据框有什么异同点？

异：

1）列表元素的类型可以任意类型，不同元素不必相同的类型，其中的元素经常是向量和列表本身，元素本身允许是其他类型，长度不要求相同；

2）数据框通常是矩阵形式结构，数据框每一列是一个变量，每一行是一个观测，各列表的成员必须是向量、因子、数值型矩阵、列表或其他数据框，数据框的变量必须要相同的长度（行数）。

同：

数据框可以用data.frame（）函数生成，其用法与列表list（）函数相同

3.对于列表、数据框的编辑，edit（）函数与fix（）函数有什么不同？

edit（）函数进行编辑、修改后的数据并没有保存在原列表或数据框，而是存在新的列表或数据，而fix（）函数可以将编辑、修改后的数据保存原列表和数据框中。

4.当R读入其它格式的数据文件（如SPSS的数据）时，需要先输入一个什么样的命令？

>library（foreign）

一、实验小结（必写，但字数不限）

自己先把题算一遍，不要急于运行，算出结果，再运行检查结果是否一致，如果不一致，自己找出错误，重新再算，直到结果一致。

熟练课本的例题，掌握知识点，多练题，学会编写题中要求的函数。