R/lin.R

In PCBS: Principle Component BiSulfite

Defines functions lin

Documented in lin

lin <- function(x, l){
  m <- unname(l$coefficients[2])
  b <- unname(l$coefficients[1])
  return((m*x)+b)
}

Try the PCBS package in your browser