Could you share the code of implementing R precision?

[imyzx2017]

I tried implementing R precision by myself, but the result I got on attnGAN model, was very low, near 16.37%.（R=1）

So how do you implement the R precision?Could you share the code?

Thanks for your help!!