x <- matrix(c(1, 1, 1,
1, 2, 1,
1, 3, 1,
1, 1,-1,
1, 2,-1,
1, 3,-1), ncol = 3, byrow = TRUE)
y <- matrix(1, nrow = 6, ncol = 3)
matrix.inner(x, y)
# must be equal
matrix.norm(x, type = "Frobenius")^2
matrix.inner(x)
Run the code above in your browser using DataLab