如何在r的nnfor程序包中获取mlp层神经元的权重？

Question

我确实通过nnfor包通过mlp进行了预测，我对结果感到满意，但我需要绘制具有权重神经元的mlp图。

fit.mlp <- mlp(infl.train,hd = 3, hd.max =NULL, difforder=NULL,det.type = "bin",
               allow.det.season = TRUE,outplot = TRUE,reps = 100,
               comb = "median")

plot(fit.mlp)

通过简单的绘图功能，我得到了下图：

它仅提供mlp节点，但不提供这些节点上的权重，请向我建议一些命令，该命令可用于在预测单变量序列时获得r的nnfor包中具有权重的神经元。