R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

# Đặt seed để có thể lặp lại kết quả
set.seed(123)

# Sinh 350 giá trị từ N(30, 100)
x <- rnorm(n = 350, mean = 30, sd = 10)

# Xem vài giá trị đầu
head(x)
## [1] 24.39524 27.69823 45.58708 30.70508 31.29288 47.15065
# Kiểm định Shapiro-Wilk
shapiro.test(x)
## 
##  Shapiro-Wilk normality test
## 
## data:  x
## W = 0.99242, p-value = 0.07237
# Đọc dữ liệu Iris
data(iris)

# Xem cấu trúc dữ liệu
str(iris)
## 'data.frame':    150 obs. of  5 variables:
##  $ Sepal.Length: num  5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9 ...
##  $ Sepal.Width : num  3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
##  $ Petal.Length: num  1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 ...
##  $ Petal.Width : num  0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1 ...
##  $ Species     : Factor w/ 3 levels "setosa","versicolor",..: 1 1 1 1 1 1 1 1 1 1 ...
# Xem 6 dòng đầu
head(iris)
##   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1          5.1         3.5          1.4         0.2  setosa
## 2          4.9         3.0          1.4         0.2  setosa
## 3          4.7         3.2          1.3         0.2  setosa
## 4          4.6         3.1          1.5         0.2  setosa
## 5          5.0         3.6          1.4         0.2  setosa
## 6          5.4         3.9          1.7         0.4  setosa
# Tính min và max cho từng cột số
min_max <- data.frame(
  Min = sapply(iris[, 1:4], min),
  Max = sapply(iris[, 1:4], max)
)

min_max
##              Min Max
## Sepal.Length 4.3 7.9
## Sepal.Width  2.0 4.4
## Petal.Length 1.0 6.9
## Petal.Width  0.1 2.5
# Vẽ histogram Sepal.Length
hist(
  iris$Sepal.Length,
  main = "Histogram of Sepal Length",
  xlab = "Sepal Length",
  col = "lightblue",
  border = "black"
)