[R] min rows multiplication by the max rows

[Vahid Borji]

Hi my R friends,

I have two matrices as follows:

M<-matrix(c(1,4,1,3,1,4,2,3,1,2,1,2),3)

1    3    2    2
4    1    3    1
1    4    1    2

N<-matrix(c(1,1,2,2,3,4,-2,2,1,4,3,-1),3)

1    2   -2    4
1    3    2    3
2    4    1   -1

I want to find a vector which is a matrix 1*3 and each of its elements is
the multiplication of min element of each row of M by the max element of
the corresponding row of N (for example, the first element of the vector is
the min element of the first row of matrix M, which is 1, multiply by the
max element of the first row of matrix N, which is 4, and so the first
element of the vector is 1*4 which is 4).
The final answer is: (1*4, 1*3,1*4)=(4,3,4)

To find this vector (or matrix) I have written the below code:
c(min(M[1,])*max(N[1,]),min(M[2,])*max(N[2,]),min(M[3,])*max(N[3,]))
But it is so long. could anyone writes a shorter (or simpler, or easier)
code?

	[[alternative HTML version deleted]]