multiple intersect r

# Create two vectors
vector1 <- c(1, 2, 3, 4, 5)
vector2 <- c(3, 4, 5, 6, 7)

# Find the intersection of the two vectors
intersection <- intersect(vector1, vector2)

# Print the result
print(intersection)