Как ускорить коморбидность функции и попытаться понять код

Question

Я пытаюсь найти показатель коморбидности для пациентов 90K, но это занимает больше времени после установки параллели = T.

Я пытаюсь понять следующую строку кода из пакета коморбидности, но это дает мнеerror.

"Ошибка вставки (code, 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 = "~")))