R/as_calib_obj.R

In adsteen/enzalyze2: What the package does (short line)

##' Create a calibration object
##' 
##' @description Ultimately this should be able to handle multiple fluorophores. Right now it will ignore long-format extra fluorophores, and will choke on wide format extra fluorophores
##' 
as_calib_obj <- function(df, conc.var="conc", response.var="fl", units=NULL) {
  
  # Check whether units are acceptable
  if(is.null(units)) {
    warning("The units on this calibration are unknown")
  }
  
  # Calculate slope
  calib_lm <- lm_stats(df, conc.var, response.var)
  
  obj <- list(
    calib.data=df,
    units=units)
  
}