Základné operácie v R

Globálne nastavenie Chunkov

knitr::opts_chunk$set(
  echo = TRUE,
  message = FALSE,
  warning = FALSE
)

---

Numerické hodnoty

Simulácia náhodných dát

set.seed(42)
data <- rnorm(100, mean = 50, sd = 10)  # 100 náhodných hodnôt ~ N(50,10)

summary(data)    # základné štatistiky
hist(data, main="Histogram hodnôt", col="purple")

Malé cvičenie

Vytvorte 50 náhodných hodnôt z rovnomerného rozdelenia na intervale [10, 20] a spočítajte, koľko z nich je väčších ako 15.

Riešenie:

set.seed(123)
u <- runif(50, min = 10, max = 20)
sum(u > 15)

---

Logické hodnoty

vek <- c(15, 18, 25, 70, 12, 40)
vek >= 18
sum(vek >= 18)   # počet dospelých

Malé cvičenie

Napíšte podmienku, ktorá určí, ktorí ľudia majú medzi 18 a 65 rokmi (t.j. sú v produktívnom veku).

Riešenie:

vek <- c(15, 18, 25, 70, 12, 40)
produkt_vek <- vek >= 18 & vek <= 65
vek[produkt_vek]

---

Textové reťazce

Práca so slovami

veticka <- "Programovanie v R je veľmi flexibilné a zábavné"
slova <- strsplit(veticka, " ")[[1]]
length(slova)        # počet slov
toupper(slova)       # všetky slová veľkými písmenami
grep("R", slova)     # pozícia slova "R"

Malé cvičenie

Napíšte vetu podľa seba a:
1. rozdeľte ju na slová,
2. spočítajte počet písmen vo všetkých slovách dokopy,
3. vymeňte jedno slovo za iné pomocou gsub().

Riešenie:

moj_text <- "Učenie R Markdown je veľmi užitočné a zaujímavé"
slova2 <- strsplit(moj_text, " ")[[1]]
# 1. rozdelenie
slova2
# 2. počet písmen dokopy
sum(nchar(slova2))
# 3. zmena slova "užitočné" na "praktické"
novy_text <- gsub("užitočné", "praktické", moj_text)
novy_text

---

Môj návrh použitia novinky

Vytvoríme vlastnú funkciu, ktorá z textu spraví štatistiku slov:

analyzuj_text <- function(txt) {
  slova <- strsplit(txt, " ")[[1]]
  dlzky <- nchar(slova)
  list(
    pocet_slov = length(slova),
    priemerna_dlzka = mean(dlzky),
    najdlhsie_slovo = slova[which.max(dlzky)]
  )
}

analyzuj_text("Dnes sa učíme programovať v jazyku R Markdown")

---

Numerické vektory

Generovanie vektorov

a <- seq(5, 25, by = 5)
b <- rep(2, times = 5)
c <- runif(6, min = 0, max = 10)
d <- rnorm(5, mean = 100, sd = 15)
a; b; c; d

🧩 Malé cvičenie 1

Vytvorte vektor temp obsahujúci denné teploty (v stupňoch C) za týždeň: 12, 14, 15, 11, 9, 8, 10.
Zistite: - priemernú teplotu,
- maximálnu teplotu,
- ktoré dni mali teplotu nižšiu ako priemer.

temp <- c(12, 14, 15, 11, 9, 8, 10)
mean(temp)
max(temp)
temp[temp < mean(temp)]

---

🧩 Malé cvičenie 2

Vytvorte vektor sales s hodnotami: 150, 200, 170, 220, 190.
Spočítajte: - celkový predaj,
- percentuálny podiel každého dňa na celkovom predaji.

sales <- c(150, 200, 170, 220, 190)
sum(sales)
round(sales / sum(sales) * 100, 2)

---

Matice

Vytvorenie matíc

M <- matrix(1:12, nrow = 3, byrow = TRUE)
M

🧩 Malé cvičenie 3

Vytvorte maticu grades (3x4), kde riadky reprezentujú študentov a stĺpce ich známky z testov:
1. študent: 78, 85, 90, 88
2. študent: 92, 81, 77, 95
3. študent: 85, 89, 91, 87

Zistite priemerné skóre každého študenta (po riadkoch) a priemerné hodnotenie z každého testu (po stĺpcoch).

grades <- matrix(c(78,85,90,88, 92,81,77,95, 85,89,91,87), nrow = 3, byrow = TRUE)
grades
rowMeans(grades)
colMeans(grades)

---

🧩 Malé cvičenie 4

Vytvorte maticu A (3x3) s hodnotami 2..10 po riadkoch a spočítajte: - determinant matice,
- transpozíciu,
- súčin \(A^T A\).

A <- matrix(2:10, nrow = 3, byrow = TRUE)
det(A)
t(A)
t(A) %*% A

---

🧩 Malé cvičenie 5

Vytvorte maticu B rozmeru 4x4 s hodnotami od 10 do 25 po stĺpcoch.
Zistite súčet všetkých hodnôt väčších ako 18 a počet prvkov menších ako 15.

B <- matrix(10:25, nrow = 4)
sum(B[B > 18])
sum(B < 15)