SGD method use R