Hello, I am trying to write a tcltk based program that plots/manipulates xts/xoo time series objects.
I have the code I used from ## http://bioinf.wehi.edu.au/~wettenhall/RTclTkExamples/tkrplot.html : ## require(quantmod) require(tcltk) library(tkrplot) Sys.setenv(TZ="GMT") getSymbols("^GSPC", from = "1960-01-01") Myhscale <- 2.5 # Horizontal scaling Myvscale <- 1.25 # Vertical scaling plotFunction <- function(x) { params <- par(bg="white") plot(x,main="A time series") par(params) } tt <- tktoplevel() tkwm.title(tt,"Time Series") img <- tkrplot(tt,fun=plotFunction((Cl(GSPC))),hscale=Myhscale,vscale=Myvscale) tkgrid(img) ## Although the output looks fine, I get the following message: <Tcl> > img <- > tkrplot(tt,fun=plotFunction((Cl(GSPC))),hscale=Myhscale,vscale=Myvscale) Error in try(fun()) : could not find function "fun" > tkgrid(img) <Tcl> Is this a serious problem with the code? Thanks in advance, Costas ______________________________________________ R-help@r-project.org 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.
