library(tcltk)
library(MASS)
data<-cbind(rnorm(100))



library(tcltk)

grafica<-function(...){
plot(density(data, kernel="g",bw=as.numeric(tclvalue(Slider2Value))),xlim=c(-5,5),ylim=c(0,1))
abline(v=0,col="red")
rug(data)
                       }

grafica1<-function(...){
data<<-cbind(rnorm(100))
plot(density(data, kernel="g",bw=as.numeric(tclvalue(Slider2Value))),xlim=c(-5,5),ylim=c(0,1))
abline(v=0,col="red")
rug(data)
points(seq(-5,5,0.1),dnorm(seq(-5,5,0.1)),type="l",col="blue")
                       }


slider1inicio=100;
slider1min=100;
slider1max=1000;
slider1step=1


slider2inicio=1;
slider2min=0.01;
slider2max=4;
slider2step=0.01



tt <- tktoplevel()
Slider1Value <- tclVar("slider1inicio")
Slider1ValueLabel <- tklabel(tt,text=as.character(tclvalue(Slider1Value)))
Slider2Value <- tclVar("slider2inicio")
Slider2ValueLabel <- tklabel(tt,text=as.character(tclvalue(Slider2Value)))


tkgrid(tklabel(tt,text=" otra muestra: "),tklabel(tt,text=""))
tkconfigure(Slider1ValueLabel,textvariable=Slider1Value)
slider1 <- tkscale(tt, from=slider1min, to=slider1max,
                   showvalue=F, variable=Slider1Value, resolution=slider1step, 
                   command=grafica1)

tkconfigure(Slider2ValueLabel,textvariable=Slider2Value)
slider2 <- tkscale(tt, from=slider2min, to=slider2max,
                   showvalue=F, variable=Slider2Value, resolution=slider2step, 
                   command=grafica)

tkgrid(slider1)
tkgrid(tklabel(tt,text="h : "),Slider2ValueLabel)
tkgrid(slider2)

tkfocus(tt)