R/ss_addqL.R

In poales/sharkeySpec: Handle and analyze SharkeySpec data

#'Add qL to a dataframe with Fm', Fs, and Fo' data
#'
#'Given a data frame, returns the same data frame with qL added.
#'@param df A data frame with Fm',Fs, and Fo' data.
#'@name ss_addqL
#'@export

ss_addqL <- function(df){
  if(!"qL" %in% colnames(df)){
    Fmdat <- df[,which(grepl(colnames(df),pattern = "Fm"))[1]]
    Fsdat <- df[,which(grepl(colnames(df),pattern = "Fs"))[1]]
    Fodat <- df[,which(grepl(colnames(df),pattern = "Fo"))[1]]
    ql <- ((Fmdat - Fsdat)/(Fmdat - Fodat))*(Fodat / Fsdat)
    df <- tibble::add_column(df,"qL" = unlist(unname(ql)))
  } else{
    cat("qL already in df\n")
  }
  return(df)
}