R T检验与置换检验

我有一个像这样的数据框。有2个独立的组和5个不同的变量

df <- read.table(text="Group   var1    var2    var3    var4    var5
1           3   5   7   3   7
1           3   7   5   9   6
1           5   2   6   7   6
1           9   5   7   0   8
1           2   4   5   7   8
1           2   3   1   6   4 
2           4   2   7   6   5
2           0   8   3   7   5
2           1   2   3   5   9
2           1   5   3   8   0
2           2   6   9   0   7
2           3   6   7   8   8
2           10  6   3   8   0", header = TRUE)

---

有什么问题吗？您的数据是否明显较大，并且需要性能提升？我的实际数据集非常小，因此我想进行置换测试，以尝试验证我的实际发现

t(sapply(df[-1], function(x) 
 unlist(t.test(x~df$Group)[c("p.value")])))