Sped up ODES using apply rather than aaply