updated R analysis