Nothing
#' Body measurements of 507 physically active individuals.
#'
#' Body girth measurements and skeletal diameter measurements, as well as age,
#' weight, height and gender, are given for 507 physically active individuals -
#' 247 men and 260 women. These data can be used to provide statistics students
#' practice in the art of data analysis. Such analyses range from simple
#' descriptive displays to more complicated multivariate analyses such as
#' multiple regression and discriminant analysis.
#'
#'
#' @name bdims
#' @docType data
#' @format A data frame with 507 observations on the following 25 variables.
#' \describe{
#' \item{bia_di}{A numerical vector, respondent's biacromial diameter in
#' centimeters.}
#' \item{bii_di}{A numerical vector, respondent's biiliac diameter
#' (pelvic breadth) in centimeters.}
#' \item{bit_di}{A numerical vector, respondent's bitrochanteric diameter
#' in centimeters.}
#' \item{che_de}{A numerical vector, respondent's chest depth in centimeters,
#' measured between spine and sternum at nipple level, mid-expiration.}
#' \item{che_di}{A numerical vector, respondent's chest diameter in
#' centimeters, measured at nipple level, mid-expiration.}
#' \item{elb_di}{A numerical vector, respondent's elbow diameter in
#' centimeters, measured as sum of two elbows.}
#' \item{wri_di}{A numerical vector, respondent's wrist diameter in
#' centimeters, measured as sum of two wrists.}
#' \item{kne_di}{A numerical vector, respondent's knee diameter in
#' centimeters, measured as sum of two knees.}
#' \item{ank_di}{A numerical vector, respondent's ankle diameter in
#' centimeters, measured as sum of two ankles.}
#' \item{sho_gi}{A numerical vector, respondent's shoulder girth in
#' centimeters, measured over deltoid muscles.}
#' \item{che_gi}{A numerical vector, respondent's chest girth in
#' centimeters, measured at nipple line in males and just above breast tissue
#' in females, mid-expiration.}
#' \item{wai_gi}{A numerical vector, respondent's waist girth in
#' centimeters, measured at the narrowest part of torso below the rib cage as
#' average of contracted and relaxed position.}
#' \item{nav_gi}{A numerical vector, respondent's navel (abdominal)
#' girth in centimeters, measured at umbilicus and iliac crest using iliac
#' crest as a landmark.}
#' \item{hip_gi}{A numerical vector, respondent's hip girth in
#' centimeters, measured at at level of bitrochanteric diameter.}
#' \item{thi_gi}{A numerical vector, respondent's thigh girth in
#' centimeters, measured below gluteal fold as the average of right and left
#' girths.}
#' \item{bic_gi}{A numerical vector, respondent's bicep girth in
#' centimeters, measured when flexed as the average of right and left
#' girths.}
#' \item{for_gi}{A numerical vector, respondent's forearm girth in
#' centimeters, measured when extended, palm up as the average of right and
#' left girths.}
#' \item{kne_gi}{A numerical vector, respondent's knee diameter in
#' centimeters, measured as sum of two knees.}
#' \item{cal_gi}{A numerical vector, respondent's calf maximum girth
#' in centimeters, measured as average of right and left girths.}
#' \item{ank_gi}{A numerical vector, respondent's ankle minimum girth
#' in centimeters, measured as average of right and left girths.}
#' \item{wri_gi}{A numerical vector, respondent's wrist minimum girth
#' in centimeters, measured as average of right and left girths.}
#' \item{age}{A numerical vector, respondent's age in years.}
#' \item{wgt}{A numerical vector, respondent's weight in kilograms.}
#' \item{hgt}{A numerical vector, respondent's height in centimeters.}
#' \item{sex}{A categorical vector, 1 if the respondent is male,
#' 0 if female.}
#' }
#' @source Heinz G, Peterson LJ, Johnson RW, Kerk CJ. 2003. Exploring
#' Relationships in Body Dimensions. Journal of Statistics Education 11(2).
#' @keywords datasets
#' @examples
#'
#' library(ggplot2)
#' ggplot(bdims, aes(x = hgt)) +
#' geom_histogram(binwidth = 5)
#'
#' ggplot(bdims, aes(x = hgt, y = wgt)) +
#' geom_point() +
#' labs(x = "Height", y = "Weight")
#'
#' ggplot(bdims, aes(x = hgt, y = sho_gi)) +
#' geom_point() +
#' labs(x = "Height", y = "Shoulder girth")
#'
#' ggplot(bdims, aes(x = hgt, y = hip_gi)) +
#' geom_point() +
#' labs(x = "Height", y = "Hip girth")
"bdims"
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.