correct typo in R function for solution