NN<-nnet(survived~age+sex,data = train ,size=8,maxit=30, decay = 0.1, rang = 0.1, trace = TRUE ) print(NN$value)
I just make code using nnet in R