SAMME.R implementation

comma