extract_eq function

'LaTeX' equation for R models