R中神经网络调用的nnet包，想要做没有隐层的实验，该如何甚至nnet中的参数？