I think you have to modify the code a little bit for it to work on an R4...