当前代码：
在这里我给出不同的部分； 0-20岁，21-45岁，46-65岁和66-100岁。
dob020 <- seq(today() - years(20), today(), by = "day")
dob2145<- seq(today() - years(45), today() - years(20), by = "day")
dob4665 <- seq(today() - years(65), today() - years(40), by = "day")
dob66100 <- seq(today() - years(100), today() - years(65), by = "day")
在这里，我想根据给定的概率生成随机DoB。 0-20年的概率必须是15％，21-45 40％等等。
dateofbirth <- sample(c(sample(dob020, 1), sample(dob2145, 1),
sample(dob4665, 1), sample(dob66100, 1)), 10, replace = TRUE,
prob = c(0.15,0.40, 0.35, 0.10))
这种工作方式很好，除了现在我得到的结果是4个不同的出生日期（每个部分一个），并且它们分布在10个结果中。
我想要的结果是10个不同的出生日期，但仍考虑到了发生率。
答案 0 :(得分：0)
您无法一次完成updateSpin(spin_result_id: AAGUID, inventory_id: AAGUID, status: string){
return Observable.create(observer => {
this.http.post(`${this.dataApiUrl}//some api`,
{records: [{
"inventory_id": inventory_id,
"status": status
}],
resource_id: '//some api'},
{headers: new HttpHeaders().set('X-XSRF-TOKEN', this.getCookie('XSRF-TOKEN')),
responseType: 'text'})
.subscribe(data => {
console.log(data);
observer.next(true);
observer.complete(true);
}, error => {
console.log(error);
observer.next(false);
observer.complete();
})
});}
的操作，需要分别对它们进行采样，然后将它们组合在一起
sample