Statistic 11/14

library(readxl)
library(readr)

weight <- c(55,60,70,75,75)

data <- read_excel("D:/table2_2.xlsx")

print(data)

## # A tibble: 410 × 2
##    Gender Height
##    <chr>   <dbl>
##  1 男       160.
##  2 男       172.
##  3 男       170.
##  4 男       168.
##  5 男       171.
##  6 男       174.
##  7 男       167.
##  8 男       179.
##  9 男       167.
## 10 男       175.
## # ℹ 400 more rows

summary(data)

##     Gender              Height     
##  Length:410         Min.   :145.9  
##  Class :character   1st Qu.:159.9  
##  Mode  :character   Median :165.7  
##                     Mean   :165.9  
##                     3rd Qu.:171.6  
##                     Max.   :208.2

stem(weight)

## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##   5 | 5
##   6 | 0
##   6 | 
##   7 | 0
##   7 | 55

head(data)

## # A tibble: 6 × 2
##   Gender Height
##   <chr>   <dbl>
## 1 男       160.
## 2 男       172.
## 3 男       170.
## 4 男       168.
## 5 男       171.
## 6 男       174.

mean(weight)

## [1] 67