# 連続操りミス回数の算出

cat("\n[連続あやつりミス回数]\n")

for (eq in 1:length(equips)) {
	n = length(result[pet==dst.pet & CoP==ac & equip==equips[eq] & recast >= 2])
	cat(equips[eq], ": ", n, "\n", sep="")
}