error in slide 55 with %in%

y[!y%in%x] au lieu de y[!x%in%]