[R] tcltk command to figure out which widget is on focus (or clicked)

2006-08-25 Thread Vladislav Petyuk
Hi,
I'm making an interface, where a Tcl/Tk window have few listbox widgets.
I need to select separate parameters from separate listboxes.
It is clear how to get cursor selection value, once you know which listbox 
widget you clicked.
The problem is I can't figure out which one tcltk command to use to get an 
information which listbox widget is in focus (or clicked).
Thank you,
Vlad

__
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] tcltk command to figure out which widget in active or in focus

2006-08-24 Thread Vladislav Petyuk
Hi,
I'm making an interface, where a Tcl/Tk window have few listbox widgets.
I need to select separate parameters from separate listboxes.
It is clear how to get cursor selection value, once you know which listbox 
widget you clicked.
The problem is I can't figure out which one tcltk command to use to get an 
information which listbox widget I clicked.
Thank you,
Vlad

__
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] running median and smoothing splines for robust surface fitting

2006-03-15 Thread Vladislav Petyuk
Hi,
Are there any multidimenstional versions of runmed() and smooth.spline() 
functions?
I need to fit surface into quite noisy 3D data.

Below is an example (2D) of kind of fittings I do.
Thank you,
Vlad

#=generating complex x,y dataset with gaussian  uniform noise==
x - seq(1:1)
x2 - rep(NA,2*length(x))
y2 - rep(NA,2*length(x))
x2[seq(1,length(x2),2)] - x
x2[seq(2,length(x2),2)] - x
y2[seq(1,length(x2),2)] - sin(4*pi*x/length(x)) + rnorm(length(x))
y2[seq(2,length(x2),2)] - runif(length(x),min=-5,max=5)
#===

#=robust  smooth fit===
y3 - runmed(y2,51,endrule=median) #first round of running median
y4 - smooth.spline(x2,y3,df=10) #second round of smoothing splines
#===

#=ploting data==
plot(x2,y2,pch=19,cex=0.1)
points(x2,y3,col=red,pch=19,cex=0.1) #running median
points(y4,col=green,pch=19,cex=0.1) #smoothing splines
#===

__
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html