powered by
displayNnet(nnet.model, datamatrix, datalabels, subset = NULL, displayPoints = TRUE, steps = 100, alpha = 0.4, lwd = 1)
temp <- nnet::class.ind(irislabels) temp2 <- setDomain(irisdata[,1:2], 10) temp3 <- nnet::nnet(temp2, temp, size=10) displayNnet(temp3, temp2, temp)
Run the code above in your browser using DataLab