How to plot the neural network found by train

问题

I am trying to generate a plot of the best neural network found using the following code with a very tiny dataset. This gives me a plot of the accuracy not the neural net.

my.grid <- expand.grid(.decay = c(0.5, 0.1), .size = c(5, 6, 7))
nn.cr <- train(Acceptance ~ Salt + Fat, data = df,
               method = "nnet", tuneGrid = my.grid)
plot(nn.cr)

来源：https://stackoverflow.com/questions/64824753/how-to-plot-the-neural-network-found-by-train