A First Course in Linear Algebra, Beezer, R., 2008 C10, page 64 Compute matrix calculations

Define matrix 1

matrix1 <- matrix(c(2, -3, 4, 1, 0), nrow = 5, byrow = TRUE)
print(matrix1)
##      [,1]
## [1,]    2
## [2,]   -3
## [3,]    4
## [4,]    1
## [5,]    0

#Define matrix 2

matrix2 <- matrix(c(1, 2, -5, 2, 4), nrow = 5, byrow = TRUE)
print(matrix2)
##      [,1]
## [1,]    1
## [2,]    2
## [3,]   -5
## [4,]    2
## [5,]    4

#Define matrix 3

matrix3 <- matrix(c(-1, 3, 0, 1, 2), nrow = 5, byrow = TRUE)

#Define multipliers

multiplier_1 <- 4
multiplier_2 <- -2

print(multiplier_1)
## [1] 4
print(multiplier_2) 
## [1] -2

#Calculate equation

result_matrix <- multiplier_1 * matrix1 + multiplier_2 * matrix2 + matrix3
print(result_matrix)
##      [,1]
## [1,]    5
## [2,]  -13
## [3,]   26
## [4,]    1
## [5,]   -6