library(kknn)
## Not run:
# data(miete)
# (train.con <- train.kknn(nmqm ~ wfl + bjkat + zh, data = miete,
# kmax = 25, kernel = c("rectangular", "triangular", "epanechnikov",
# "gaussian", "rank", "optimal")))
# plot(train.con)
# (train.ord <- train.kknn(wflkat ~ nm + bjkat + zh, miete, kmax = 25,
# kernel = c("rectangular", "triangular", "epanechnikov", "gaussian",
# "rank", "optimal")))
# plot(train.ord)
# (train.nom <- train.kknn(zh ~ wfl + bjkat + nmqm, miete, kmax = 25,
# kernel = c("rectangular", "triangular", "epanechnikov", "gaussian",
# "rank", "optimal")))
# plot(train.nom)
# ## End(Not run)
data(glass)
glass <- glass[,-1]
(fit.glass1 <- train.kknn(Type ~ ., glass, kmax = 15, kernel =
c("triangular", "rectangular", "epanechnikov", "optimal"), distance = 1))
(fit.glass2 <- train.kknn(Type ~ ., glass, kmax = 15, kernel =
c("triangular", "rectangular", "epanechnikov", "optimal"), distance = 2))
plot(fit.glass1)
plot(fit.glass2)
Run the code above in your browser using DataCamp Workspace