Trials_Multivariate

# Load necessary library
library(tibble)

# Create the dataframe
measure <- tibble(
  chest = c(34, 36, 37, 36, 38, 34, 38, 33, 38, 36, 43, 37, 40, 34, 38, 36, 40, 38, 41, 35),
  waist = c(30, 24, 32, 25, 30, 24, 33, 22, 29, 26, 32, 26, 33, 25, 30, 26, 30, 28, 32, 23),
  hips = c(32, 35, 37, 37, 36, 37, 39, 34, 33, 38, 38, 37, 42, 38, 40, 37, 37, 40, 39, 35),
  gender = c('male', 'female', 'male', 'female', 'male', 'female', 'male', 'female', 'male', 'female', 'male', 'female', 'male', 'female', 'male', 'female', 'male', 'female', 'male', 'female')
)

# Print the dataframe
print(measure)

## # A tibble: 20 × 4
##    chest waist  hips gender
##    <dbl> <dbl> <dbl> <chr> 
##  1    34    30    32 male  
##  2    36    24    35 female
##  3    37    32    37 male  
##  4    36    25    37 female
##  5    38    30    36 male  
##  6    34    24    37 female
##  7    38    33    39 male  
##  8    33    22    34 female
##  9    38    29    33 male  
## 10    36    26    38 female
## 11    43    32    38 male  
## 12    37    26    37 female
## 13    40    33    42 male  
## 14    34    25    38 female
## 15    38    30    40 male  
## 16    36    26    37 female
## 17    40    30    37 male  
## 18    38    28    40 female
## 19    41    32    39 male  
## 20    35    23    35 female