差分
このページの2つのバージョン間の差分を表示します。
両方とも前のリビジョン前のリビジョン次のリビジョン | 前のリビジョン最新のリビジョン両方とも次のリビジョン | ||
dm:2012 [2012/07/26 08:51] – [準備] watalu | dm:2012 [2012/08/08 11:00] – [テスト用コード] watalu | ||
---|---|---|---|
行 436: | 行 436: | ||
=== テスト用コード === | === テスト用コード === | ||
- | 下記のコードを走らせて、エラーが出なければ、とりあえず準備は整っていることになる。 | + | 下記のコードを走らせて、エラーが出なければ、 |
+ | |||
+ | * データの読み込み | ||
+ | * 必要なライブラリのインストール | ||
+ | |||
+ | が完了していて、準備は整っていることが確認できる。 | ||
< | < | ||
+ | plot(software.debugging$t, | ||
+ | | ||
+ | | ||
+ | library(gam) | ||
+ | software.debugging.gam <- gam(Nt~-1+bs(t), | ||
+ | data=software.debugging) | ||
+ | plot(software.debugging.gam, | ||
+ | | ||
+ | points(software.debugging$t, | ||
+ | | ||
+ | n <- dim(software.debugging)[1] | ||
software.debugging.diff <- data.frame(t=software.debugging$t[2: | software.debugging.diff <- data.frame(t=software.debugging$t[2: | ||
t.diff=software.debugging$t[2: | t.diff=software.debugging$t[2: | ||
行 467: | 行 483: | ||
print(fitted) | print(fitted) | ||
</ | </ | ||
- | |||
=== まずは不具合発見数の成長を眺める === | === まずは不具合発見数の成長を眺める === | ||