I haven't updated this one in awhile — last time in September — most because there seem to be some issues with Mathematica's FinancialData[] function such that it's no longer pulling in the archived data that computes the projection.