R Code CDA Peng