Make this run faster

[shbrief]

Rewrite the apply-within-apply part?

lefser/R/lefser.R

Lines 24 to 32 in b059a62

	group_formats <- apply(iters, 1L, function(x) {
	ind <- unlist(whichlist[x])
	apply(trelab_sub, 2L, function(g) {
	wx <- suppressWarnings(coin::wilcox_test(g ~ group, subset = ind))
	cbind.data.frame(
	p.value = coin::pvalue(wx), statistic = coin::statistic(wx)
	)
	})
	})

[lwaldron]

As Jenny Bryan would say, it has a bad code "smell"