在neuralnet mlp r上使用wheights

我正在尝试如下训练神经网络：

neuralnet(a ~ b + c + d + e ,data = df1, hidden = c(10,10), lifesign = "full")

---

它工作得很好，但我必须纠正df的歪斜，它有99%的错误，1%的正确。nnet（）函数有一个wheights向量来实现这一点，neuralnet（）有类似的功能吗？如果没有，我还能怎么解决这个问题呢？

我现在就这样解决了，但仍然对软件包提供的任何工具感兴趣：

factor.list <- lapply(1:factor, function(x){df1[df1$a == 0,]})
factor.df <- do.call(rbind, factor.list)
model2 <- neuralnet(a ~ b + c + d + e ,data = rbind(df1,factor.df), hidden = c(10,10), lifesign = "full")

factor.list