Solve Linear Algebraic Equation in R Programming – solve() Function

solve() function in R Language is used to solve linear algebraic equation. Here equation is like a*x = b, where b is a vector or matrix and x is a variable whose value is going to be calculated.

Syntax: solve(a, b)

Parameters:
a: coefficients of the equation
b: vector or matrix of the equation

Example 1:

# R program to illustrate
# solve function

# Calling solve() function to
# calculate value of x in
# ax = b, where a and b is
# taken as the arguments
solve(5, 10)
solve(2, 6)
solve(3, 12)

Output:

[1] 2
[1] 3
[1] 4

Example 2:

# R program to illustrate
# solve function

# 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)

Output:

   [, 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