Como gerar diversas amostras e pegar medidas descritivas cada uma delas?

Segue exemplo de dados:

 y <- matrix(rbinom(1500, n = 50, p = 0.35))

Agora preciso gerar 50 amostras, de n = 30, e as medidas descritivas de cada uma (var, sd, range, cv, amplitude, média).