差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

両方とも前のリビジョン前のリビジョン
次のリビジョン		前のリビジョン
dm:2012 [2012/07/26 08:51] – [準備] wataludm:2012 [不明な日付] (現在) – 外部編集 (不明な日付) 127.0.0.1
行 436: 行 436:
 === テスト用コード === === テスト用コード ===
  
-下記のコードを走らせて、エラーが出なければ、とりあえず準備は整っていることになる。+下記のコードを走らせて、エラーが出なければ、 
 + 
 +  * データの読み込み 
 +  * 必要なライブラリのインストール 
 + 
 +が完了していて、準備は整っていることが確認できる。
  
 <code> <code>
 +plot(software.debugging$t, software.debugging$Nt,
 +     type="l",
 +     xlab="Staff Days", ylab="Cumulative Faults")
 +library(gam)
 +software.debugging.gam <- gam(Nt~-1+bs(t),
 +                            data=software.debugging)
 +plot(software.debugging.gam,
 +     xlab="Staff Days", ylab="Cumulative Faults")
 +points(software.debugging$t, software.debugging$Nt,
 +       type="l")
 +n <- dim(software.debugging)[1]
 software.debugging.diff <- data.frame(t=software.debugging$t[2:n],  software.debugging.diff <- data.frame(t=software.debugging$t[2:n], 
                                       t.diff=software.debugging$t[2:n]-software.debugging$t[1:(n-1)],                                       t.diff=software.debugging$t[2:n]-software.debugging$t[1:(n-1)],
行 467: 行 483:
 print(fitted) print(fitted)
 </code> </code>
- 
 === まずは不具合発見数の成長を眺める === === まずは不具合発見数の成長を眺める ===