Удаление строк матрицы, если значения cloumn являются выбросами

Question

Есть действительно классная и простая функция от @ aL3xa here, но это для вектора.

У меня есть матрица и скажем, столбец 2, это переменная, которую я хочу отрубить выбросы и связанную строку. Есть пакет outliers, который я бы хотел использовать с его алгоритмами, но они, похоже, тоже для вектора. Какие-либо предложения?

благодаря

Answer 1

Принимая некоторых из кода от вопроса вы связаны:

# @aL3xa's function 
remove_outliers <- function(x, na.rm = TRUE, ...) { 
    qnt <- quantile(x, probs=c(.25, .75), na.rm = na.rm, ...) 
    H <- 1.5 * IQR(x, na.rm = na.rm) 
    y <- x 
    y[x < (qnt[1] - H)] <- NA 
    y[x > (qnt[2] + H)] <- NA 
    y 
} 

set.seed(1) 
x <- as.data.frame(matrix(rnorm(10000),ncol=100)) # 100 x 100 data frame 
y <- remove_outliers(x[,2]) # look for outliers in columns 2 

newx<-cbind(x,y) 

newx2<-x[!is.na(x$y),]