1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/gafs.R, R/safs.R
\name{plot.gafs}
\alias{plot.gafs}
\alias{plot.safs}
\alias{ggplot.gafs}
\alias{ggplot.safs}
\title{Plot Method for the gafs and safs Classes}
\usage{
\method{plot}{gafs}(
x,
metric = x$control$metric["external"],
estimate = c("internal", "external"),
output = "ggplot",
...
)
\method{ggplot}{gafs}(data = NULL, mapping = NULL, ..., environment = NULL)
\method{ggplot}{safs}(data = NULL, mapping = NULL, ..., environment = NULL)
}
\arguments{
\item{x}{an object of class \code{\link{gafs}} or \code{\link{safs}}}
\item{metric}{the measure of performance to plot (e.g. RMSE, accuracy, etc)}
\item{estimate}{the type of estimate: either "internal" or "external"}
\item{output}{either "data", "ggplot" or "lattice"}
\item{\dots}{For \code{plot} methods, these are options passed
to \code{\link[lattice]{xyplot}}. For \code{ggplot} methods,
they are not used.}
\item{data, mapping, environment}{kept for consistency with
\code{ggplot} and are not used here.}
}
\value{
Either a data frame, ggplot object or lattice object
}
\description{
Plot the performance values versus search iteration
}
\details{
The mean (averaged over the resamples) is plotted against the search
iteration using a scatter plot.
When \code{output = "data"}, the unaveraged data are returned with columns
for all the performance metrics and the resample indicator.
}
\examples{
\dontrun{
set.seed(1)
train_data <- twoClassSim(100, noiseVars = 10)
test_data <- twoClassSim(10, noiseVars = 10)
## A short example
ctrl <- safsControl(functions = rfSA,
method = "cv",
number = 3)
rf_search <- safs(x = train_data[, -ncol(train_data)],
y = train_data$Class,
iters = 50,
safsControl = ctrl)
plot(rf_search)
plot(rf_search,
output = "lattice",
auto.key = list(columns = 2))
plot_data <- plot(rf_search, output = "data")
summary(plot_data)
}
}
\seealso{
\code{\link{gafs}}, \code{\link{safs}},
\code{\link[ggplot2]{ggplot}}, \code{\link[lattice]{xyplot}}
}
\author{
Max Kuhn
}
\keyword{hplot}
|
