SAMME.R implementation

If you say so, it's the score. Done.