Make a function lin_sol() that solves a given linear equation. For example, to solve \[5x-3=0,\] the function takes two coefficients \(5\) and \(-3\) and lin_sol(5, -3) should return the root \(0.6\). Make sure that lin_sol(a, b) can take care of the case when \(a = 0\), where the solution could be either Infinitely many solutions or No solutions, depending on \(b\). Some examples follow:
lin_sol(3, 12)## [1] "It has a single root -4"lin_sol(0, 1)## [1] "No solutions"lin_sol(0, 0)## [1] "Infinitely many solutions"lin_sol(2, 0)## [1] "It has a single root 0"