R: add updated SGM code.