Update demo.r