R/ge.ggLmeqn.R

In bwtian/geothermaR: A R package for Geothermal and Geoheat Energy analysis and assessment

lm_eqn = function(m) {

        l <- list(a = format(coef(m)[1], digits = 2),
                  b = format(abs(coef(m)[2]), digits = 2),
                  r2 = format(summary(m)$r.squared, digits = 3));

        if (coef(m)[2] >= 0)  {
            eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2,l)
        } else {
            eq <- substitute(italic(y) == a - b %.% italic(x)*","~~italic(r)^2~"="~r2,l)
        }

        as.character(as.expression(eq));
    }