fix ocas R example