library(nnet)
library(tcltk)


x<-sort(runif(300,0,2))
y<-0.2*x^5 - x^3 + 0.03*x^7 + 0.5*rnorm(300)
plot(x,y,col="red")
lines(x, 0.2*x^5-x^3+0.03*x^7,col="blue")


x<-data.frame(x)
names(x)<-c("X")



grafica<-function(...){
n<-nnet(y~X,size=as.numeric(tclvalue(SliderValue)),linout=T,data=x,maxint=40)
xg<-data.frame(seq(0,2,length=30))
names(xg)<-"X"

zg<-predict(n,xg)
lines(xg[,1],zg[,1],type="l",lw=2)
      }



sliderinicio=1;
slidermin=1;
slidermax=15;
sliderstep=1


tt <- tktoplevel()
SliderValue <- tclVar("sliderinicio")
SliderValueLabel <- tklabel(tt,text=as.character(tclvalue(SliderValue)))
tkgrid(tklabel(tt,text="Slider Value : "),SliderValueLabel,tklabel(tt,text="size"))
tkconfigure(SliderValueLabel,textvariable=SliderValue)
slider <- tkscale(tt, from=slidermin, to=slidermax,
                   showvalue=F, variable=SliderValue, resolution=sliderstep, 
                   command=grafica)

tkgrid(slider)
tkfocus(tt)