1) Cisla (numericke hodnoty)

a <- 11
b <- 7.88

a + b       # súčet
## [1] 18.88
a - b       # rozdiel
## [1] 3.12
a * b       # násobenie
## [1] 86.68
a / b       # delenie (nie celočíselné)
## [1] 1.395939
a ^ b       # umocňovanie
## [1] 160758653
a %/% b     # celočíselné delenie
## [1] 1
a %% b      # zvyšok po delení
## [1] 3.12
round(b, 1) # zaokruhlenie na 1 des. miesto
## [1] 7.9

Male cvicenie

Vypocitaj a zaokruhli na 2 deastinne miesta

\[ \frac{(18^2 - 6)}{(5 + 1.5)} \]

funkcia <- (18^2 - 6) / (5 + 1.5)
round(funkcia, 2)
## [1] 48.92

2) Text (retazce)

first <- "Tibor"
last  <- "Fedor"

paste(first, last)              # vypise meno + periezvisko s medzerou
## [1] "Tibor Fedor"
paste(tolower (last))           # male
## [1] "fedor"
email <- paste0(tolower(last), sample(10:99, 1), "@uniba.sk") #vytvori random email na zaklade cisla pre pouzivatela
sub("([0-9].*)", "", email)     # vypise priezvisko
## [1] "fedor"
nchar(email)                    # napise pocet charakterov v emaili
## [1] 16
email
## [1] "fedor41@uniba.sk"

Male cvicenie

Vytvor slug pre zadany nazov
Poznamka: slug je v SEO cast URL adresy za domenou - strucne a citatelne opisuje obsah stranky
Nazov: Ekonometria pre datovu analytiku

title <- "Ekonometria pre datovu analytiku"
slug <- tolower(gsub(" +", "-", title))
slug
## [1] "ekonometria-pre-datovu-analytiku"

3) Logicke hodnoty

p <- TRUE; q <- FALSE

!p        # NOT
## [1] FALSE
p & q     # AND
## [1] FALSE
p | q     # OR
## [1] TRUE
xor(p, q) # exkluzivne OR
## [1] TRUE
price <- 17.5
price >= 15 & price <= 20  # zistujem ci "price" patri do intervalu <15, 20>
## [1] TRUE

Male cvicenie

Zisti, ci je cislo x vacsie ako 10 a mensie ako 20.

x <- 15

is_between <- x > 10 & x < 20
is_greater <- x > 20
is_equal   <- x == 15

is_between
## [1] TRUE
is_greater
## [1] FALSE
is_equal
## [1] TRUE

4) Novinka

Moja novinka je funkcia switch() - funkcia, ktora podla hodnoty vstupu vyberie jednu z moznosti Identifikujeme den v tyzdni pomocu cisla Ak sa cislo nenachadza v datasete - vypise, ze to je nezname cislo

day_num <- 7

day_name <- switch(as.character(day_num),
  "1" = "Pondelok",
  "2" = "Utorok",
  "3" = "Streda",
  "4" = "Stvrtok",
  "5" = "Piatok",
  "6" = "Sobota",
  "7" = "Nedela",
  "Nezname cislo"
)

day_name
## [1] "Nedela"