[R] Fwd: Obtaing the maximum

[William Dunlap]

> 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-bounces at r-project.org [mailto:r-help-bounces at r-project.org] On Behalf
> Of Marion Wenty
> Sent: Thursday, May 30, 2013 10:20 AM
> To: tryingtolearnagain at gmail.com; smartpink111 at yahoo.com; r-help at 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 <smartpink111 at yahoo.com>
> Date: 2013/5/29
> Subject: Re: [R] Obtaing the maximum
> To: R help <r-help at 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 at 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]]