Re: [R] Help to find only one class and differennt class

From: Muhammad Subianto <msubianto_at_gmail.com>
Date: Wed 21 Dec 2005 - 21:15:33 EST

Thanks to Jim Holtman. This is very usefull to improve my script. Best, Muhammad Subianto

On this day 20/12/2005 17:19, jim holtman wrote:

>try this:
>
>set.seed(1)
># generate some test data
>x.1 <- data.frame(seg=sample(1:6,20,T), class=sample(c('good',
>'poor'),20,T))
>x.1
>(x.sp <- split(x.1, x.1$seg))
># test each segment for occurance of class.
>lapply(x.sp, function(.seg){
> if (all(.seg$class == 'good')) return('good')
> if (all(.seg$class == 'poor')) return('poor')
> return("good & poor")
>})
>
>
>
>On 12/20/05, Muhammad Subianto <msubianto@gmail.com> wrote:
>
>
>>Dear R users,
>>I have a problem, which I can not find a solution.
>>Probably someone could help me?
>>I have a result from my classification, like this
>>
>>
>>
>>>credit.toy
>>>
>>>
>>[[1]]
>> age married ownhouse income gender class
>>1 20-30 no no low male good
>>2 40-50 no yes medium female good
>>
>>[[2]]
>> age married ownhouse income gender class
>>1 20-30 yes yes high male poor
>>2 20-30 no yes high male good
>>3 20-30 yes no low female poor
>>4 60-70 yes yes low female poor
>>5 60-70 no yes high male poor
>>
>>[[3]]
>> age married ownhouse income gender class
>>1 30-40 yes no high male good
>>2 20-30 no yes medium female good
>>
>>[[4]]
>> age married ownhouse income gender class
>>1 50-60 yes yes low female poor
>>2 40-50 yes no medium male poor
>>3 20-30 no no high female poor
>>
>>[[5]]
>> age married ownhouse income gender class
>>1 40-50 no yes low female good
>>2 60-70 no yes medium male poor
>>3 30-40 yes no high female poor
>>
>>[[6]]
>> age married ownhouse income gender class
>>1 30-40 no no medium female good
>>2 50-60 yes yes high female good
>>3 30-40 yes no high female good
>>
>>
>>
>>>credit.toy[[5]]$class
>>>
>>>
>>[1] good poor poor
>>Levels: good poor
>>
>>
>>How can I count there are only one class and differennt class.
>>I need the result something like
>>good class : 1,3,6
>>poor class : 4
>>good and poor class : 2,5
>>
>>Thanks in advance.
>>Sincerely, Muhammad Subianto
>>
>>______________________________________________
>>R-help@stat.math.ethz.ch mailing list
>>https://stat.ethz.ch/mailman/listinfo/r-help
>>PLEASE do read the posting guide!
>>http://www.R-project.org/posting-guide.html
>>
>>
>>
>
>
>
>--
>Jim Holtman
>Cincinnati, OH
>+1 513 247 0281
>
>What the problem you are trying to solve?
>
>
>



R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Wed Dec 21 21:23:23 2005

This archive was generated by hypermail 2.1.8 : Wed 21 Dec 2005 - 23:48:49 EST