甘肅農業大學理學院實驗實訓報告課程名稱： R軟件及應用 開課學期：2018-2019學年第二學期開課系（部）： 應用統計系開課實驗（訓I）室：計算機基礎實驗室學生姓名： 專業班級： 學號： 甘肅農業大學理學院制開課學院、實驗室：理學院數學實驗室 實驗時間：2019年3月21日實驗項目名稱數組和矩陣；數據框；列表實驗項目類型驗證演示綜合設計其他指導教師秦麗娟成績一、實驗目的.掌握R軟件中向量、數組、矩陣、列表、數據框的生成；.會用函數write.table()和read.table() 保存和讀取文本文件；.掌握R軟件中向量與數據框白^下標和條件篩選 ；二、實驗內容.將1,2,…,20構成兩個4X5階的矩陣，其中矩陣A是按列輸入，矩陣B是按行輸入，并作如下運算：(1)C=A+B;(2)D=AB;(3)E=A/B;(4)F是A的轉置矩陣。.創建一個2至ij50的向量vector(2,4,6,8,...,48,50), 做如下操作:(1)選取vector中的第20個元素；(2)選取vector中的第10, 15, 20個元素；(3) 選取vector中的第10到20個元素；(4) 選取vector中值大于40的元素；(5)選取vector中除第10,14,20以外的其他元素。.將數據集trees保存為名為“tre.txt ”的文件，再讀取文件“tre.txt”..已知有5名學生的數據，生成名為 studata的數據框。裳2.S:學生數據序號展名性別年齡身高］皿體重1張三丈141的42.02*四為15116540.((3正五*附157包54趙六為1416252.05丁一女15945,526.有一函數f(x,y)=x+sinxy+2y,寫一程序，輸入自變量的值，輸出函數值。三、實驗原理、方法(算法)、步驟1.A<-matrix(1:20,nrow=4,ncol=5);AB<-matrix(1:20,nrow=4,ncol=5,byrow=TRUE);BC=A+B;CD=A*B;DE=A/B;EF=t(A);F2.vector<-seq(2,50,by=2);vectorvector[20]vector[c(10,15,20)]vector[10:20]vector[which(vector>40)]vector[10]vector[c(-10,-14,-20)]write.table("trees",file="tre.txt")read.table("tre.txt")studata<-data.frame("序號"=c(1:5),"姓名"二c("張三","李四","王五","趙六","丁一")，"性另Ij"二c("女","男","女","男","女)"年齡"二c(14,15,16,14,15),"身高"=c(156,165,157,162,159),"體重”=c(42.0,49.0,41.5,52.0,45.5));studata6.f<-function(x,y){print(x);print(y);xA2+sin(x*y)+2*y}；f(1,0)四、實驗環境(所用軟件、硬件等)及實驗數據文件實驗環境：RSstudio五、實驗結果及實例分析1.A<-matrix(1:20,nrow=4,ncol=5);A[,1][,2][,3][,4][,5][1,]1591317TOC\o"1-5"\h\z[2,] 2 6 10 14 18[3,] 3 7 11 15 19[4,] 4 8 12 16 20B<-matrix(1:20,nrow=4,ncol=5,byrow=TRUE);B[,1][,2][,3][,4][,5][1,] 1 2 3 45[2,] 6 7 8 910[3,] 11 12 1314 15[4,] 16 17 1819 20C=A+B;C[,1][,2][,3][,4][,5][1,]246810[2,]1214161820[3,] 22 24 26 28 30[4,] 32 34 36 38 40D=A*B;D[,1][,2][,3][,4][,5][1,]1491625[2,]36496481100[3,]121144169196225[4,]256289324361400E=A/B;E[,1][,2][,3][,4][,5][1,]11111[2,]11111[3,]11111[4,]11111F=t(A)；F[,1][,2][,3][,4][1,]161116[2,]271217[3,]381318[4,]491419[5,]5101520vector<-seq(2,50,by=2);vector[1]2468101214161820222426283032343638404244464850>vector[20][1]40>vector[c(10,15,20)]203040>vector[10:20]2022242628303234363840>vector[c(vector>40)][1]4244464850>vector[-c(10,15,20)][1]2468101214161822242628323436384244464850data(trees)write.table(trees,file="tre.txt")rt<-read.table("tre.txt");rtGirthHeightVolume

18.37010.328.66510.338.86310.2410.57216.4510.78118.8610.88319.7711.06615.6811.07518.2911.18022.61011.27519.91111.37924.21211.47621.01311.47621.41411.76921.31512.07519.11612.97422.21712.98533.81813.38627.41913.77125.72013.86424.92114.07834.52214.28031.72314.57436.32416.07238.32516.37742.62617.38155.42717.58255.72817.98058.32918.08051.53018.08051.03120.68777.0df<-data.frame(+ 姓名土("張三","李四","王五","趙六","丁一"),+ 性別=c("女","男","女","男","女)+ 年齡=c(14,15,16,14,15),+ 身高=c(156,165,157,162,159),+ 體重=c(42.0,49.0,41.5,52.0,45.5)+)；df姓名性別年像"身高體重1張三女1415642.02李四