data(BloodLead)
# Control values are clealy less dispersed (and inferior)
# than exposed levels
with(BloodLead,plot(paired(Control,Exposed),type="McNeil"))
with(BloodLead,var.test(paired(Control,Exposed)))
with(BloodLead,grambsch.var.test(paired(Control,Exposed)))
with(BloodLead,bonettseier.var.test(paired(Control,Exposed)))
# Correlation is small (bad matching)
with(BloodLead,cor.test(Control,Exposed))
with(BloodLead,winsor.cor.test(Control,Exposed))
Run the code above in your browser using DataLab