Given a list of numbers, write a function that gives the largest interval, along with the size of it. Ex. 2, 4, 9, Left=4, Right=9 Interval=5

Question

IntervalFinder<-function(x) {
   sort(x)
   n=length(x)
   IntervalsList=c()
   for (i in x) {
   if (i <= n) {
   Int1= x[i]
   Int2= x[i+1]
   Interval= Int2