Displaying 2 results from an estimated 2 matches for "pptlabs".
Did you mean:
optabs
2000 Sep 28
0
No subject
...e greatly
> appreciated....
>
> "tcltktst" <-
+ function(x="") {
+ xd <- read.table(x, header=T)
+ library("tcltk")
+
+ tt <- tktoplevel()
+ tktitle(tt) <- "Diagnostics"
+ label.widget <- tklabel(tt, text="Choose!")
+
+ pptlabs <- function() {
+ plot(xd$iv802, xd$PPT)
+ 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(...
2000 Sep 28
1
tcltk package functionality
...tion...Any help will be greatly
appreciated....
Prasad
"tcltktst" <-
function(x="") {
xd <- read.table(x, header=T)
library("tcltk")
tt <- tktoplevel()
tktitle(tt) <- "Diagnostics"
label.widget <- tklabel(tt, text="Choose!")
pptlabs <- function() {
plot(xd$iv802, xd$PPT)
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))
tkp...