Update sampleFun.R

Some details