update learnR.R