vector <- c(1,1,1,-1); vector
A <- matrix(vector,nrow=2,byrow=T); A
#byrow = true hace que se ordene por filas. Si es false se ordenará por columnas
B <- matrix(c(4,18,6,-1),nrow=2,byrow=T); B
C <- matrix(c(9,-2,8,23,42,0),nrow=2,byrow=T); C
VC <- matrix(c(3,1),nrow=2,byrow=T); VC
I4 <- diag (4); I4
sumaAB <- A + B; sumaAB
e <- -1;e
prodBE <- -B*e; prodBE
prodAC <- A%*%C; prodAC
tC <- t(C); tC
prodBC <- t(B)%*%C; prodBC

detA <- det(A); detA #determinante de la matriz pa ver si se puede invertir
invA <- solve(A); invA

sol <- invA%*%VC; sol
sol <- solve(A,VC); sol #forma alternativa a la línea superior (hace automáticamente la inversa de la primera matriz)

chAC <- cbind(A,C); chAC #combinación horizontal
cvAB <- rbind(A,B); cvAB #combinación vertical

#para entregar:N
#script, versión de soluciones, ...