R/models.R

Defines functions add.iPlot.lm

add.iPlot.lm <- function(x, obj, ...) {
  l <- iabline(obj, plot=x, col=4, ...)
  query(l) <- paste(c("y = ", " * x +"), format(coef(obj)[2:1], digits=3), collapse='')
  invisible(x)
}
s-u/Acinonyx documentation built on March 31, 2022, 2:18 a.m.