shipunov (version 1.5)

BootKNN: Bootstrap with kNN

Description

How to bootstrap with kNN

Usage

BootKNN(data, classes, sub="none", nsam=4, nboot=1000, misclass=TRUE)

Arguments

data

Data frame to classify

classes

Character vector of class names

sub

Subsample to use (see example)

nsam

Number of training items from each level of grouping factor, default 4

nboot

Number of iterations

misclass

Calculate misclassification table?

Value

Returns all predictions as character matrix, each boot is a column

Details

Samples equal numbers ('nsam') of training items from each level of grouping factor.

Allows to use subset of data which will be used for sub-sampling of training data.

See Also

class::knn1

Examples

# NOT RUN {
iris.sub <- 1:nrow(iris) %in% seq(1, nrow(iris), 5)
iris.bootknn <- BootKNN(iris[, -5], iris[, 5], sub=iris.sub)
## calculate and plot stability
st <- apply(iris.bootknn, 1, function(.x) var(as.numeric(as.factor(.x))))
plot(prcomp(iris[, -5])$x, col=iris$Species, pch=ifelse(st == 0, 19, 1))
# }