My R programm