Create SLRexample.R