[R] i am not getting time series prediction results?

[sagarnikam123]

i have attached file,
http://r.789695.n4.nabble.com/file/n4542543/1BHP_A.txt 1BHP_A.txt 
i just want to validate predicting results, i give less 10 digits for
prediction & compare results it with previous input data(input file)

> i<-read.table(file.choose())  #attached file taking
> i<-i$V1
> length(i)
[1] 44
> j<-i[1:34]
> pre<-predict(ar(i),n.ahead=10)
> ts.plot(ts(j),pre$pred,col=c(1,5))
> pre$pred
Time Series:
Start = 45 
End = 54 
Frequency = 1 
 [1] -0.01136364 -0.01136364 -0.01136364 -0.01136364 -0.01136364
 [6] -0.01136364 -0.01136364 -0.01136364 -0.01136364 -0.01136364

prediction gives similar values,i.e. straight line.
why this so?

--
View this message in context: http://r.789695.n4.nabble.com/i-am-not-getting-time-series-prediction-results-tp4542543p4542543.html
Sent from the R help mailing list archive at Nabble.com.