trying to do R