---

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