NN Small Weight Decay

xxxxxxxxxx

 

1

print(r.eval("""

2

library('MASS'); library('nnet')

3

data(Boston); n<-dim(Boston)[1];

4

svg(filename="Rplots.svg",width=6,height=5,pointsize=12,

5

    onefile=T,family="courier",bg="white",

6

    antialias=c("default","none","gray","subpixel"))

7

model<-nnet(as.matrix(Boston[1:430,-14]),

8

            as.matrix(Boston[1:430,14]),

9

            size=52,trace=F,maxit=10^3,

10

            linout=T,decay=5*.1^4)

11

predictions<-predict(model,as.matrix(Boston[431:n,-14]),type="raw")

12

plot(as.matrix(Boston[431:n,14]),col="#3636ff",type="o",

13

     xlab='',ylab='',yaxt='n'); par(new=T)

14

plot(predictions,col="#ff3636",type="o",

15

     cex=1.3,ylab='Targets & Predictions'); dev.off()

16

"""))

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

---

Messages