R语言练习题文档格式.docx

1、1计算行列式的值A=det（matrix（c（3,4,7,2,2,8,3,6,1）,nrow=3）2 矩阵,矩阵;求出A x B及A与B中对应元素之间的乘积A=matrix（c（3,4,7,2,2,8,3,6,1）,nrow=3）;B=matrix（rep（1:3,3）,nrow=3）;A%*%B;A*B3由1,2,.,16构成两个方阵，其中矩阵按列输入，矩阵按行输入，并计算C=A+B,D=ABA=matrix（1:16,nrow=4）;B=matrix（1:16,nrow=4,byrow=T）;C=A+B;D=A%*%B4先复制附录数据至文本文档,然后读取数据至文件datadata - re

2、ad.table（D:/t.data.txt,header = T）5 比值的计算weight和height的平方的比值存入bmi变量 bmi - weight/height2;detach（data）6 创建对象x, 其值为1:10, 使用write函数将其写入文件x.txt；删除x, 然后再读入该文件并赋值给x,并保证 x是 numeric- 1:10write.table（x,file = x.txt）;rm（x）;x,header=T）;class（x）;- as.numeric（x$x）;7 查看mtcars数据（mtcars回车）；把vs变量所在列的元素全都改成你的“学号后两位”（

3、mtcars$vs-7）；把mtcars存为mtcars.csv文件；读入mtcars.csv文件存入mtcarsnew；MtcarsMtcars$vs-学号后两位mtcarsnew-read.csv（）8 把mtcars转换成矩阵mm并判断数据类型；把第六行改成你的“学号后两位”；取矩阵mm前11行存入变量mtcars11；取mtcars11的主对角线的元素，构成主对角阵mt；取mtcars11的上三角阵存入mtupper；（需要通过网络搜索学习上三角矩阵定义）mm-as.matrix（mtcars）;class（mm）mm6,mtcars11（mtcars11-head（mtcars,11

4、）mt（mt-diag（diag（mtcars11）mtupper（xlower.tri（x）-0;mtupper-x）xlower.tri（x）-0lower.tri（x,diag=FALSExupper.tri（x）upper.tri（x,diag=FALSE）9把mtupper的行名和列名改为NULL。rownames（mtupper）-NULLcolnames（mtupper）10. mtupper每一行求和，存入mtsum。mtsum-apply（mtupper,MARGIN=1,FUN=sum）附录：数据：1 身高体重数据weight height4.17 1.755.58 1.8

5、5.18 1.656.11 1.94.5 1.744.61 1.915.17 1.754.53 1.85.33 1.655.14 1.94.81 1.744.17 1.914.41 1.753.59 1.85.87 1.653.83 1.96.03 1.744.89 1.914.32 1.754.69 1.8统计软件实验31 数据的读取（数据见附录） data-read.table（路径/t.data.txt,header=T）2 绘图 plot（height, weight） # 绘图3 更改绘图的参数的取值例如：plot（height, weight, pch=2） #更改后的绘图5.根据

6、cityrain数据作图。令Y轴范围（0,300），xaxt=n，type=b,颜色为黑，X轴标题为“Month”,Y轴标题为“Tokyo Rainfall（mm）”，主标题“Monthly Rainfall in major cities”。用axis（）函数添加X轴，使在X轴1到12的位置分别对应12个月份。rain - read.csv（cityrain.csv）plot（rain$Tokyo,type = ,xaxt=,ylim=c（0,300）,col=black,xlab=Month,ylab=Rainfall（mm）,main=Monthly Rainfall in major

7、citiesaxis（1,at=1:12,labels = rain$Month）4. 在0,4pi画sin（x）,cos（x）（在同一个图象中）; 其中sin（x）和cos（x）图象用不同的颜色和形状表示，并在函数图上适当的位置标注 “箭头+y=sin（x）”, “箭头+y=cos（x）” ,标记x轴,y轴,标题为“正弦余弦函数图象”.plot（sin,0,4*pi,main=正弦余弦函数图像x轴y轴,col=red,type=,pch=18）curve（cos,0,4*pi,col=blue,pch=1,add=T）arrows（3.3,0.8,2.3,0.8）text（3.8,0.8,s

8、in（x）arrows（10.8,0.8,11.8,0.8）text（10,0.8,cos（x）统计软件实验41使用三种循环，输出向量1:100中所有数据。1for （I in 1:100） print（I）2while （i=100） sum - sum+ii - i+1 print（sum）3repeat if（i%2!=0）sum i 100）break 2使用while循环求1+2+3+100的和。- 1- 0while（i=100） sum- sum+1print（sum）3使用repeat循环求1至100之间的奇数和。4使用for循环输出1至100之间的能够被3或5整除的数，并求和

9、。for（i in 1:100） if（i%3=0|i%5=0） print（i） sum 5定义一个长度为100、mean=1，sd=1的正态分布随机向量，并找出该向量的最小值及其出现的位置。 rnorm（n,mean,sd），种子设为123 set.seed（123）norm - rnorm（100,1,1）min.norm - 100 if（normi=min.norm） min.norm=normi min.count=icat（min.norm,min.count）6找出100次产生的长度为100、mean=1，sd=1的正态分布随机向量的最小值与出现位置的关系。（用plot（min.count,min.norm）表示，其中min.count为位置向量，min.norm为最小值向量） norm min.normi 0）|（x0）sum（!0）