1 / 43
绗簩绔?/p>
2.1
> x<-c(1,2,3);y<-c(4,5,6)
> e<-c(1,1,1)
> z<-2*x+y+e;z
[1]
7 10 13
> z1<-crossprod(x,y);z1
[,1]
[1,]
32
> z2<-outer(x,y);z2
[,1] [,2] [,3]
[1,]
4
5
6
[2,]
8
10
12
[3,]
12
15
18
2.2
(1)
> A<-matrix(1:20,nrow=4);B<-matrix(1:20,nrow=4,byrow=T)
> C<-A+B;C
(2)
> D<-A%*%B;D
(3)
> E<-A*B;E
(4)
> F<-A[1:3,1:3]
(5)
> G<-B[,-3]