R简单实例和抽样