# \donttest{
# Using the output data matrix hold generated in vignette Example3,
# calculate jackknife and bootstrap standard errors
# for the differences and ratios of the CV estimates.
# Jackknife SE of Differences of CVs
# pairwise.se(hold,xcol=10:12,summary.f=cv)
# elem summi summj summary se t.stat N method
# 1 10 11 0.6884 0.7030 -0.0146 0.0299 -0.4877 1000 Jackknife
# 2 10 12 0.6884 0.6489 0.0395 0.0195 2.0274 1000 Jackknife
# 3 11 12 0.7030 0.6489 0.0541 0.0311 1.7374 1000 Jackknife
# Jackknife SE of Ratios of CVs
# pairwise.se(hold,xcol=10:12,diff=FALSE,summary.f=cv)
# elem summi summj summary se t.stat N method
# 1 10 11 0.6884 0.7030 0.9792 0.0429 -0.4833 1000 Jackknife
# 2 10 12 0.6884 0.6489 1.0608 0.0321 1.8972 1000 Jackknife
# 3 11 12 0.7030 0.6489 1.0833 0.0475 1.7531 1000 Jackknife
# Bootstrap SE of Differences of CVs
# pairwise.se(hold,xcol=10:12,B=1000,seed=770,summary.f=cv)
# elem summi summj summary se t.stat B seed N method
# 1 10 11 0.6884 0.7030 -0.0146 0.0278 -0.5250 1000 770 1000 Bootstrap
# 2 10 12 0.6884 0.6489 0.0395 0.0182 2.1671 1000 770 1000 Bootstrap
# 3 11 12 0.7030 0.6489 0.0541 0.0303 1.7844 1000 770 1000 Bootstrap
# Bootstrap SE of Ratios of CVs
# pairwise.se(hold,xcol=10:12,diff=FALSE,B=1000,seed=770,summary.f=cv)
# elem summi summj summary se t.stat B seed N method
# 1 10 11 0.6884 0.7030 0.9792 0.0390 -0.5316 1000 770 1000 Bootstrap
# 2 10 12 0.6884 0.6489 1.0608 0.0292 2.0797 1000 770 1000 Bootstrap
# 3 11 12 0.7030 0.6489 1.0833 0.0430 1.9372 1000 770 1000 Bootstrap
# }
Run the code above in your browser using DataLab