Update sampleFun.R