joon aj R code