Home > R, Uncategorized > Happy Holidays and Best Wishes for 2012

Happy Holidays and Best Wishes for 2012

This is just a quick note to wish you and your family a very healthy and happy holidays and wonderful New Year! I hope you enjoyed reading my blog and thank you for your comments and emails.

Here is a short R code that implements an interesting idea from the Charting the Santa Claus Rally post by Woodshedder. I will plot and compare the SPY performance this December versus average performance in previous Decembers.

```# Load Systematic Investor Toolbox (SIT)
setInternet2(TRUE)
con = gzcon(url('https://github.com/systematicinvestor/SIT/raw/master/sit.gz', 'rb'))
source(con)
close(con)

#*****************************************************************
#******************************************************************
tickers = spl('SPY')

data <- new.env()
getSymbols(tickers, src = 'yahoo', from = '1970-01-01', env = data, auto.assign = T)
bt.prep(data, align='remove.na', dates='1970::2011')

#*****************************************************************
# Prepare Data for the plot
#******************************************************************
prices = data\$prices
n = len(tickers)
ret = prices / mlag(prices) - 1

# find prices in December
dates = index(prices)
years = date.year(dates)
index = which(date.month(dates) == 12)

# rearrange data in trading days
trading.days = sapply(tapply(ret[index,], years[index], function(x) coredata(x)), function(x) x[1:22])

# average return each trading days, excluding current year

# cumulative
current.year = 100 * ( cumprod(1 + current.year) - 1 )

#*****************************************************************
# Create Plot
#******************************************************************
par(mar=c(4,4,1,1))
xlab = 'Number of Trading Days in December',
ylab = 'Avg % Profit/Loss'
)
lines(current.year, type='b', col=2)
grid()
plota.legend('Avg SPY,SPY Dec 2011', 1:2)
```

Hope this year will not disappoint and we will see the rally towards the year end.

If you want to find average performance in the other months, I recommend reading Trading Calendar article by CXO Advisory.

To view the complete source code for this example, please have a look at the bt.december.trading.test() function in bt.test.r at github.

Categories: R, Uncategorized
1. December 29, 2011 at 4:49 pm | #1

Dear ” Systematic Investor”,

I don’t know if you remember me – Carlos from Brazil ( you sent me a copy of the backtesting package by mail – and I am here to wish you all the best for the holidays. I am sorry if I didn’t send it before the holidays, but I hope it is not too late.

Thanks for your assistance and want you to know that your work really helps me tremendously. Thank you so much for your fantastic work.

May 2012 brings you all the best in your personal and professional life

Kind regards

Carlos

1. May 22, 2012 at 3:27 am | #1