Adding example R output