R Create Vector From Table