R/overlap_count.R

In andrewpita/gibbsCapRecap: Functions for Bayesian Estimation with Capture-Recapture Data

#' Get the counts of individuals who participated in multiple listings, when known.
#' 
#' @description Take overlapdata.csv file and get counts for 
#' @description individuals who participated in multiple listings.
#' 
#' @param overlapData csv file in the format of overlapdata.csv.
#' @param survLoc character object with the corresponding location name in overlapdata.csv.
#' @param listing character object with the corresponding listing name in overlapdata.csv
#' 
#' @return a numeric object
#' 
#' 
#' @export


#in this specific case the survey is the most complete source of data, 
#and this function gets the overlap between the survey one of three
#other types of listings: a  uid, coupon, or rnb
overlap_count = function(survLoc, listing, overlapData) {
  
    ind = overlapData[,"location"] == survLoc & overlapData[,listing] == "Yes"
    ind = ifelse(is.na(ind), FALSE, ind)
  
    overlapCount = sum(overlapData$n[ind])
    
    
    return(overlapCount)
}