R code for largest interval

myInterval<-function(x)

{

n<-length(x);

xs<-sort(x);

tmp1<-xs[1:(n-1)]; tmp2<-xs[2:n];

intSizes<-tmp2-tmp1;

idx<-which.max(intSizes);

size<-intSizes[idx];

intL<-xs[idx]; intR<-xs[idx+1];

interval<-data.frame(intL, intR, size);

return(interval);

}

x<-c(3,1,5,20,18,11,7,6);

myInterval(x)