Update Demo.R