Update rotsf-demo.r