## Not run:
# # 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)
# ## End(Not run)
Run the code above in your browser using DataLab