adding column headers, slightly modified R