---

title: “Untitled” output: html_document date: “2025-04-18”

Data <- read.csv("D:/table1_1.csv")

stem(Data$Japanese)

## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##   4 | 9
##   5 | 139
##   6 | 13
##   7 | 9
##   8 | 49
##   9 | 1

Statistic <- c(68,85,74,88,63,78,90,80,58,63)
math <- c(85,91,74,100,82,84,78,100,51,70)
mean(Statistic)    

## [1] 74.7

#平均數
median(Statistic)    #中位數

## [1] 76

min(Statistic)

## [1] 58

as.numeric(names(table(Statistic)))[which.max(table(Statistic))]

## [1] 63

sd(Statistic)  #標準差

## [1] 11.32402

var(Statistic) #變異數

## [1] 128.2333

Q1 <- quantile(math, 1 / 4) 
Q3 <- quantile(math, 3 / 4)