# Create a list containing compiled reader data:
readers <- list(reader_us, reader_ds)
# Join data into a multi-reader array:
PIT_data <- join_multireader_data(readers)
# List readers:
unique(PIT_data$LOC)
# Determine antenna efficiency for animals moving from downstream to upstream:
ant_efficiency(PIT_data, c("downstream_A1", "upstream_A1"))
# Determine antenna efficiency for animals moving from upstream to downstream:
ant_efficiency(PIT_data, c("upstream_A1", "downstream_A1"))
Run the code above in your browser using DataLab