x<-t(c(1,2,3));y<-t(c(4,5,6));
z<-2*x+y+t(rep(1,3))
cp<-crossprod(x,y)#对x,y作内积
tcp<-tcrossprod(x,y)#对x,y作外积
A<-array(1:20,dim=c(4,5))#按列输入
B<-matrix(1:20,nrow=4,ncol=5,byrow=TRUE)#按行输入
C<-A+B
D<-A%*%t(B)
E<-A*B
F<-A[1:3,1:3]
class(F)
G<-B[,-3]#G不含B的第三列
x23<-rep(c(1,2,3,4),c(5,3,4,2))
n=5
H<-array(0,c(n,n))
for(i in 1:n){
for(j in 1:n)
{
H[i,j]<-1/(i+j-1)
}
}
H
det(H)#矩阵H的行列式
solve(H)#矩阵H的逆矩阵
ev<-eigen(H)#矩阵H的特征值和特征向量
setwd("F://")
EX2.6<-read.table('EX2.6.txt',header=T)#读入数据
write.csv(c,file="data_EX26.csv")#写入数据
data_EX26<-read.csv('data_EX26.csv',header=T)#用excel表格读取