R example for creating a table in word