Join survey and commercial samples

bind_samples(dat_comm, dat_survey)

Arguments

dat_comm	Output from `get_commercial_samples()`
dat_survey	Output from `get_survey_samples()`

# NOT RUN {
dat_comm <- get_commercial_samples("lingcod")
dat_survey <- get_survey_samples("lingcod")
dat <- bind_samples(dat_comm, dat_survey)
# }