Displaying 2 results from an estimated 2 matches for "templab".
Did you mean:
templat
2000 Sep 28
0
No subject
...l(tt2, text="Identify Outliers")
+ but.wid2 <- tkbutton(tt2, text="OK", command=function() tkdestroy(tt2))
+ tkpack(lab.wid2, but.wid2)
+ labp <- identify(xd$iv802, xd$PPT, label=xd$FIPS)
+ dev.print(png, "pptlabs.png", width=600,height=600)
+ }
+
+ templabs <- function() {
+ plot(xd$iv802, xd$AVGT)
+ abline(0,1)
+ tt2 <- tktoplevel()
+ tktitle(tt2) <- "Identify Outliers"
+ lab.wid2 <- tklabel(tt2, text="Identify Outliers")
+ but.wid2 <- tkbutton(tt2, text="OK", command=function() tkdestro...
2000 Sep 28
1
tcltk package functionality
...<- tklabel(tt2, text="Identify Outliers")
but.wid2 <- tkbutton(tt2, text="OK", command=function() tkdestroy(tt2))
tkpack(lab.wid2, but.wid2)
labp <- identify(xd$iv802, xd$PPT, label=xd$FIPS)
dev.print(png, "pptlabs.png", width=600,height=600)
}
templabs <- function() {
plot(xd$iv802, xd$AVGT)
abline(0,1)
tt2 <- tktoplevel()
tktitle(tt2) <- "Identify Outliers"
lab.wid2 <- tklabel(tt2, text="Identify Outliers")
but.wid2 <- tkbutton(tt2, text="OK", command=function() tkdestroy(tt2))
t...