if ((npeop <- length(peop_id)) > 0) {
+     if ((nbed_empty <- sum(hosp_beds$is_empty)) > 0) {  # 有空余床位
+       nbed_use <- min(npeop, nbed_empty)
+       bed_id <- hosp_beds$id[hosp_beds$is_empty][1:nbed_use]
+       # 更新患者信息
+       peop_id2 <- sample(peop_id, nbed_use)   # 这里是随机选择，理论上应该按症状轻重
+       people$x[peop_id2] <- hosp_beds$x[bed_id]
+       people$y[peop_id2] <- hosp_beds$y[bed_id]
+       people$state[peop_id2] <- STATE_FREEZE
+       people$freeze_time[peop_id2] <- worldtime
+       # 更新床位信息
+       hosp_beds$is_empty[bed_id] <- F
错误: 句法分析器13行里不能有多字节字符
>       hosp_beds$person_id[bed_id] <- peop_id2
>     }
错误: 意外的'}' in "    }"
>   }
错误: 意外的'}' in "  }"