R/pHtarget.R

Defines functions pHtarget

pHtarget <-function(u){
  term<-"pH Target Emission"
  cal<-readxl::read_xlsx(u, sheet = "Calibration")
  cell<-which(cal==term,arr.ind = T) + c(0,1)
  as.numeric(cal[cell[1],cell[2]])
}
JARS3N/NBQC documentation built on Jan. 21, 2022, 12:02 a.m.