Skaláre

a <- 18
b <- 7

a + b
## [1] 25
a - b
## [1] 11
a * b
## [1] 126
a / b
## [1] 2.571429
a^2
## [1] 324
b^3
## [1] 343

Malé cvičenie (Skaláre)

Vymyslel som si: Mám 18 lístkov po 3.80 € a 10 lístkov po 5.50 €.
Vypočítaj celkovú cenu a koľko mi zostane z 150 €.

lacne <- 18
drahsie <- 10
cena_lacne <- 3.80
cena_drahsie <- 5.50

spolu <- lacne*cena_lacne + drahsie*cena_drahsie
spolu
## [1] 123.4
zostatok <- 150 - spolu
zostatok
## [1] 26.6

Text

meno <- "Martin"
priezvisko <- "Koller"

cele_meno <- paste(meno, priezvisko)
cele_meno
## [1] "Martin Koller"
nchar(cele_meno)
## [1] 13
toupper(cele_meno)
## [1] "MARTIN KOLLER"
tolower(cele_meno)
## [1] "martin koller"

Malé cvičenie (Text)

Vytvor vetu: “Študent vysokej školy Martin je zároveň profesionálnym športovcom.”

veta <- paste("Študent vysokej školy", meno, 
              "je zároveň profesionálnym športovcom.")
veta
## [1] "Študent vysokej školy Martin je zároveň profesionálnym športovcom."

Logické hodnoty

x <- 12
y <- 8

x > y
## [1] TRUE
x < y
## [1] FALSE
x == 12
## [1] TRUE
x != y
## [1] TRUE

Zároveň a alebo - využitie

(x > y) & (x == 12)
## [1] TRUE
(x < y) | (y == 8)
## [1] TRUE

Malé cvičenie (Logické hodnoty)

Zisti, či je číslo 120 deliteľné 4 aj 5. V druhej časti zsiti, či je 120 delitelná 13 alebo 19

cislo <- 120

delitelne_4 <- cislo %% 4 == 0
delitelne_5 <- cislo %% 5 == 0
delitelne_13 <- cislo %% 13 == 0
delitelne_19 <- cislo %% 19 == 0

delitelne_4 & delitelne_5
## [1] TRUE
delitelne_13 | delitelne_19
## [1] FALSE

Vektory

znamky <- c(1, 2, 3, 1, 2, 2, 1)

znamky
## [1] 1 2 3 1 2 2 1
mean(znamky)
## [1] 1.714286
sum(znamky)
## [1] 12
length(znamky)
## [1] 7

Indexovanie

znamky[1]
## [1] 1
znamky[3:5]
## [1] 3 1 2

Malé cvičenie (Vektory)

Vytvor vektor týždenných teplôt a zisti: - priemernú teplotu - najvyššiu teplotu - najnižšiu teplotu

teploty <- c(3, 8, 1, 10, 9, 5, 12)

mean(teploty)
## [1] 6.857143
max(teploty)
## [1] 12
min(teploty)
## [1] 1

Matice

matica <- matrix(1:9, nrow = 3, ncol = 3)
matica
##      [,1] [,2] [,3]
## [1,]    1    4    7
## [2,]    2    5    8
## [3,]    3    6    9

Prístup k prvkom

matica[1,2]
## [1] 4
matica[,1]
## [1] 1 2 3
matica[2,]
## [1] 2 5 8

Súčet riadkov a stĺpcov

rowSums(matica)
## [1] 12 15 18
colSums(matica)
## [1]  6 15 24

Malé cvičenie (Matice)

Vytvor maticu 2x3 s vlastnými číslami a vypočítaj: - súčet všetkých prvkov - priemer všetkých prvkov

moja_matica <- matrix(c(1, 2, 3, 4, 5, 6), 
                      nrow = 2, 
                      byrow = TRUE)

moja_matica
##      [,1] [,2] [,3]
## [1,]    1    2    3
## [2,]    4    5    6
sum(moja_matica)
## [1] 21
mean(moja_matica)
## [1] 3.5

Môj návrh použitia novinky

V tejto časti pracujem s dátovým rámcom a vykonávam jednoduchú analýzu údajov.

Vytvorenie dátového rámca

studenti <- data.frame(
  meno = c("Martin", "Ema", "Lenka", "Vilo", "Julka"),
  body = c(90, 91, 75, 70, 85)
)

studenti

Filtrovanie študentov s viac ako 80 bodmi

uspesni <- studenti[studenti$body > 80, ]
uspesni

Výpočet priemeru bodov

mean(studenti$body)
## [1] 82.2

Vytvorenie jednoduchého grafu

barplot(studenti$body,
        names.arg = studenti$meno,
        main = "Počet bodov študentov",
        col = "yellow")