统计模拟及其R实现