Numerické hodnoty

a <- 12
b <- 4.5
c <- a * b - 3
a; b; c
## [1] 12
## [1] 4.5
## [1] 51

Malé cvičenie 1

Vytvor si dve numerické premenné – napr. strany_knihy a kapitoly.
Vypočítaj, koľko strán má pripadať na jednu kapitolu.

Riešenie (ukážka):

strany_knihy <- 240
kapitoly <- 12
strany_na_kapitolu <- strany_knihy / kapitoly
strany_na_kapitolu
## [1] 20

Textové hodnoty

meno <- "Rado"
predmet <- "Matematika"
sprava <- paste("Ahoj", meno, "- vitaj na predmete", predmet)
sprava
## [1] "Ahoj Rado - vitaj na predmete Matematika"
nchar(sprava)
## [1] 40
toupper(predmet)
## [1] "MATEMATIKA"

Malé cvičenie 2

Vytvor tri textové premenné: mesto, aktivita, den.
Spoj ich do vety. Spočítaj jej dĺžku a over, či obsahuje písmeno „e“.

Riešenie (ukážka):

mesto <- "Bratislava"
aktivita <- "tréning"
den <- "piatok"
veta <- paste("V", den, "idem do", mesta <- mesto, "na", aktivita)  # zámerne bez diakritiky pri 'mesta' netreba, je to len premenná
veta
## [1] "V piatok idem do Bratislava na tréning"
nchar(veta)
## [1] 38
grepl("e", tolower(veta))   # case-insensitive kontrola
## [1] TRUE

Logické hodnoty

vek <- 19
plnolety <- vek >= 18
plnolety
## [1] TRUE
isTRUE(plnolety)
## [1] TRUE
teplota <- 22
je_teplo <- teplota > 20
je_vikend <- FALSE
je_teplo & je_vikend
## [1] FALSE
je_teplo | je_vikend
## [1] TRUE
!je_vikend
## [1] TRUE

Malé cvičenie 3

Vytvor pocasie (napr. “slnecno” alebo “dazd”) a podmienku, ktorá vráti TRUE, keď nie je dážď a teplota je aspoň 18 °C.

Riešenie (ukážka):

pocasie <- "slnecno"
teplota <- 19
podmienka <- (tolower(pocasie) != "dazd") & (teplota >= 18)
podmienka
## [1] TRUE

Môj návrh použitia novinky

ifelse() – priradenie hodnoty podľa podmienky pre každý prvok vektora:

vek <- c(15, 18, 20, 16)
status <- ifelse(vek >= 18, "plnolety", "neplnolety")
data.frame(vek, status)
##   vek     status
## 1  15 neplnolety
## 2  18   plnolety
## 3  20   plnolety
## 4  16 neplnolety

Vyhľadávanie podreťazca v texte pomocou grepl():

slovo <- "informatika"
grepl("mat", slovo)
## [1] TRUE