# NOT RUN {
data(iris)
model <- darch(Species ~ ., iris,
preProc.params = list(method = c("center", "scale")),
darch.unitFunction = c("sigmoidUnit", "softmaxUnit"),
darch.fineTuneFunction = "minimizeClassifier",
cg.length = 3, cg.switchLayers = 5)
# }
Run the code above in your browser using DataLab