jak w temacie :)
irc: freenode.net in #torgdevs
irc: freenode.net in #torgdevs
irc: freenode.net in #torgdevs
y=c(160,153,139,142,129,121,105,83,56,25)
liniowy
t=1:(length(y))
y_ts<-ts(y, start=2000, frequency=1)
str(y); str(y_ts, vec.len=2); str(t)
vec.len=2
(trend_liniowy<-lm(y_ts~t))
plot(y, type="p")
(t<-ts(11:14, start=2010, frequency=1))
(prognoza<-predict.lm(trend_liniowy, newdata=t, se.fit=t, interval="prediction", level=0.95))
wykładniczy
y=c(160,153,139,142,129,121,105,83,56,25)
t=1:(length(y))
y<-log(y)
y_ts<-ts(y,start=2000, frequency=1)
t_ts<-ts(t,start=2000, frequency=1)
trend<-lm(y_ts~t)
new<-ts(11:14,start=2011, frequency=1)
new<-data.frame(t=new)
prognoza<-predict(trend,new,se.fit=T,interval="prediction",level=0.95)
irc: freenode.net in #torgdevs
Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)
Zakładki