Update plotexample.R