Fixed the wrong answer of R