# NOT RUN {
data_example <- read_data(datadea = Fortune500,
dmus = 1,
inputs = 2:4,
outputs = 5:6)
result <- model_basic(data_example)
plot(result)
# }
Run the code above in your browser using DataLab