如何加快合并症功能并尝试理解代码

Question

我正试图找到90K患者的合并症评分，但是在设置parallel = T之后，它也要花费更多的时间。

我正在尝试从合并症软件包中理解以下代码，但是它给了我错误。

”粘贴错误（代码，id，sep =“〜”）：找不到对象“代码”“

x <- data.frame(
  id = sample(1:15, size = 200, replace = TRUE),
  code = sample_diag(200),
  stringsAsFactors = FALSE
)
#the following line of code from from package and available on GitHub.
x1 <- utils::unstack(df, form = stats::as.formula(paste(code,id, sep = "~")))