Đây là thử nghiệm với chữ ế, ư, ă, đ, ô.

library(datasets)
data("airquality")
head(airquality)
a <- airquality
dim(a)
## [1] 153   6
table(cut(a$Ozone, 3))
## 
## (0.833,56.7]   (56.7,112]    (112,168] 
##           83           28            5

Đây là bản tần số của biến Ozon bằng 3 khoảng