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
86
87
88
89
90
91
92
93
94
95
96
97
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/bagFDA.R
\name{bagFDA}
\alias{bagFDA}
\alias{print.bagFDA}
\alias{bagFDA.default}
\alias{bagFDA.formula}
\title{Bagged FDA}
\usage{
bagFDA(x, ...)
\method{bagFDA}{default}(x, y, weights = NULL, B = 50, keepX = TRUE, ...)
\method{bagFDA}{formula}(
formula,
data = NULL,
B = 50,
keepX = TRUE,
...,
subset,
weights = NULL,
na.action = na.omit
)
\method{print}{bagFDA}(x, ...)
}
\arguments{
\item{x}{matrix or data frame of 'x' values for examples.}
\item{\dots}{arguments passed to the \code{mars} function}
\item{y}{matrix or data frame of numeric values outcomes.}
\item{weights}{(case) weights for each example - if missing defaults to 1.}
\item{B}{the number of bootstrap samples}
\item{keepX}{a logical: should the original training data be kept?}
\item{formula}{A formula of the form \code{y ~ x1 + x2 + ...}}
\item{data}{Data frame from which variables specified in 'formula' are
preferentially to be taken.}
\item{subset}{An index vector specifying the cases to be used in the
training sample. (NOTE: If given, this argument must be
named.)}
\item{na.action}{A function to specify the action to be taken if 'NA's are
found. The default action is for the procedure to fail. An
alternative is na.omit, which leads to rejection of cases
with missing values on any required variable. (NOTE: If
given, this argument must be named.)}
}
\value{
A list with elements
\item{fit }{a list of \code{B} FDA fits}
\item{B }{the number of bootstrap samples}
\item{call }{the function call}
\item{x }{either \code{NULL} or the value of \code{x}, depending on the
value of \code{keepX}}
\item{oob}{a matrix of performance estimates for each bootstrap sample}
}
\description{
A bagging wrapper for flexible discriminant analysis (FDA) using multivariate adaptive regression splines (MARS) basis functions
}
\details{
The function computes a FDA model for each bootstap sample.
}
\examples{
library(mlbench)
library(earth)
data(Glass)
set.seed(36)
inTrain <- sample(1:dim(Glass)[1], 150)
trainData <- Glass[ inTrain, ]
testData <- Glass[-inTrain, ]
set.seed(3577)
baggedFit <- bagFDA(Type ~ ., trainData)
confusionMatrix(data = predict(baggedFit, testData[, -10]),
reference = testData[, 10])
}
\references{
J. Friedman, ``Multivariate Adaptive Regression Splines'' (with discussion) (1991). Annals of Statistics, 19/1, 1-141.
}
\seealso{
\code{\link[mda]{fda}}, \code{\link{predict.bagFDA}}
}
\author{
Max Kuhn (\code{bagFDA.formula} is based on Ripley's \code{nnet.formula})
}
\keyword{regression}
|
