Sensitivitätsanalyse von Ausreißern in Korrelation

Question

Angenommen, ich habe zwei Vektoren und ihre Korrelation:

set.seed(123)  
x<-c(rnorm(19), 99.1) 
y<-rnorm(20, 5, 8) 
cor(x,y) 
#[1] -0.0721101 
cor(x[1:19], y[1:19]) 
#[1] -0.0331376 

Meine Frage ist, wie die sensitivity zu messen (wie p.value verwendet) für die Korrelation zwischen x und y in Bezug auf das Potenzial Ausreißer.

Answer 1

können Sie das Paket verwenden outliers Ausreißer zu erkennen:

outliers::grubbs.test(c(x,y)) 



Grubbs test for one outlier 

data: c(x, y) 
G = 5.84030, U = 0.10299, p-value < 2.2e-16 
alternative hypothesis: highest value 99.1 is an outlier