allsample <- combn(c(8,3,1,11,4,7), 3)
apply(allsample,2,var)
#> [1] 13.000000 16.333333 7.000000 7.000000 26.333333 12.333333 14.333333
#> [8] 12.333333 4.333333 4.333333 28.000000 2.333333 9.333333 19.000000
#> [15] 16.000000 4.333333 26.333333 25.333333 9.000000 12.333333
Created on 2021-09-14 by the reprex package (v2.0.1)