added opt.sampling<- "s5pc" option