powered by
inv.optR(A, tol = 1e-07)
# Invert the matrix using LU decomposition A<-matrix(c(0.6,-0.4,1, -0.3,0.2,0.5,0.6,-1,0.5), nrow=3,ncol=3, byrow = TRUE) InvA<-inv.optR(A)
Run the code above in your browser using DataLab