My R language code