knitr::opts_chunk$set(
echo = TRUE,
message = FALSE,
warning = FALSE
)
x <- 10
y <- 4
sucet <- x + y
rozdiel <- x - y
nasobenie <- x * y
delenie <- x / y
sucet; rozdiel; nasobenie; delenie
## [1] 14
## [1] 6
## [1] 40
## [1] 2.5
Vypočítajte hodnotu \((20^2 + 15) / 5\)
(20^2 + 15) / 5
## [1] 83
meno <- "Anna"
priezvisko <- "Novaková"
cele_meno <- paste(meno, priezvisko)
cele_meno
## [1] "Anna Novaková"
Spojte tri slová do jedného textového reťazca bez medzier.
slovo1 <- "R"
slovo2 <- "je"
slovo3 <- "super"
spojenie <- paste0(slovo1, slovo2, slovo3)
spojenie
## [1] "Rjesuper"
a <- TRUE
b <- FALSE
!a
## [1] FALSE
a & b
## [1] FALSE
a | b
## [1] TRUE
Skontrolujte, či číslo 25 je väčšie ako 10 a zároveň menšie ako 30.
cislo <- 25
cislo > 10 & cislo < 30
## [1] TRUE
Vyskúšajme prácu s typom dát “factor”, ktorý ešte nebol v dokumente:
ovocie <- factor(c("jablko", "banán", "hruška", "jablko"))
ovocie
## [1] jablko banán hruška jablko
## Levels: banán hruška jablko
levels(ovocie) # Zobrazí úrovne (kategórie)
## [1] "banán" "hruška" "jablko"
summary(ovocie) # Početnosť jednotlivých kategórií
## banán hruška jablko
## 1 1 2