add titles
fix r output