R/krsa_qc_steps.R

In kalganem/KRSA: KRSA: Kinome Random Sampling Analyzer

#' QC pre-processing of raw data (deals with negative values, and adjust signal saturation values)
#'
#' This function takes in the raw data and QC pre-processes it (deals with negative values, and adjust signal saturation values)
#'
#' @param df krsa raw data
#' @param sat_qc to filter out data point with high SignalSaturation
#'
#' @return df
#'
#' @family QC functions
#'
#'
#' @export
#'
#' @examples
#' TRUE
#'

krsa_qc_steps <- function(df, sat_qc = T) {

  df %>%
    dplyr::mutate(Signal = ifelse(Signal < 1, 1, Signal)) %>%
    {if (sat_qc == T) {dplyr::filter(.,!SignalSaturation>0.05)} else .}


}