Raw File
Tip revision: 893e2d90fd8569e5f0295334c9a1844e95d7911b authored by Piotr Romanski on 11 April 2009, 00:00 UTC
version 0.18
Tip revision: 893e2d9
\title{ Greedy search }
  The algorithms for searching atrribute subset space.
  \item{attributes}{ a character vector of all attributes to search in }
  \item{}{ a function taking as first parameter a character vector of all attributes and returning a numeric indicating how important a given subset is }
  These algorithms implement greedy search. At first, the algorithms expand starting node, evaluate its children and choose the best one which becomes a new starting node. This process goes only in one direction. \code{} starts from an empty and \code{} from a full set of attributes.
  A character vector of selected attributes.
\author{ Piotr Romanski }
\seealso{ \code{\link{}}, \code{\link{}}, \code{\link{}} }
  evaluator <- function(subset) {
    #k-fold cross validation
    k <- 5
    splits <- runif(nrow(iris))
    results = sapply(1:k, function(i) {
      test.idx <- (splits >= (i - 1) / k) & (splits < i / k)
      train.idx <- !test.idx
      test <- iris[test.idx, , drop=FALSE]
      train <- iris[train.idx, , drop=FALSE]
      tree <- rpart(as.simple.formula(subset, "Species"), train)
      error.rate = sum(test$Species != predict(tree, test, type="c")) / nrow(test)
      return(1 - error.rate)
  subset <-[-5], evaluator)
  f <- as.simple.formula(subset, "Species")

back to top