R/fit_lin_fit.R

In ctriandafillou/flownalysis: Analysis of Yeast Protein Induction and pH by Flow Cytometry

#' Processes a flow dataset of induction timeseries
#' 
#' Fits a linear function to some data and returns a dataframe containing the slope and intercept
#' @param dat The dataframe containing columns corresponding to recovery times ("timepoint") and log ratios of cell types ("growth.ratio")
#' @param return_model boolean; whether or not to return the modeled object
#' @export
#' @return dataframe with slope and intercept



fit_lin_fit <- function(dat, return_model = FALSE) { 
  the_fit <- lm(growth.ratio ~ timepoint, dat)
  if (return_model == TRUE) {
    return(the_fit)
  }
  setNames(data.frame(t(coef(the_fit))), c("intercept", "slope"))
}