R/threshold_check.R

In calenwalshe/humansearch: Dataset for Walshe & Geisler (2021) covert search.

#' Threshold check.
#'
#' @param dat_search
#'
#' @return
#'
#' @examples
threshold_check <- function(dat_search) {
  dat_search %>% filter(fh == 1) %>% ggplot(., aes(x = dist.cent, click.distance)) + geom_point()
}