Есть ли функция R, такая как Поддержка, но с большей емкостью, потому что поддержка имеет емкость только для 200 образцов, и мне нужно больше

Question

base100 <- base[sample(1:nrow(base), 100, replace = F),]
base100 <- data.frame(base100)

P <- base100$DIAS

library(TeachingSampling)

N <- length(P)
N
n <- 2
Support(N, n, P)

"Но это не дает результата, потому что это слишком много данных"