R Print First 10 Rows