R/filter_data_freq.R

In Nature40/UM2Radiotracking: Toolkit for handling radiotracking data

#' Filter data with frequenzy
#'
#' @description Filter radiotracking data with a mid frequenzy and a error threshold
#'
#' @param data data.frame of radiotrackin data
#' @param freq the frequency of the wanted tag
#' @param freq_error  +/- tolerance of the frequency filter
#' @param freq_labels utility to name a frequenzy
#'
#' @return data.frame of filtered radiotracking data
#'
#' @author RadioTracking EU
#'
#' @export


filter_data_freq <- function(data,freq,freq_error,freq_labels = NULL){
  freq_sorted<-NULL
  for(i in freq){
    tmp<-subset(data, (data$signal_freq>(i-freq_error)) & (data$signal_freq<(i+freq_error)))
    if(!is.null(tmp) && nrow(tmp)>0){
      if(is.null(freq_labels)){
        tmp$freq_tag<-paste0((i/1000)," MHz")
      }
      else
      {
        tmp$freq_tag<-freq_labels[which(i==freq)[1]]
      }
      freq_sorted<-rbind.data.frame(freq_sorted, tmp)
    }
  }
  return(freq_sorted)
}