The R Code