Added prediction of future returns.
function futuretest.R