Thank you very much for your helps steve
On Tue, Dec 22, 2015 at 3:53 AM, Peter Meissner < peter.meiss...@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 <sstol...@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@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-sig-teaching > -- Steven M. Stoline 1123 Forest Avenue Portland, ME 04112 sstol...@gmail.com [[alternative HTML version deleted]] _______________________________________________ R-sig-teaching@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-sig-teaching