Intersect Function In R Programming