# \donttest{
mod <- RSNNS::mlp(simdata[, c("X1", "X2", "X3")], simdata[, "Y"],
maxit = 1000, size = 15, linOut = TRUE)
sens <- SensAnalysisMLP(mod, trData = simdata,
output_name = "Y", plot = FALSE)
AlphaSensCurve(sens$raw_sens[[1]][,1])
# }
Run the code above in your browser using DataLab