2008年07月28日
課題について
サンプルをあげておきます。
課題１ 横断面データの例
課題２ 時系列データの例
図は、できるだけサムネイル表示にするか、投稿記事のエリア内に入るようにすると見やすくて助かります。
使用するデータ及び出力結果はサンプルと全く同じではなく、データを１変数でもいいから差し替えるなりして、違う結果になるようにしてください。サンプルと同じ結果になる場合は、コメントを書き換えるように。
課題１ 横断面データの例
課題２ 時系列データの例
図は、できるだけサムネイル表示にするか、投稿記事のエリア内に入るようにすると見やすくて助かります。
使用するデータ及び出力結果はサンプルと全く同じではなく、データを１変数でもいいから差し替えるなりして、違う結果になるようにしてください。サンプルと同じ結果になる場合は、コメントを書き換えるように。
この記事へのコメント
x<-read.table("clipboard",header=T)
ty1<-ts(x,start=c(1978,1),freq=12)
## start=c(xxxx,1) 何年から始まるか注意
sarima01<-arima(ty1,order=c(2,1,2),seasonal=list(order=c(1,1,1),period=12))
sarima01
pred1<-predict(sarima01,n.ahead=24)
xt<-c(2000,2009)
## グラフに出力する範囲を指定する
y1es<-pred1$pred
sig1<-pred1$se
tyl<-y1es-2*sig1
tyu<-y1es+2*sig1
yl<-c(min(ty1,tyl),max(ty1,tyu))
plot(ty1,xlim=xt,ylim=yl)
lines(y1es)
lines(tyl,lty=2,col=4)
lines(tyu,lty=2,col=4)
Posted by ryu908
at 2008年07月28日 13:20
at 2008年07月28日 13:20061107H 安谷屋 邦尚 課題１横断面データ
Posted by e061107 at 2008年07月28日 14:05
at 2008年07月28日 14:05今日は終わりませんでした。次やります
Posted by 061207d 城間遼太 at 2008年07月28日 14:20
今日では終わりませんでした。
Posted by １ゆう５ at 2008年07月28日 14:21
at 2008年07月28日 14:21061107H 安谷屋 邦尚 課題②
Posted by e061107 at 2008年07月28日 14:22
at 2008年07月28日 14:22課題１終了
Posted by e051108 at 2008年07月28日 14:23
at 2008年07月28日 14:23次回やります。
Posted by e051268 at 2008年07月28日 14:23
at 2008年07月28日 14:23728 061308j
宮城望 課題1が終わりました。
Posted by e061308 at 2008年07月28日 14:24
at 2008年07月28日 14:247月28日課題終了です。
Posted by e061246 at 2008年07月28日 14:25
at 2008年07月28日 14:25来週やります
Posted by e061216 at 2008年07月28日 14:26
at 2008年07月28日 14:26来週持ち越しです。
Posted by kyanabi at 2008年07月28日 14:43
まだ途中なので来週仕上げます。
Posted by e061128 at 2008年07月28日 21:33
at 2008年07月28日 21:33課題終了
Posted by e051103 at 2008年08月01日 12:02
at 2008年08月01日 12:02学籍番号 07CB038
Posted by 07CB038 at 2009年04月13日 14:01