Skip to content

Instantly share code, notes, and snippets.

@threefeather

threefeather/Interest_rate_3.r

Created December 9, 2016 00:30
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save threefeather/1f707ca320c96b583badebd1e608b610 to your computer and use it in GitHub Desktop.
Save threefeather/1f707ca320c96b583badebd1e608b610 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Interest_rate_3.r
###try to predict the outliers
abm<-Ist[c(373,622,667,706,709),-c(1,4)]
abm.pre<-predict(model.season_final.re,abm)
data.frame(Date=Ist$Date[c(373,622,667,706,709)],Prediction=abm.pre, Real=Ist$Interest.Rate[c(373,622,667,706,709)])
Date Prediction Real
373 1981-01-01 7.250878 13.00
622 2001-10-01 -2.935886 2.02
667 2005-07-01 -1.307811 4.25
706 2008-10-01 11.563449 1.25
709 2009-01-01 4.705145 0.50
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment