R/S.N_ratio.R

In msk0609/ebl: Basic analysis using R

#'Ignore raman signal using threshold
#'
#'using melt data
#'@param data,  spectrumdata and set threshold
#'@return check ramna intensity whether signal or not and noise clearing
#'@export
S.N_ratio <- function(data, Threshold=0.0010){
  data=data %>%
    mutate("SigNoi"=paste(ifelse(abs(data$value)<=noise,"Noise","Signal"))) %>%
    mutate("Nocan"=ifelse(abs(data$value)<=noise,0,as.numeric(data$value)))

}