Overview of skin test reactor and other case counts at breakdown level
# all cases detected by any means
summary(bd6$sum_all_cases.x)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1.000 1.000 2.000 4.499 4.000 396.000
tabyl(bd6$sum_all_cases.x > 20)
## bd6$sum_all_cases.x > 20 n percent
## FALSE 77657 0.96125614
## TRUE 3130 0.03874386
hist(bd6$sum_all_cases.x, breaks = "fd", xlim = c(0,20), ylim = c(0, 60000),
main = "All cases over breakdown",
xlab = "N cases" )
#Skin test reactors under standard interpretation
summary(bd6$sum_std.x)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.000 1.000 2.658 3.000 227.000
tabyl(bd6$sum_std.x > 20)
## bd6$sum_std.x > 20 n percent
## FALSE 79476 0.98377214
## TRUE 1311 0.01622786
hist(bd6$sum_std.x, breaks = "fd", xlim = c(0,20), ylim = c(0, 60000),
main = "Standard skin test reactors over breakdown",
xlab = "N cases" )
# All ante-mortem cases
bd6$sum_field <- bd6$sum_all_cases.x - bd6$sum_non_permit.x
# field cases = all cases minus slaughterhouse cases
summary(bd6$sum_field)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 1.000 1.000 4.098 4.000 396.000
tabyl(bd6$sum_field > 20)
## bd6$sum_field > 20 n percent
## FALSE 77780 0.96277866
## TRUE 3007 0.03722134
hist(bd6$sum_field, breaks ="fd", xlim = c(0,20), ylim = c(0, 60000),
main="All ante-mortem cases over breakdown", xlab ="N cases")
bd6$sum_non_standard <- bd6$sum_all_cases.x - bd6$sum_non_permit.x - bd6$sum_std.x ## non-standard cases = all cases minus slaughterhouse cases minus standard skin cases - error here being followed up - some standard skin readings not interpreted as cases in AHCS
summary(bd6$sum_non_standard)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -21.00 0.00 0.00 1.44 1.00 262.00
tabyl(bd6$sum_field > 20)
## bd6$sum_field > 20 n percent
## FALSE 77780 0.96277866
## TRUE 3007 0.03722134
hist(bd6$sum_non_standard, breaks = "fd", xlim = c(0, 20), ylim = c(0, 60000),
main = "Non standard ante-moretem (severe skin or GIF) over breakdown", xlab = "N cases")
# slaughter house cases = animals with no evidence of bTB ante-moretem which have bTB detected through routine meat check and lab follow up.
summary(bd6$sum_non_permit.x)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0000 0.0000 0.0000 0.4008 1.0000 59.0000
tabyl(bd6$sum_non_permit.x > 20)
## bd6$sum_non_permit.x > 20 n percent
## FALSE 80760 0.9996657878
## TRUE 27 0.0003342122
hist(bd6$sum_non_permit.x, breaks = "fd", xlim = c(0, 20), ylim = c(0, 60000),
main = "Slaughterhouse cases over breakdown",
xlab = "N cases" )