The following script performs the descriptive analysis requested in the exercise:
# Store the observations:
height <- c(184.0, 174.2, 166.6, 193.2, 173.8, 166.4, 175.4, 183.3)
# Calculate mean and median height:
mean(height)
median(height)
# Calculate standard deviation:
sd(height)
# Draw a histogram of the data:
hist(height)
The histogram: