Solution to the exercise

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: