R/ss_a520_baseline.R

In poales/sharkeySpec: Handle and analyze SharkeySpec data

#'Collect baseline 520 absorbance from a list of ECS data
#'
#'Given a list of ECS data (ie from read_all_folder) creates a matching list of baseline A520 data
#'TODO: Re-write to accept a single file. Until then, you can call ss_a520_baseline(list(datum))
#'@param ecs_data A list of ECS data traces
#'@name ss_a520_baseline
#'@export

ss_a520_baseline <- function(ecs_data){
  baseline_A520 <- lapply(ecs_data,function(x) mean(x$Raw_Voltage[0:100]))
  times <- lapply(ecs_data,function(datum) mean(datum$Time[0:100]))
  t <- tibble::as_tibble(unlist(baseline_A520))
  t <- tibble::add_column(t,Time=unlist(times))
  t <- rename(t,Baseline=value)
  baseline_A520 <- baseline_A520[order(baseline_A520$Time),]
  return(baseline_A520)

}