r optimize example

Close