R CSA example code