| ページ | 誤 | 正 |
| p.14 | 1つに変数 | 一つの変数 |
| p.17 | < c-( ) | <-c ( ) |
| p.52 |  |  |
| p.75 | ヒットか0本から | ヒットが0本から |
| p.75 | 「1,2,3,・・10」のベクトル | 「0,1,2,3,・・10」のベクトル |
| p.79 | x <- seq(,20,0.1) | (不要) |
| p.81 |  |  |
| p.86 | F=1.0369 | F=0.8832 |
| p.88 | 表の赤字部分の訂正 |
| 男性 | 男性 | 女性 | 男性 | 女性 | 女性 | 女性 | 男性 | 女性 | 女性 |
| B | B | C | B | H | B | C | C | C | H |
| 女性 | 男性 | 男性 | 男性 | 男性 | 女性 | 女性 | 男性 | 女性 | 男性 |
| C | H | B | H | C | B | C | C | C | H |
| 男性 | 男性 | 女性 | 女性 | 女性 | 男性 | 女性 | 男性 | 男性 | 男性 |
| H | B | C | C | C | C | H | C | H | B |
|
| p.93 | 郊外では、ハンバーバーチェーンAが | 郊外では、ハンバーガーチェーンAが |
| p.96 | “ 7:日曜日,” 7:日曜日” | “ 7:日曜日”,“ 7:日曜日” |
| p.104 | interaction.plot(yobichiku,curiage) | interaction.plot(yobi,chiku,curiage) |
| p.108 | 表の赤字部分の訂正 |
| 98 | 123 | 142 | 124 | 89 | 109 | 118 | 130 | 127 | 98 |
| 127 | 95 | 134 | 110 | 135 | 118 | 76 | 125 | 98 | 110 |
|
| p.109 | kurigae | kuriage |
| p.116 | 表の赤字部分の訂正 |
| 人 | 価格 | ボリューム | 速さ | サービス | クーポン | 近さ | 雰囲気 |
| 1 | 5 | 4 | 2 | 2 | 4 | 2 | 1 |
| 2 | 3 | 5 | 5 | 4 | 5 | 1 | 2 |
| 3 | 2 | 3 | 3 | 4 | 2 | 4 | 5 |
| 4 | 3 | 5 | 3 | 2 | 4 | 2 | 4 |
| 5 | 2 | 1 | 3 | 4 | 2 | 5 | 4 |
| 6 | 4 | 5 | 2 | 3 | 5 | 4 | 2 |
| 7 | 1 | 4 | 5 | 2 | 2 | 5 | 4 |
| 8 | 2 | 4 | 1 | 1 | 5 | 4 | 5 |
| 1 | 2 | 2 | 5 | 4 | 1 | 4 | 4 |
| 1 | 2 | 1 | 5 | 5 | 1 | 5 | 5 |
|
| p.116 | 人 <- c(1,2,3,4,5,6,7,8,9,10) | (不要) |
| p.116 | 価格 <- c(5,3,2,3,2,4,1,4,2,2) 雰囲気 <- c(1,2,5,4,4,2,2,4,2,1,5) | 価格 <- c(5,3,2,3,2,4,1,2,2,2) 雰囲気 <- c(1,2,5,4,4,2,4,4,5,4,5) |
| p.124 | MaQuitty法(mcquiity) | McQuitty法(mcquiity) |
| p.124 | 補足 |
「R」エディタで
| Rownames(chen) <- c( “札幌”,“仙台”・・・・“那覇”) |
などのラベルをつけると見やすくなります。 |
| p.125 | plot(result4,main=“重心法”) | plot(result4,main=“重心法”)
par(mfrow=c(2,2)) |
| p.128 |
colnames(launch) <- c(“ハンバーガー”,“牛丼”,“コンビニ弁当”,
“ファミリーレストラン”,“レストラン”,“弁当”)
|
| rownames(launch) <- c("1","2","3","4","5","6","7","8","9","10") |
|
colnames(luunch) <- c(“ハンバーガー”,“牛丼”,“コンビニ弁当”,
“ファミリーレストラン”,“レストラン”,“弁当”) |
| rownames(luunch) <- c("1","2","3","4","5","6","7","8","9","10") |
|
| p.130 | par-> (mfrow=c(2,2)) | par(mfrow=c(2,2)) |
| p.153 | 効果が多きい。 | 効果が大きい。 |
| p.153 | urigae | uriage |
| p.153 | help(hist) | (不要) |
| p.156 |
|
rownames(lunch) <- c("1","2","3","4","5","6","7","8","9","10") |
|
|
rownames(lunch) <- c("1","2","3","4","5","6","7","8","9","10") |
|
| p.159 | 累積確立 | 累積確率 |