SAMME.R implementation

Why?