[R-sig-teaching] subsetting data with the median position

[Albyn Jones]

> dat1 <- c(2,4,8,9,11,11,11,12,15)
>
> dat1[dat1 > median(dat1)]
[1] 12 15
> dat1[dat1 < median(dat1)]
[1] 2 4 8 9

I'm just curious:  do you like this too?


albyn

On Tue, Dec 22, 2015 at 1:00 AM, Steven Stoline <sstoline at gmail.com> wrote:

> Thank you very much for your helps
>
> steve
>
> On Tue, Dec 22, 2015 at 3:53 AM, Peter Meissner <
> peter.meissner at uni-konstanz.de> wrote:
>
> > dat1 <- c(2,4,8,9,11,11,12)
> >
> > dat1[dat1 > median(dat1)]
> > dat1[dat1 < median(dat1)]
> >
> >
> >
> > dat2 <- c(2,4,8,9,11,11,12,15)
> >
> > dat2[dat2 > median(dat2)]
> > dat2[dat2 < median(dat2)]
> >
> >
> > below_median <- function(x){ x[x < median(x)]}
> > above_median <- function(x){ x[x > median(x)]}
> >
> > below_median(dat1)
> > below_median(dat2)
> >
> >
> >
> >
> > Am .12.2015, 09:36 Uhr, schrieb Steven Stoline <sstoline at gmail.com>:
> >
> > Dear All:
> >>
> >> is there away for subsetting data by the median position?
> >>
> >>
> >> Example:
> >> ------------
> >>
> >>
> >> *Data1: *2, 4, 8, 9,11,11,12  *(n is odd)*
> >>
> >> *Data1: *2,4,8,9,11,11,12,15
> >>
> >> *  (n is even)*
> >> for Data1:
> >>
> >> * I want to get:*
> >>
> >> *lower half:      2    4    8*
> >>
> >>
> >> *upper half:    11   11   12*
> >>
> >>
> >>
> >> *for Data2: I want to get:*
> >>
> >> *lower half:     2   4      8    9*
> >>
> >> *upper half:   11   11   12   15*
> >>
> >>
> >> with many thanks
> >> steve
> >>
> >>
> >
> > --
> > Peter Meißner
> > Workgroup 'Comparative Parliamentary Politics'
> > Department of Politics and Administration
> > University of Konstanz
> > Box 216
> > 78457 Konstanz
> > Germany
> >
> > +49 7531 88 5665
> > http://www.polver.uni-konstanz.de/sieberer/home/
> > https://github.com/petermeissner
> > http://pmeissner.com
> >
> > _______________________________________________
> > R-sig-teaching at r-project.org mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-sig-teaching
> >
>
>
>
> --
> Steven M. Stoline
> 1123 Forest Avenue
> Portland, ME 04112
> sstoline at gmail.com
>
>         [[alternative HTML version deleted]]
>
> _______________________________________________
> R-sig-teaching at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-sig-teaching
>

	[[alternative HTML version deleted]]