Displaying 2 results from an estimated 2 matches for "tmpplt".
2006 Jul 29
1
fancier plotting
...###########
# ploting #
###########
library(tkrplot)
#just the turning points
L <- length(I0); #points to plot
tt <- tktoplevel()
left <- tclVar(1)
oldleft <- tclVar(1)
right <- tclVar(L)
cury <- tclVar(' ')
curx <- NA
tmpusr <- numeric(4)
tmpplt <- numeric(4)
f1 <- function(){
lleft <- as.numeric(tclvalue(left))
rright <- as.numeric(tclvalue(right))
x <- seq(lleft,rright,by=1)
par(bg='black', fg='green', col='white', col.axis='white',
col.lab='magenta', col.main='blu...
2006 Apr 17
0
autoscall the y-axis
...ank you
#**************** code starts ****************
library(tkrplot)
L <- length(myData);
tt <- tktoplevel()#cursor='crosshair')
left <- tclVar(1)
oldleft <- tclVar(1)
right <- tclVar(L)
cury <- tclVar(' ')
curx <- NA
tmpusr <- numeric(4)
tmpplt <- numeric(4)
f1 <- function(){
lleft <- as.numeric(tclvalue(left))
rright <- as.numeric(tclvalue(right))
x <- seq(lleft,rright,by=1)
par(bg='black', fg='green', col='white', col.axis='white',
col.lab='magenta', col.main=&...