r语言重复抽样1000次