Displaying 4 results from an estimated 4 matches for "rbut".
Did you mean:
but
2000 Sep 28
0
No subject
...utliers")
+ but.wid2 <- tkbutton(tt2, text="OK", command=function() tkdestroy(tt2))
+ tkpack(lab.wid2, but.wid2)
+ labp <- identify(xd$iv802, xd$AVGT, label=xd$FIPS)
+ dev.print(png, "templabs.png", width=600,height=600)
+ }
+
+ tclvar$choice <- 99
+ rbut.wid <- tkradiobutton(tt, text="Precipitation", value=0,
+ variable=tclvar$choice,
+ command=pptlabs)
+ rbut.wid2 <- tkradiobutton(tt, text="Temperature", value=1,
+ variable=tclvar$choice,
+ command=templabs)
+ but.wid <- tkbutton(tt, text="FINISHED", comm...
2000 Sep 28
1
tcltk package functionality
...quot;Identify Outliers")
but.wid2 <- tkbutton(tt2, text="OK", command=function() tkdestroy(tt2))
tkpack(lab.wid2, but.wid2)
labp <- identify(xd$iv802, xd$AVGT, label=xd$FIPS)
dev.print(png, "templabs.png", width=600,height=600)
}
tclvar$choice <- 99
rbut.wid <- tkradiobutton(tt, text="Precipitation", value=0,
variable=tclvar$choice,
command=pptlabs)
rbut.wid2 <- tkradiobutton(tt, text="Temperature", value=1,
variable=tclvar$choice,
command=templabs)
but.wid <- tkbutton(tt, text="FINISHED", command=function...
2000 Sep 29
1
Two tcltk questions and Re: tcltk package functionality
...39;s
tcltktst function -- shows an example:
tcltk.test <- function(x1=1:10, x2=10:1) {
library("tcltk")
# define first toplevel-widget
tt <- tktoplevel()
tktitle(tt) <- "Diagnostics"
label.widget <- tklabel(tt, text="Choose data for plot!")
rbut.wid1 <- tkradiobutton(tt, text="x1", value="0", variable="choice")
rbut.wid2 <- tkradiobutton(tt, text="x2", value="1", variable="choice")
but.done <- tkbutton(tt, text="FINISHED", command=function(){...
2000 Sep 29
0
Is it R or I?
...tkpack(but.lab2, but.wid22, but.wid23)
# wait until DONE is pressed
tclvar$done3 <- "F"
tkwait.variable("done3")
}
tclvar$choice <- 99
# THE PROGRAM STARTS DISK SWAPPING HERE...AND FINALLY DOES A
# SEGMENTATION FAULT...SOMETIMES....
rbut.wid1 <- tkradiobutton(tt, text="ActualVsPredicted", value=0,
variable="choice", command=actvsprd)
rbut.wid2 <- tkradiobutton(tt, text="ResidualPlot", value=1,
variable="choice", command=residplot)
but.plot <- tkbutton(tt, text="E...