vector1=
c
(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16)
matrix1 <-
matrix
(vector1, nrow = 4, ncol = 4)
print
(matrix1)
vector2=
c
(1,2,3,2,4,5,6,3,4,1,2,7,8,9,4,5)
matrix2 <-
matrix
(vector2, nrow = 4, ncol = 4)
print
(matrix2)
print
(
" multiplication result"
)
print
(matrix1*matrix2)