Základné operácie v R – alternatívny cvičebný dokument

Globálne nastavenie Chunkov

knitr::opts_chunk$set(
    echo = TRUE,
    message = FALSE,
    warning = FALSE
)
## Numerické skaláre
x <- 12
y <- 4.2

sucet    <- x + y
rozdiel  <- x - y
nasobok  <- x * y
podiel   <- x / y
mocnina  <- x ^ 2
modulo   <- x %% 5

zaokr1   <- round(y, 1)
ceil_y   <- ceiling(y)
floor_y  <- floor(y)

x; y

[1] 12
[1] 4.2

sucet; rozdiel; nasobok; podiel; mocnina; modulo

[1] 16.2
[1] 7.8
[1] 50.4
[1] 2.857143
[1] 144
[1] 2

zaokr1; ceil_y; floor_y

[1] 4.2
[1] 5
[1] 4

Vypočítajte hodnotu

\[\frac{(20^2 + 10)}{6}\]

(20^2 + 10) / 6

[1] 68.33333

Textové hodnoty a premenné

meno <- "Anna"
priezvisko <- "Novaková"

cele_meno <- paste(meno, priezvisko)
cele_meno_bez <- paste0(meno, priezvisko)

zelenina <- paste("mrkva", "uhorka", "paradajka", sep = ";")

meno; priezvisko; cele_meno; cele_meno_bez; zelenina

[1] "Anna"
[1] "Novaková"
[1] "Anna Novaková"
[1] "AnnaNovaková"
[1] "mrkva;uhorka;paradajka"

Vytvorte textovú premennú slovo <- “programovanie” a:

1.  zistite, koľko má znakov,
2.  vypíšte podreťazec od 5. po 9. znak.

slovo <- "programovanie"
nchar(slovo)

[1] 13

substr(slovo, 5, 9)

[1] "ramov"

Logické hodnoty a premenné

p <- TRUE
q <- FALSE

!q

[1] TRUE

p & q

[1] FALSE

p | q

[1] TRUE

xor(p, q)

[1] TRUE

Porovnávanie

10 > 3

[1] TRUE

5 <= 2

[1] FALSE

"dog" == "dog"

[1] TRUE

"dog" != "cat"

[1] TRUE

Kombinácie podmienok

z <- 15
z > 10 & z < 20

[1] TRUE

z < 0 | z == 15

[1] TRUE

Definujte cislo <- 25.

Skontrolujte: 1. či je väčšie ako 10, 2. či je menšie alebo rovné 30, 3. vytvorte podmienku, ktorá overí, či platia súčasne obidve podmienky.

cislo <- 25
cislo > 10

[1] TRUE

cislo <= 30

[1] TRUE

cislo > 10 & cislo <= 30

[1] TRUE

Môj návrh použitia novinky

#Na rozdiel od pôvodného dokumentu ukážeme prácu s logickou funkciou any() a all(), ktoré sa hodia pri vektoroch:

vek <- c(18, 22, 19, 25, 30)

any(vek > 29)   # existuje aspoň jeden prvok väčší ako 29?

[1] TRUE

all(vek >= 18)  # sú všetky prvky aspoň 18?

[1] TRUE