trying with explicit R step