Yes this is exactly what i want, thanks Jim.
One last question, (i am sure this is a very simple question but i am still
learning) how can i write the output to a txt file seperately?
vector 1 to one file and vector 2 to another and etc?

thanks
salih


On Sat, May 21, 2011 at 11:41 PM, jim holtman <jholtman@gmail.com> wrote:

> Is this what you are after:
>
> > x = c(1 ,2 ,4 ,7 ,9 ,10 ,15)
> > # partition if the difference is > 2)
> > breaks <- cumsum(c(0, diff(x) > 2))
> > # partition into different lists
> > split(x, breaks)
> $`0`
> [1] 1 2 4
>
> $`1`
> [1]  7  9 10
>
> $`2`
> [1] 15
>
>
>
> On Sat, May 21, 2011 at 6:03 PM, Salih Tuna <salihtuna@gmail.com> wrote:
> > Hi Robert,
> > thanks for your reply. is there a way to store them in separate vectors?
> > and when i try it with a different example i got different result. For
> > example if x = [1 2 8 9]
> > i want the result to be x1 = [1 2] and x2 = [8 9].
> > thanks
> >
> > On Sat, May 21, 2011 at 7:16 PM, Robert Baer <rbaer@atsu.edu> wrote:
> >
> >> Hi everyone,
> >>> i am trying to group close numbers in a vector.
> >>> For example i have a vector x = [1 2 4 7 9 10 15].
> >>> I want the code to pick 1 2 4 (max difference between successive
> numbers
> >>> is
> >>> 2) and assign them to variable a, then pick 7 9 10 and assign them to b
> >>> and
> >>> 15 to c. But since i do not know how many groups there will be the code
> >>> should create a,b,c etc as it goes along. So if x = [1 2 4 7 9 10 15
> 20]
> >>> it
> >>> should create a,b,c and d this time and assign 20 to d (while the
> others
> >>> remain the same).
> >>>
> >>
> >> I think the following function should do basically what you want:
> >> codeit = function(x){
> >>  action = c(TRUE, diff(x) <= 2)
> >>  g = paste('x', '1', sep='')
> >>  j = 1
> >>  for (i in 2: length(x)){
> >>   if (action[i-1] != action[i] | action[i] == FALSE) j = j+1
> >>     g[i] = paste('x', j, sep='')
> >>  }
> >>  df = data.frame(x, grp.x=g)
> >> }
> >>
> >>
> >>
> >>
> >> ------------------------------------------
> >> Robert W. Baer, Ph.D.
> >> Professor of Physiology
> >> Kirksville College of Osteopathic Medicine
> >> A. T. Still University of Health Sciences
> >> 800 W. Jefferson St.
> >> Kirksville, MO 63501
> >> 660-626-2322
> >> FAX 660-626-2965
> >>
> >>
> >>
> >
> >        [[alternative HTML version deleted]]
> >
> > ______________________________________________
> > R-help@r-project.org mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> > and provide commented, minimal, self-contained, reproducible code.
> >
>
>
>
> --
> Jim Holtman
> Data Munger Guru
>
> What is the problem that you are trying to solve?
>

	[[alternative HTML version deleted]]

