# create matrix with 15 elements
matrix1 <- matrix(c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15),
nrow=3,byrow=TRUE)
print(matrix1)
print("---------------")
# create a vector
vector1 <- c(1,2,3,4,5)
# apply sweep operation that multiplies row
# wise(margin=2)
print(sweep(matrix1, MARGIN=2,vector1, `*`))
print("---------------")
# create elements with vector 2
vector2 <- c(1,2,3)
# apply sweep operation that multiplies column
# wise with vector 2(margin=1)
print(sweep(matrix1, MARGIN=1,vector2, `*`))