Solve Function In Rstudio