intersect code snippets in r

find common values between vectors in r