在R的多个数字列的日落

Question

我有3列数据，每列都有一个数字距离值。

我成功为每个列创建了一个子集，以消除具有以下功能的异常值：

newData <- subset(x, x < mean(x)+3*sd(x) & x > mean(x)-3*sd(x))

问题是，这会产生三个不同长度的新向量，我想对被操纵的数据进行t检验。

如何最好地创建条件之外的数据被丢弃的所有三列的子集？