subsetting data with the median position
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