# 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 tag direction for animals moving from downstream to upstream:
dir <- tag_direction(PIT_data, c("downstream_A1", "upstream_A1"))
# Determine the time difference between first and last detections:
dir_summary <- direction_summary(dir)
Run the code above in your browser using DataLab