R language program