The body fat percentage 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 (
A data frame with 78 observations on the following 9 variables:
age (age of wrestler in years)
ht (height of wrestler in inches)
wt (weight of wrestler in pounds)
abs (abdominal fat)
triceps (tricep fat)
subscap (subscapular fat)
hwfat (hydrostatic measure of percent fat)
tanfat (Tanita measure of percent fat)
skfat (skin fold measure of percent 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. 2015. Probability and Statistics with R, Second Edition. Chapman & Hall / CRC.
1 2 3 4 5 6 7 8
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) rm(FAT, BLOCK, GROUP) ggplot(data = HSWRESTLER, aes(x = tanfat, y = hwfat, color = age)) + geom_point() + geom_smooth() + labs(x = "Tanita measure of percent fat", y = "hydrostatic measure of percent fat")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.