search for: chob

...} mapply(function(name, value) {assign(name,value,envir=lenv)}, names(list(yCoordinatesOfLines=yCoordinatesOfLines,...)), list(yCoordinatesOfLines=yCoordinatesOfLines,...)) exp <- parse(text=gsub("list","add_horizontalline", as.expression(substitute(list(x=current.chob(), yCoordinatesOfLines=yCoordinatesOfLines, ...)))), srcfile=NULL) plot_object <- current.chob() lenv$xdata <- plot_object$Env$xdata # plot_object$set_frame(sign(on)*abs(on)+1L) plot_object$set_frame(2*on) plot_object$add(exp,env=c(lenv, plot_object$Env),expr=TRUE) plo...

Hello, all-- I am having some fun playing with the graphing in quantmod-- very nice! I am writing a function to calculate (and hopefully plot) support and resistance lines, but the usual plot call of "abline(h=value)" does not seem to work. Here's my code: require(quantmod) AAPL<-getYahooData("AAPL") candleChart(AAPL,subset="last 3

###### ## ## ###### ## ### ## ## ###### ## # ## ## ## ## ### ## ###### . ## ## . ######. Secure Networks Inc. Security Advisory March 2, 1997