data(Pb)
if (FALSE) {
#Default method:
set.seed(1023)
boot.Pb.default <- boot.mtr.pairwise(Pb$value, Pb$u) # Uses individual standard uncertainties
summary(boot.Pb.default)
#Method for pair-difference chi-squared object:
pwch.Pb<-pdchisq(Pb$value, Pb$u) # Uses individual standard uncertainties
boot.Pb <- boot.mtr.pairwise(pwch.Pb, B=5000)
#Increased replication compared to default
summary(boot.Pb)
# NOTE: The default summary gives individual observation p-values.
# To correct for multiple comparisons, apply
# a suitable p-value adjustment; for example:
summary(boot.Pb, p.adjust="holm")
}
Run the code above in your browser using DataLab