temp solution for issue 1

address the error in dsPredict <- formulation.
However, i'm not sure i'm extracting what i'm supposed to