My R Prog code