Skaláre (jednotlivé hodnoty)

Numerické skaláre

# Priradenie hodnôt do premenných
a <- 12
b <- 4.2

# Základné aritmetické operácie
sum_ab   <- a + b   # sčítanie
diff_ab  <- a - b   # rozdiel
prod_ab  <- a * b   # násobenie
quot_ab  <- a / b   # delenie
power_ab <- a ^ 2   # umocňovanie
mod_ab   <- a %% 5  # zvyšok po delení 5

# Zaokrúhľovanie
round_b <- round(b)    # najbližšie celé číslo
ceil_b  <- ceiling(b)  # najbližšie vyššie celé číslo
floor_b <- floor(b)    # najbližšie nižšie celé číslo

Malé cvičenie

Vypočítajte:

\[\frac{(47^3+101)}{3}\]

(47^3 + 101) / 3
## [1] 34641.33

Obvody a obsahy

# Zadanie strán trojuholníka
a <- 5
b <- 6
c <- 7

# Obvod trojuholníka
obvod <- a + b + c

# Heronov vzorec pre obsah
s <- obvod / 2
obsah <- sqrt(s * (s - a) * (s - b) * (s - c))

obvod; obsah
## [1] 18
## [1] 14.69694

Textové reťazce

Vytváranie a spájanie

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

# Spojenie s medzerou
cele_meno <- paste(meno, priezvisko)

# Spojenie bez medzery
cele_meno_bez <- paste0(meno, priezvisko)

# Spojenie s vlastným oddeľovačom
ovocie <- paste("jablko", "hruška", "slivka", sep = ";")

meno; priezvisko; cele_meno; cele_meno_bez; ovocie
## [1] "Anna"
## [1] "Novaková"
## [1] "Anna Novaková"
## [1] "AnnaNovaková"
## [1] "jablko;hruška;slivka"

Malé cvičenie

Vytvorte dve textové premenné: názov mesta a krajiny, a spojte ich do jedného reťazca.

mesto <- "Praha"
krajina <- "Česko"
paste(mesto, "je hlavné mesto krajiny", krajina)
## [1] "Praha je hlavné mesto krajiny Česko"

Dĺžka a podreťazce

x <- "Programovanie v R"
nchar(x)        # počet znakov
## [1] 17
substr(x, 1, 11) # prvých 11 znakov
## [1] "Programovan"
toupper(x)       # veľké písmená
## [1] "PROGRAMOVANIE V R"
tolower(x)       # malé písmená
## [1] "programovanie v r"

Logické hodnoty

p <- TRUE
q <- FALSE

!p        # negácia (NOT)
## [1] FALSE
p & q     # logický súčin (AND)
## [1] FALSE
p | q     # logický súčet (OR)
## [1] TRUE
xor(p,q)  # exkluzívne OR – platí presne jedno
## [1] TRUE

Malé cvičenie

Vytvorte dve číselné premenné a overte, či sú obe väčšie ako 15.

a <- 27
b <- 11
(a > 15) & (b > 15)
## [1] FALSE

Porovnávanie

7 > 3
## [1] TRUE
10 <= 10
## [1] TRUE
"R" == "R"
## [1] TRUE
"data" != "model"
## [1] TRUE

Vektory

v1 <- c(2,4,6,8)             # definícia vektora
v2 <- seq(1, 5, by = 1)      # postupnosť 1,2,3,4,5
v3 <- rep(5, times = 4)      # opakovanie hodnoty 5
v4 <- runif(5, 0, 10)        # 5 náhodných čísel z intervalu [0,10]

v1; v2; v3; v4
## [1] 2 4 6 8
## [1] 1 2 3 4 5
## [1] 5 5 5 5
## [1] 9.958873 4.220321 8.213266 9.166746 9.600119

Štatistické príkazy

data <- c(5, 7, 9, 12, 15, 20, 22)

mean(data)      # priemer
## [1] 12.85714
median(data)    # medián
## [1] 12
var(data)       # rozptyl
## [1] 41.80952
sd(data)        # smerodajná odchýlka
## [1] 6.466028
summary(data)   # základná štatistika
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.00    8.00   12.00   12.86   17.50   22.00