# assume data from pistol shooting at 25m with 9mm ammo
# metric units
xy <- matrix(round(rnorm(100, 0, 5), 2), ncol=2)
res <- groupLocation(xy, dstTarget=25, conversion='m2cm', plots=2,
target='BDS', unit='cm', caliber=0.9)
names(res)
res$ctr
res$distPOA
res$CIbootX
res$CIbootY
Run the code above in your browser using DataLab