Powiedzmy, że mam wektor znaków losowych nazw. Mam też inny wektor znaków z wieloma markami samochodów i chcę usunąć każde zdarzenie samochodu w oryginalnym wektorze.

Tak więc podane wektory:

dat = c("Tonyhonda","DaveFord","Alextoyota")
car = c("Honda","Ford","Toyota","honda","ford","toyota")

Chcę skończyć z czymś takim jak poniżej:

dat = c("Tony","Dave","Alex")

Jak mogę usunąć część ciągu w R?