neuralnet 패키지를 이용한 신경망모형 적합

install.packages("neuralnet")

library(neuralnet)

data(infert)

infert.nnet <- neuralnet::neuralnet(case ~ age + parity + induced + spontaneous, data = infert,
                                                       hidden = 2,
                                                       err.fct = "ce",
                                                       linear.output = FALSE,
                                                       likelihood = TRUE)

plot(infert.nnet)

[출처] R 데이터마이닝, 나종화, 자유아카데미, p93~94