Základné operácie v R2.

1. Logické hodnoty a operátory

2.1 TRUE/FALSE a základné operácie

a <- TRUE; b <- FALSE

a & b      # logický AND

[1] FALSE

a | b      # logický OR

[1] TRUE

!a         # negácia

[1] FALSE

xor(a, b)  # výlučné alebo

[1] TRUE

2.2 Porovnávanie čísel a reťazcov

x <- 12; y <- 5
x > y; x <= y; x == 12

[1] TRUE
[1] FALSE
[1] TRUE

txt1 <- "R"; txt2 <- "Python"
txt1 == txt2

[1] FALSE

Malé cvičenie – logické

Zadanie:
Nech vek <- 17 a student <- TRUE.
Určte, či má osoba nárok na zľavu, ak platí: zľava = vek < 18 a je študent.

Riešenie:

vek <- 17; student <- TRUE
zlava <- (vek < 18) & student
zlava

[1] TRUE

---

3. Vektory

3.1 Vytváranie vektorov

vek <- c(18, 20, 22, 19, 21)
mena <- c("Eva", "Marek", "Tomáš", "Lucia", "Nina")

vek; mena

[1] 18 20 22 19 21
[1] "Eva"   "Marek" "Tomáš" "Lucia" "Nina" 

3.2 Operácie s vektormi

vek + 1

[1] 19 21 23 20 22

vek > 20

[1] FALSE FALSE  TRUE FALSE  TRUE

mean(vek)

[1] 20

min(vek); max(vek)

[1] 18
[1] 22

3.3 Indexovanie a prístup k prvkom

vek[1]      # prvý prvok

[1] 18

vek[3:5]    # tretí až piaty

[1] 22 19 21

mena[vek > 20]   # mená s vekom > 20

[1] "Tomáš" "Nina" 

Malé cvičenie – vektory

Zadanie:
Vytvorte vektor teplôt za 5 dní a vypočítajte priemernú teplotu.
Zistite, v ktoré dni bola teplota vyššia ako priemer.

Riešenie:

teploty <- c(19, 21, 23, 20, 22)
priemer <- mean(teploty)
nad_priemer <- teploty > priemer
priemer; nad_priemer

[1] 21
[1] FALSE FALSE  TRUE FALSE  TRUE

---

4. Matice

4.1 Tvorba matíc

m <- matrix(1:9, nrow = 3, ncol = 3)
m

     [,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8
[3,]    3    6    9

4.2 Operácie s maticami

t(m)        # transpozícia

     [,1] [,2] [,3]
[1,]    1    2    3
[2,]    4    5    6
[3,]    7    8    9

m * 2       # násobenie skalárom

     [,1] [,2] [,3]
[1,]    2    8   14
[2,]    4   10   16
[3,]    6   12   18

m + m       # sčítanie matíc

     [,1] [,2] [,3]
[1,]    2    8   14
[2,]    4   10   16
[3,]    6   12   18

m %*% m     # maticový súčin

     [,1] [,2] [,3]
[1,]   30   66  102
[2,]   36   81  126
[3,]   42   96  150

4.3 Prístup k prvkom

m[1, 2]     # prvok v 1. riadku, 2. stĺpci

[1] 4

m[, 1]      # prvý stĺpec

[1] 1 2 3

m[2, ]      # druhý riadok

[1] 2 5 8

Malé cvičenie – matice

Zadanie:
Vytvorte maticu 2x3 obsahujúcu čísla 10 až 15.
Vypočítajte jej transpozíciu a súčet všetkých prvkov.

Riešenie:

mat <- matrix(10:15, nrow = 2, ncol = 3)
transp <- t(mat)
sucet <- sum(mat)
mat; transp; sucet

     [,1] [,2] [,3]
[1,]   10   12   14
[2,]   11   13   15
     [,1] [,2]
[1,]   10   11
[2,]   12   13
[3,]   14   15
[1] 75

---

Môj návrh použitia novinky

Príklad – priemery riadkov a stĺpcov

m <- matrix(c(2,4,6,8,10,12), nrow = 3, ncol = 2)
m

     [,1] [,2]
[1,]    2    8
[2,]    4   10
[3,]    6   12

# priemery riadkov
rowMeans(m)

[1] 5 7 9

# priemery stĺpcov
colMeans(m)

[1]  4 10

# vlastná funkcia na zistenie, či priemer riadku > 5
apply(m, 1, function(x) mean(x) > 5)

[1] FALSE  TRUE  TRUE

Bonus:

library(dplyr)

data <- data.frame(
  Meno = c("Eva", "Marek", "Lucia"),
  Body1 = c(15, 12, 18),
  Body2 = c(14, 17, 19)
)

data %>%
  mutate(Priemer = (Body1 + Body2)/2) %>%
  filter(Priemer > 15)

---

uhloha

mena <- c("Adam", "Beáta", "Cyril", "Dana", "Eva")
body <- c(48, 75, 62, 49, 91)

splnil <- body >= 50
sprava <- paste("Študent", mena, 
                "- výsledok:", body, "bodov –",
                ifelse(splnil, "Splnil", "Nesplnil"))

sprava

[1] "Študent Adam - výsledok: 48 bodov – Nesplnil"
[2] "Študent Beáta - výsledok: 75 bodov – Splnil" 
[3] "Študent Cyril - výsledok: 62 bodov – Splnil" 
[4] "Študent Dana - výsledok: 49 bodov – Nesplnil"
[5] "Študent Eva - výsledok: 91 bodov – Splnil"   

mena_uspesni <- mena[splnil]


uspesni <- toupper(mena_uspesni)
veta <- paste("Úspešní študenti sú:", paste(uspesni, collapse = ", "))
veta

[1] "Úspešní študenti sú: BEÁTA, CYRIL, EVA"