> or ... a shorter way would be: > > a1<-c(1,2,3,4,5,1,2,3,1,1,1,2,3,4,5,1,2,3) > > a1[c(which(diff(a1)!=1),length(a1))]
Or, even shorter, a1[c(diff(a1) != 1, TRUE)] Bill Dunlap Spotfire, TIBCO Software wdunlap tibco.com > -----Original Message----- > From: r-help-boun...@r-project.org [mailto:r-help-boun...@r-project.org] On > Behalf > Of Marion Wenty > Sent: Thursday, May 30, 2013 10:20 AM > To: tryingtolearnag...@gmail.com; smartpink...@yahoo.com; r-help@r-project.org > Subject: [R] Fwd: Obtaing the maximum > > Hi, > > or ... a shorter way would be: > > a1<-c(1,2,3,4,5,1,2,3,1,1,1,2,3,4,5,1,2,3) > > a1[c(which(diff(a1)!=1),length(a1))] > > Hope it helps. > > Marion > > ---------- Forwarded message ---------- > From: arun <smartpink...@yahoo.com> > Date: 2013/5/29 > Subject: Re: [R] Obtaing the maximum > To: R help <r-help@r-project.org> > > > Hi, > May be this helps: > a1<-c(1:5,1:3,rep(1,2),1:5,1:3) > a1 > # [1] 1 2 3 4 5 1 2 3 1 1 1 2 3 4 5 1 2 3 > > > a1[sort(c(which(c(diff(a1)<0,TRUE)), which(a1[-length(a1)] == a1[-1])))] > #[1] 5 3 1 1 5 3 > a2<-c(1:2,rep(1,4),1:7,1:3) > a2 > # [1] 1 2 1 1 1 1 1 2 3 4 5 6 7 1 2 3 > a2[sort(c(which(c(diff(a2)<0,TRUE)), which(a2[-length(a2)] == a2[-1])))] > #[1] 2 1 1 1 1 7 3 > > a3<-c(c(1,4,5,8),rep(1,3),c(1,8,11,13),1:4) > a3 > # [1] 1 4 5 8 1 1 1 1 8 11 13 1 2 3 4 > a3[sort(c(which(c(diff(a3)<0,TRUE)), which(a3[-length(a3)] == a3[-1])))] > #[1] 8 1 1 1 13 4 > > a4<-c(c(1,4,5,8),rep(4,3),c(1,8,11,13),8:12) > a4 > # [1] 1 4 5 8 4 4 4 1 8 11 13 8 9 10 11 12 > a4[sort(c(which(c(diff(a4)<0,TRUE)), which(a4[-length(a4)] == a4[-1])))] > #[1] 8 4 4 4 13 12 > A.K. > > > > >Hi all, I have a series whose tpe for that is like series I expose below. > > > >The thing is if a incremental number ends I´m in the first "type" of event > >in this success is named 5 (because of the maximum is 5). In the series I > >have this kind of events 5,3,1,1,5,3 > > > >But I don´t know extactly a priori what is the maximum and when "stops" > >there is some function in r doing something similar this? > > > >Thans in advance to all. > > > > > >1 > >2 > >3 > >4 > >5 > >1 > >2 > >3 > >1 > >1 > >1 > >2 > >3 > >4 > >5 > >1 > >2 > >3 > > ______________________________________________ > 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. > > > > -- > Mag.a Marion Wenty > Wissenschaftliche Mitarbeiterin > Institut für Kinderrechte und Elternbildung > Ballgasse 2, 6. Stock > 1010 Wien > > [[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.
