Как нарисовать 100 простых случайных выборок размером 4 и распределить их по 25 наборам по 4 SRS в моем коде R?

Question

Это мой код для рисования с размером выборки 4:

sample4 <- mtcars[sample(nrow(mtcars), 4),]

Повторять ли я рисование 100 раз? Как мне это сделать? Это для выборочной ранжированной выборки.