Message-ID: <op.x91ez5jcuyeat7@zukd208>
Date: 2015-12-22T08:53:50Z
From: Peter Meißner
Subject: subsetting data with the median position
In-Reply-To: <CAHDp66BXNOQmutAyovPxEfNHP=fMRGT66ukr_HRFVJfP9R=M2g@mail.gmail.com>
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