Есть ли простой способ удалить определенный символ из строки. В приведенном ниже примере я хотел бы удалить последние три символа из каждого элемента вектора.

string<-c("Autauga AL", "Bald Win Av", "Barbour AL", "Bibb AL" ,   "Blount At" , "Bullock AL")