R code print typo fix