# ferdo R Lab — İlk Adım (kamusal örnek)
# 30 Ekim 2026 | Sadece base R | Kurmaca veriler
# Bu dosya R çalışma zamanında henüz bağımsız kabul testinden geçmedi.

5 + 3 * 2

x <- c(4, 8, 12)
print(length(x))
print(mean(x))
print(x[x > 5])

student_id  <- paste0("S", 1:8)
study_hours <- c(1, 2, 2, 3, 4, 4, 5, 6)
quiz_score  <- c(42, 48, 55, 62, 69, 74, 82, 90)
group       <- c("A", "B", "A", "B", "A", "B", "A", "B")

class_data <- data.frame(student_id, study_hours, quiz_score, group)
print(head(class_data))
str(class_data)
print(summary(class_data))
print(mean(class_data$quiz_score))
plot(class_data$study_hours, class_data$quiz_score,
     xlab = "Study hours", ylab = "Quiz score",
     main = "Kurmaca veri", pch = 19)