fixed up r problem (1 line)