NN Training Process

xxxxxxxxxx

 

1

print(r.eval("""

2

library(datasets); library(nnet); data(longley)

3

features<-longley[,1:6]; targets<-longley[,7]

4

model<-nnet(Employed~.,longley,size=18,

5

            maxit=400,linout=T,decay=.01)

6

predictions<-predict(model,features,type='raw')

7

mean((targets-predictions)^2)

8

"""))

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages