## semi_join
set.seed(234)
dplyr::semi_join(
ir_sample_data,
tibble::tibble(
id_measurement = c(1:5, 101:105),
nitrogen_content = rbeta(n = 10, 0.2, 0.1)
),
by = "id_measurement"
)
## anti_join
set.seed(234)
dplyr::anti_join(
ir_sample_data,
tibble::tibble(
id_measurement = c(1:5, 101:105),
nitrogen_content = rbeta(n = 10, 0.2, 0.1)
),
by = "id_measurement"
)
Run the code above in your browser using DataLab