check out the R working