labels plot(unempch, gdpch, main = "Okun’slaw", xlab = "Quarterly change in unemployment rate", ylab = "Quarterly change in GDP " ) #Plot data with symbols
Refer to the File:Okuns_law_quarterly_differences.svg to see the data set used. n = Length[unempch]; sol = FindFit[data, \[Alpha] + \[Beta] x, {\[Alpha]