Thanks so much, David!



On Wed, May 12, 2010 at 2:52 PM, David Winsemius <dwinsemius@comcast.net>wrote:

>
> On May 12, 2010, at 5:31 PM, Changbin Du wrote:
>
>  fit.dimer <- rpart(as.factor(out) ~ ., method="class", data=p_df)
>>>
>>> fit.dimer$frame[, "var"]
>>>
>> [1] NE     WC     <leaf> TA     <leaf> <leaf> WG     WD     WW     WC
>> [11] <leaf> <leaf> <leaf> CT     <leaf> FC     <leaf> YG     QT     <leaf>
>> [21] <leaf> <leaf> NW     DP     DY     <leaf> SK     <leaf> <leaf> <leaf>
>> [31] <leaf>
>> 401 Levels: <leaf> AA AC AD AE AF AG AH AI AK AL AM AN AP AQ AR AS AT AV
>> ...
>> YY
>>
>>>
>>> at<-grep("<leaf>", fit.dimer$frame[, "var"], value=FALSE,
>>>
>> ignore.case=TRUE)
>>
>>>
>>> fit.dimer$frame[-at, "var"]
>>>
>> [1] NE WC TA WG WD WW WC CT FC YG QT NW DP DY SK
>> 401 Levels: <leaf> AA AC AD AE AF AG AH AI AK AL AM AN AP AQ AR AS AT AV
>> ...
>> YY
>>
>>>
>>> unique(fit.dimer$frame[-at, "var"])
>>>
>> [1] NE WC TA WG WD WW CT FC YG QT NW DP DY SK
>> 401 Levels: <leaf> AA AC AD AE AF AG AH AI AK AL AM AN AP AQ AR AS AT AV
>> ...
>> YY
>>
>>
>> HI, Dear R community,
>>
>> I tried to exact the variables used in tree construction, I used above
>> codes. Is there a way to remove the "401 levels......"?
>>
>
> Are you trying to get the number of levels to equal the present set, then:
>
> ?factor
>
> > af <- factor(letters[1:10] ,levels=letters[1:20])
> > af
>  [1] a b c d e f g h i j
> Levels: a b c d e f g h i j k l m n o p q r s t
> > factor(af)
>  [1] a b c d e f g h i j
> Levels: a b c d e f g h i j
>
> If you are trying to convert to a vector then:
>
> ?as.character
>
> --
> David.
>
>
>> How to add " "  around each variables? I want them to become "NW", "WC",
>> etc.
>>
>> Thanks so much!
>>
>>
>> --
>> Sincerely,
>> Changbin
>> --
>>
>>        [[alternative HTML version deleted]]
>>
>>
>> ______________________________________________
>> R-help@r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
> David Winsemius, MD
> West Hartford, CT
>
>


-- 
Sincerely,
Changbin
--

Changbin Du
DOE Joint Genome Institute
Bldg 400 Rm 457
2800 Mitchell Dr
Walnut Creet, CA 94598
Phone: 925-927-2856

	[[alternative HTML version deleted]]

