I was staring at my favorite trading algorithm the other day and I could swear it wanted to tell me something. I’ve made contact with it in the past, but our conversations pretty much ran along the lines of “What position are you in the market?” to which it would reply “long”, “short” or “flat”. And that was pretty much it. I would nod and it would just sit there. Like it wanted me to tell me more but was bound by secret oath to not say anything unless it was properly asked. It had a pale look on its face though, like it was holding out on me and didn’t like it.
I’m getting around to accepting that I have to lead this conversation. We’ve spoken in the past in several languages, but R has always been the best algorithm-to-human interface. I started out by picking the market.
“So White Bumblebee, do you want to talk about gold or silver?”
No reply. I felt a little cheap with that taunt so I started again.
“White Bumblebee, let’s talk about the gold market, and let’s use the GLD gold etf as a point of reference for our little chat.”
Still no reply, but I could see an almost imperceptible smile.
I didn’t really say “… let’s talk about the gold market …”. I said the following:
require("quantmod") getSymbols("GLD") GLD$fast <- BBands(( GLD[,4] ), n=10, sd=0.5) GLD$slow <- BBands(( GLD[,4] ), n=30, sd=0.5) GLD <- na.locf(GLD, na.rm=TRUE) position <- ifelse (GLD$mavg > GLD$up.1, 1, ifelse(GLD$mavg < GLD$dn.1, -1, NA)) position <- na.locf(position, na.rm=TRUE)
Here, we continue our conversation. And start building a meaningful relationship.
Me: White Bumblebee, how often have you been long versus short the yellow metal in the last few years?
hist(position, main="How often have you been long vs short in the last few years?", col="goldenrod")
Me: What does your daily distribution of returns look like?:
returns <- ROC(Cl(GLD))*position hist(returns, main="What do your daily returns look like?", col="darkslategray2")
Me: Ahem, without look-ahead bias, please?
returns <- Lag(ROC(Cl(GLD)))*position hist(returns, main="Ahem, without Look-Ahead Bias?", col="darkslategray")
Me: Got anything more intuitive?:
require(vioplot) returns <- na.locf(returns, na.rm=TRUE) vioplot(returns, names="Got anything more intuitive?", col="blue")
Me: Where do you see gold closing tomorrow?:
paste("What is the closing price for gold tomorrow?") trick_question <- Cl(GLD[NROW(GLD)+1, ]) trick_question
Error in `[.xts`(GLD, NROW(GLD) + 1, ) : subscript out of bounds
That last one was a trick question. I couldn't resist. Good thing for me that White Bumblebee knows how to take a joke.