Create R_ctadata2.R