added and tested .R