kalman R code changes-parameters added