Статистикалық талдау есебі

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:

сандар <- c(1, 2, 3, 4, 5)
орташа_мән <- mean(сандар)
орташа_мән

## [1] 3

set.seed(123)
x <- 1:50
y <- x + rnorm(50, 0, 10)

plot(x, y, 
     main = "Сызықтық тәуелділік",
     xlab = "X айнымалысы",
     ylab = "Y айнымалысы",
     col = "blue",
     pch = 19)
abline(lm(y ~ x), col = "red", lwd = 2)

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.5.2

деректер <- data.frame(
  категория = factor(rep(c("A", "B", "C"), each = 20)),
  мән = c(rnorm(20, 50, 10), rnorm(20, 60, 8), rnorm(20, 55, 12))
)

ggplot(деректер, aes(x = категория, y = мән, fill = категория)) +
  geom_boxplot() +
  labs(title = "Категориялар бойынша салыстыру",
       x = "Категория",
       y = "Мән") +
  theme_minimal()

кесте <- data.frame(
  Оқушы = c("Айгүл", "Бауыржан", "Қадыр"),
  Балл = c(85, 92, 78),
  Пән = c("Математика", "Физика", "Химия")
)
кесте

##      Оқушы Балл        Пән
## 1    Айгүл   85 Математика
## 2 Бауыржан   92     Физика
## 3    Қадыр   78      Химия

# eval=FALSE - код орындалмайды
қосынды <- 5 + 10
қосынды

## [1] 15

# echo=FALSE - код көрінбейді
жасырын_нәтиже <- 42 * 3


set.seed(123)
деректер <- rnorm(200, mean = 50, sd = 15)

par(mfrow = c(3, 1), mar = c(4, 4, 2, 1))

# Гистограмма
hist(деректер, 
     main = "Гистограмма: Нормальды таралу",
     xlab = "Мәндер",
     ylab = "Жиілік",
     col = "lightblue",
     border = "darkblue")

# Бокс-плот
boxplot(деректер,
        main = "Бокс-плот: Деректер таралуы",
        ylab = "Мәндер",
        col = "lightgreen",
        horizontal = TRUE)

# Тығыздық графигі
plot(density(деректер),
     main = "Тығыздық функциясы",
     xlab = "Мәндер",
     ylab = "Тығыздық",
     col = "darkred",
     lwd = 2)
polygon(density(деректер), col = "pink", border = "darkred")

par(mfrow = c(1, 1))

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.