R/calibrate.R

In Nature40/UM2Radiotracking: Toolkit for handling radiotracking data

#' Calibration values
#'
#' @description Get correction values for signal strength from calibration curves
#'
#' @param data data.frame of radiotrackin data
#'
#'
#' @return data.frame of correction values
#'
#' @author RadioTracking EU
#'
#' @export






calibrate<- function(data) {
  maxis<-NULL

  for(i in unique(as.character(data$receiver))){
    tmp<-subset(data,receiver == i)
    maxis<-rbind(maxis,tmp[which.max(tmp$max_signal),])
  }

  max_max<-maxis[which.max(maxis$max_signal),]
  maxis<-data.frame(correction = max_max$max_signal-maxis$max_signal, receiver=maxis$receiver, station = maxis$Name)
  return(maxis)
}