<p>※2018年9月16日にて更新停止
2016/6/30のメンテで実装された対潜先制爆雷攻撃に関する検証を投稿するスレッドです。
</p><p>運営ツイート:https://twitter.com/KanColle_STAFF/status/748451253374464001 https://twitter.com/KanColle_STAFF/status/748453517237456900
</p>
(アドミンが編集しました)
<figcaption> <p class="caption">砲撃支援のLvの違いによる命中率の変化の有無</p> </figcaption></figure><p>
<figcaption> </figcaption></figure><p><span style="font-weight:normal;">Shun kancolle氏の自陣形別の雷撃命中検証(cond47-49)について、</span><span style="font-weight:normal;">カイ二乗検定による多重比較をおこなった。</span>
</p><p>・1群:単縦陣
</p><p>・2群:複縦陣
</p><p>・3群:梯形陣
</p><p>・4群:輪形陣
</p><p>・5群:単横陣
</p>
<figure class="article-thumb tleft show-info-icon" style="width: 180px">
<figcaption> </figcaption></figure>1群vs2群のみ調整後p値=0.195で帰無仮説採択。
<p>他はすべて調整後p値<0.05で帰無仮説棄却。
</p><p>以上より、自陣形別命中率は
</p><p>(単縦陣、複縦陣)>梯形陣>輪形陣>単横陣の順に命中率が低下していると考えられる。
</p>
<figcaption> </figcaption></figure><figure class="article-thumb tright show-info-icon" style="width: 180px">
<figcaption> </figcaption></figure>
<figcaption> </figcaption></figure></span>
<figure class="article-thumb tright show-info-icon" style="width: 180px">
<figcaption> </figcaption></figure><figure class="article-thumb tright show-info-icon" style="width: 180px">
<figcaption> </figcaption></figure>
<figcaption> </figcaption></figure><figure class="article-thumb tright show-info-icon" style="width: 180px">
<figcaption> </figcaption></figure>うみゃさんの推定から陣形補正が乗算の可能性があるということで、敵回避も陣形補正の乗算に含めました。
<p>データはうみゃさんの推定と同じものを使用しています。最後の結果の画像だけ貼り付けています。
</p><p>最もフィットしていたモデルにステップをかけ、得られたモデルからp値が0.55あった陣形2を除いた命中推定式を、以下に示します。
</p><p>命中率=(0.023 - 0.0079 × 陣形2) × √検証艦Lv + 0.028 × √雷装 + 0.0058 × 装備命中 + 0.0054 × I(改修1 + 改修2) + (0.0011 + 0.00035 × 陣形1) × 運 - 0.011 × 陣形1 -(0.0060 - 0.00078 × 陣形2) × 敵回避 + 0.58
</p>
data <- read.csv('C:\\Users\\Master\\Dropbox\\Kancolle\\5-4sensui5.csv', fileEncoding = 'UTF-8');
data <- data.frame(data, 雷装 = data$素雷装 + data$装備雷装, 陣形1 = 1 * (data$陣形 == 1), 陣形2 = 1 * (data$陣形 == 2))
attach(data)
#雷装そのまま 検証艦Lv √検証艦Lv
# 敵回避 TS1 TS2
# √敵回避 TS3 TS4
#√雷装 検証艦Lv √検証艦Lv
# 敵回避 TS5 TS6
# √敵回避 TS7 TS8
TS1.lm <- glm(命中可否 ~ (検証艦Lv + 雷装 + 装備命中 + I(改修1 + 改修2) + 運+ 敵回避) * (陣形1 + 陣形2), family=gaussian)
summary(TS1.lm)
TS2.lm <- glm(命中可否 ~ (sqrt(検証艦Lv) + 雷装 + 装備命中 + I(改修1 + 改修2) + 運+ 敵回避 ) * (陣形1 + 陣形2), family=gaussian)
summary(TS2.lm)
TS3.lm <- glm(命中可否 ~ (検証艦Lv + 雷装 + 装備命中 + I(改修1 + 改修2) + 運+ sqrt(敵回避)) * (陣形1 + 陣形2), family=gaussian)
summary(TS3.lm)
TS4.lm <- glm(命中可否 ~ (sqrt(検証艦Lv) + 雷装 + 装備命中 + I(改修1 + 改修2) + 運+ sqrt(敵回避)) * (陣形1 + 陣形2) , family=gaussian)
summary(TS4.lm)
TS5.lm <- glm(命中可否 ~ (検証艦Lv + sqrt(雷装) + 装備命中 + I(改修1 + 改修2) + 運+ 敵回避) * (陣形1 + 陣形2) , family=gaussian)
summary(TS5.lm)
TS6.lm <- glm(命中可否 ~ (sqrt(検証艦Lv) + sqrt(雷装) + 装備命
中 + I(改修1 + 改修2) + 運+ 敵回避) * (陣形1 + 陣形2), family=gaussian) summary(TS6.lm) TS7.lm <- glm(命中可否 ~ (検証艦Lv + sqrt(雷装) + 装備命中 + I(改修1 + 改修2) + 運+ sqrt(敵回避)) * (陣形1 + 陣形2), family=gaussian) summary(TS7.lm) TS8.lm <- glm(命中可否 ~ (sqrt(検証艦Lv) + sqrt(雷装) + 装備命中 + I(改修1 + 改修2) + 運+ sqrt(敵回避)) * (陣形1 + 陣形2) , family=gaussian) summary(TS8.lm) AIC(TS1.lm) AIC(TS2.lm) AIC(TS3.lm) AIC(TS4.lm) AIC(TS5.lm) AIC(TS6.lm) AIC(TS7.lm) AIC(TS8.lm) TS6.st <- step(glm(命中可否 ~ (sqrt(検証艦Lv) + sqrt(雷装) + 装備命中 + I(改修1 + 改修2) + 運 + 敵回避) * (陣形1 + 陣形2), family=gaussian)) summary(TS6.st) AIC(TS6.st) TS9.lm <- glm(命中可否 ~ sqrt(検証艦Lv) + sqrt(雷装) + 装備命中 + I(改修1 + 改修2) + 運 + 敵回避 + 陣形1 + sqrt(検証艦Lv):陣形2 + 運:陣形1 + 敵回避:陣形2,family=gaussian) AIC(TS9.lm) summary(TS9.lm)</i></div>
<figcaption> </figcaption></figure><figure class="article-thumb tright show-info-icon" style="width: 180px">
<figcaption> </figcaption></figure><figure class="article-thumb tright show-info-icon" style="width: 180px">
<figcaption> </figcaption></figure>