| Detailed description |
Hi Guys,
I am struggling with Kolmogorov-Smirnov test statistic. The application of the following code works and provides a nice curve. However, I want to identify the maximum difference between F1 and F2 and tried to apply the max() function which does not work. The result should be 0.4. I know there is a solution but I do not find it.
> x1<-c(8.2,15.6,9.9,4.3,14.6,9.4,6.6,20.2,13.7,0.5)
> x2<-c(18.0,-3.7,12.9,-11.8,4.6,13.0,2.7,5.9,-4.7,17.0)
> F1<-ecdf(x1)
> F2<-ecdf(x2)
> absDiff<-function(x)abs(F1(x)-F2(x))
Could anyone help me with that?
Thanks |
|
