bai ki nang 2

#bai1.1 Sinh ngẫu nhiên 500 giá trị từ phân phối đều [1,7]
set.seed(123)  
mau <- runif(500, min = 1, max = 7)

#bai1.2 Tính kỳ vọng (mean) và phương sai 
ky_vong <- mean(mau)
phuong_sai <- var(mau)

cat("Kỳ vọng của mẫu:", ky_vong, "\n")

## Kỳ vọng của mẫu: 3.971702

cat("Phương sai của mẫu:", phuong_sai, "\n")

## Phương sai của mẫu: 2.91225

#bai1.2 Vẽ biểu đồ histogram
hist(mau, main = "Biểu đồ Histogram của mẫu", 
     xlab = "Giá trị", ylab = "Tần suất", 
     col = "skyblue", border = "black")

#bai2.1 Đọc tập dữ liệu Iris
library(datasets)
data(iris)

#bai2.2 Tính hệ số tương quan giữa Sepal.Length và Sepal.Width
he_so_tuong_quan <- cor(iris$Sepal.Length, iris$Sepal.Width)
cat("Hệ số tương quan:", he_so_tuong_quan, "\n")

## Hệ số tương quan: -0.1175698

#bai2.3 Vẽ biểu đồ scatter
plot(iris$Sepal.Length, iris$Sepal.Width, 
     main = "Biểu đồ scatter giữa Sepal.Length và Sepal.Width", 
     xlab = "Chiều dài đài hoa (Sepal.Length)", 
     ylab = "Chiều rộng đài hoa (Sepal.Width)", 
     col = "blue", pch = 19)