How to do an arcsine transformation in r