if (FALSE) {
# training a neural network using the attribues H and T as predictors,
# with 2 hidden layers of 2 nodes each and computing 2 replications
r.ann <- train.ann(var = c("H", "T", "L", "Z"), hidden = c(2, 2), rep = 2)
# using the ann to compute the interaction
q <- quarry(geological.context = 2, hydrogeological.context = 4,
piezometric.context = 1, quarry.position = 4,
production.catchment = 4, quality.catchment = 3)
compute.interaction(q, method="ann", ann = r.ann$ann)
}
Run the code above in your browser using DataLab