1 第二章答案： Ex2.1 x<-c(1,2,3) y<-c(4,5,6) e<-c(1,1,1) z=2*x+y+e z1=crossprod(x,y)#z1 为x1 与x2 的内积或者 x%*%y z2=tcrossprod(x,y)#z1 为x1 与x2 的外积或者 x%o%y z;z1;z2 要点：基本的列表赋值方法，内积和外积概念。内积为标量，外积为矩阵。 Ex2.2 A<-matrix(1:20,c(4,5));A B<-matrix(1:20,nrow=4,byrow=TRUE);B C=A+B;C #不存在 AB 这种写法 E=A*B;E F<-A[1:3,1:3];F H<-matrix(c(1,2,4,5),nrow=1);H #H 起过渡作用，不规则的数组下标 G<-B[,H];G 要点：矩阵赋值方法。默认是byrow=FALSE,数据按列放置。 取出部分数据的方法。可以用数组作为数组的下标取出数组元素。 Ex2.3 x<-c(rep(1,times=5),rep(2,times=3),rep(3,times=4),rep(4,times=2));x #或者省略times=，如下面的形式 x<-c(rep(1,5),rep(2,3),rep(3,4),rep(4,2));x 要点：rep（）的使用方法。rep（a,b）即将a 重复b 次 Ex2.4 n <- 5; H<-array(0,dim=c(n,n)) for (i in 1:n){for (j in 1:n){H[i,j]<-1/(i+j-1)}};H G <- solve(H);G #求 H 的逆矩阵 ev <- eigen(H);ev #求 H 的特征值和特征向量 要点：数组初始化；for 循环的使用 待解决：如何将很长的命令（如for 循环）用几行打出来再执行？每次想换行的时候一按回车就执行了还没打完的命令... Ex2.5 StudentData<-data.frame(name=c("zhangsan","lisi","wangwu","zhaoliu", 2 "dingyi"),sex=c("F","M","F","M","F"),age=c("14","15","16","14","15"),height=c("156","165","157","162","159"),weight=c("42","49","41.5","52","45.5"));StudentData 要点：数据框的使用 待解决：SSH 登陆linux 服务器中文显示乱码。此处用英文代替。 Ex2.6 write.table(StudentData,file="studentdata.txt") #把数据框StudentData 在工作目录里输出，输出的文件名为studentdata.txt. StudentData_a<-read.table("studentdata.txt");StudentData_a #以数据框的形式读取文档 studentdata.txt，存入数据框StudentData_a 中。 write.csv(StudentData_a,"studentdata.csv") #把数据框StudentData_a 在工作目录里输出，输出的文件名为studentdata.csv,可用Excel 打开. 要点：读写文件。read.table("file") write.table(Rdata,"file") read.csv("file") write.csv(Rdata,"file") 外部文件，不论是待读入或是要写出的，命令中都得加双引号。...
