The body fat of 78 high school wrestlers was measured using three separate
techniques, and the results are stored in the data frame HSwrestler
.
The techniques used were hydrostatic weighing (HWFAT
), skin fold
measurements (SKFAT
), and the Tanita body fat scale (TANFAT
).
Data are used in Examples 10.11, 12.11, and 12.12.
A data frame with 78 observations on the following 9 variables:
age of wrestler in years
height of wrestler in inches
weight ofwrestler in pounds
abdominal fat
tricep fat
subscapular fat
hydrostatic fat
Tanita fat
skin fat
Data provided by Dr. Alan Utter, Department of Health Leisure and Exercise Science, Appalachian State University.
Ugarte, M. D., Militino, A. F., and Arnholt, A. T. (2008) Probability and Statistics with R. Chapman & Hall/CRC.
FAT <- c(HSwrestler$HWFAT, HSwrestler$TANFAT, HSwrestler$SKFAT) GROUP <- factor(rep(c("HWFAT", "TANFAT", "SKFAT"), rep(78, 3))) BLOCK <- factor(rep(1:78, 3)) friedman.test(FAT ~ GROUP | BLOCK)#> #> Friedman rank sum test #> #> data: FAT and GROUP and BLOCK #> Friedman chi-squared = 22.487, df = 2, p-value = 1.309e-05 #>