Homework 1
library(Matrix)
A <- matrix(c(3,0,-1,2,1,1), nrow=3, byrow=TRUE)
A
B <- matrix(c(4,-1,0,2), nrow = 2, byrow = TRUE)
B
C <-matrix(c(1,4,2,3,1,5), nrow =2, byrow = TRUE)
C
D <-matrix(c(1,5,2,-1,0,1,3,2,4), nrow = 3, byrow = TRUE)
D
E <-matrix(c(6,1,3,-1,1,2,4,1,3), nrow = 3, byrow = TRUE)
E
#QN1 (D-3E) F <- 3 * E F QN1 <- D – F QN1 #Transpose t(QN1)
#QN2 (2E-3D) G <- 2 * E G H <- 3 * D H G – H
QN3 (CB)A
I <- t(C) I J <- t(A) J K <- I * B K
