use correct data in R; previous was outdated