Základné operácie v R

Globálne nastavenie Chunkov

Quitting from Cvicenie2_scalars_text_logical_vectors_matrices.Rmd:19-25 [setup]

knitr::opts_chunk$set(
  echo = TRUE,
  message = FALSE,
  warning = FALSE
)

---

Skaláre (jednočíselné hodnoty)

Numerické skaláre

# Priradenie konštanty do premennej
a <- 12
b <- 7

# Arithmetic
sum_ab      <- a + b        # sucet
diff_ab     <- a - b        # rozdiel
prod_ab     <- a * b        # násobenie
quot_ab     <- a / b        # delenie
power_ab    <- a ^ b        # umocňovanie
mod_ab      <- a %% 3       # zbytok po delení tromi (tzv modulo)


# Rounding
round_b   <- round(b)       # zaokruhlovanie smerom k najblizsiemu celemu cislu
ceil_b    <- ceiling(b)     # najblizsie vyssie cele cislo
floor_b   <- floor(b)       # najblizsie nizsie cele cislo

a; b

[1] 12
[1] 7

sum_ab; diff_ab; prod_ab; quot_ab; power_ab; mod_ab;

[1] 19
[1] 5
[1] 84
[1] 1.714286
[1] 35831808
[1] 0

round_b; ceil_b; floor_b

[1] 7
[1] 7
[1] 7

Malé cvičenie

Vypočítajte:

\[\frac{(13^3-2)}{5}\]

(13^3 - 2) / 5

[1] 439

---

Text

Vytváranie textovými premennými a práca s nimi

first <- "Veronika"                       # definovanie obsahu textovej premennej first
last  <- "Polánová"                          # definovanie obsahu text. premennej last
full  <- paste(first, last)               # spojenie dvoch text. premennych do jednej (s medzerou)
full_nospace <- paste0(first, last)       # spojenie bez medzery
csv_line <- paste("Pondelok", "Utorok", "Streda", sep = ",")  # spojenie textov s oddelovacom ,
first; last; full; full_nospace; csv_line   # bodkočiarka tu nahradzuje odskok na novy riadok 

[1] "Veronika"
[1] "Polánová"
[1] "Veronika Polánová"
[1] "VeronikaPolánová"
[1] "Pondelok,Utorok,Streda"

Logické (boolovské) hodnoty a premenné

Základy

p <- TRUE
q <- FALSE
!p                 # NOT

[1] FALSE

p & q              # AND

[1] FALSE

p | q              # OR

[1] TRUE

xor(p, q)          # exclusive OR - platí len jedno z p,alebo q

[1] TRUE

Logický výsledok porovnávania

3 < 5

[1] TRUE

7 >= 7

[1] TRUE

"cat" == "cat"

[1] TRUE

"cat" != "dog"   # vykricnik je tu v zmysle negacie. Napr.:   !=, !>, !<, !TRUE

[1] TRUE

!TRUE

[1] FALSE

Zložitejšie logické operácie

x <- 10
y = 6
x > 5 & x < 20      # a sucasne - logicky prienik (sucin)

[1] TRUE

y > 7 & y < 10

[1] FALSE

x < 0 | x > 100     # alebo - logicke zjednotenie (sucet)

[1] FALSE

y < 2 | y > 75

[1] FALSE

Malé cvičenie

Vytvorte vektor w s číslami 1..20 a vypočítajte sumu všetkých párnych čísel.

w <- 1:30
sum(w[w %% 1 == 0])

[1] 465

Môj návrh použitia novinky

Ako novinku som sa rozhodla ukázať kombináciu textu a čísel.
Pomocou funkcie paste() môžeme jednoducho vytvárať vety, ktoré obsahujú vypočítané hodnoty.

# Premenné s číslami
x <- 8
y <- 3

# Výpočet
sucet <- x + y
rozdiel <- x - y

# Spojenie textu a výsledkov
veta1 <- paste("Súčet čísiel", x, "a", y, "je", sucet)
veta2 <- paste("Rozdiel čísiel", x, "a", y, "je", rozdiel)

veta1

[1] "Súčet čísiel 8 a 3 je 11"

veta2

[1] "Rozdiel čísiel 8 a 3 je 5"