R - Multiplicação de Matrizes

multiplicationMatrix.R

#Mutiplicação Matrizes

vet_a = c(333658,19960204,829,399097,1234)
vet_b = vet_a * 2
vet_c = vet_b / 3
vet_d = vet_c + vet_a^2 #or vet_a**2
vet_e = sqrt(vet_d)
vet_ai = rev(vet_a) #or vet_a[5:1]

m1 = matrix(data = c(vet_a,vet_b,vet_c,vet_d,vet_e,vet_ai), 
             ncol = 5, nrow = 6, byrow = TRUE)

m2 = matrix(data = c(vet_a,vet_b,vet_c,vet_d,vet_e,vet_ai), 
            ncol = 6, nrow = 5)

m3 = m1 * 0.1

m4 = as.matrix(attitude[10:14,1:6])

#Multiplicação
m = m1 %*% m2
#Sem % multiplica elemento por elemento
#Com % multiplica a matrix 

m5 = m1 * m3

m6 = m3 * m1

m7 = m1 %*% m4

m8 = m4 %*% m1

m5 == m6 #TRUE

m7 == m8 #FALSE

#Matriz Transposta
m8 %*% t(m1)

#Matriz Diagonal
diag(c(2,4,8))

#Matriz Inversa
solve()