R: method simplification