# R program to find inverse of a Matrix
  
# Create 3 different vectors
# using combine method.
a1 <- c(3, 2, 5)
a2 <- c(2, 3, 2)
a3 <- c(5, 2, 4)
  
# bind the three vectors into a matrix 
# using rbind() which is basically
# row-wise binding.
A <- rbind(a1, a2, a3)
  
# print the original matrix
print(A)
  
# Use the solve() function 
# to calculate the inverse.
T1 <- solve(A)
  
# print the inverse of the matrix.
print(T1)

   [,1] [,2] [,3]
a1    3    2    5
a2    2    3    2
a3    5    2    4

              a1          a2         a3
[1,] -0.29629630 -0.07407407  0.4074074
[2,] -0.07407407  0.48148148 -0.1481481
[3,]  0.40740741 -0.14814815 -0.1851852

# Create 3 different vectors.
a1 <- c(3, 2, 8)
a2 <- c(6, 3, 2)
a3 <- c(5, 2, 4)
  
# Bind the 3 matrices row-wise 
# using the rbind() function.
A <- rbind(a1, a2, a3)
  
# determinant of matrix
print(det(A))

-28

# find inverse using the inv() function.
print(inv(t(A))) 

[1,] -0.2857143  0.5  0.1071429
[2,] -0.2857143  1.0 -0.1428571
[3,]  0.7142857 -1.5  0.1071429