如果某個圖層的值是異常值，則刪除矩陣行

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),]