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

[Steven Stoline]

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]]