Thanks so much, David!
On Wed, May 12, 2010 at 2:52 PM, David Winsemius <[email protected]>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]] >> >> >> ______________________________________________ >> [email protected] 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]] ______________________________________________ [email protected] 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.
