Funkce \ Porozumění cizímu kódu

• built-in functions: instalují se rovnou s R
• knihovny s funkcemi:
  • jednou nainstalovat
  • při každém sezení připojit
• vlastní funkce:
  • v kódu jednoho skriptu
  • ve zvláštním souboru, zavolat ze souboru se skriptem
• repozitář oficiálních knihoven: CRAN https://cran.r-project.org/

tolower("ABC")

[1] "abc"

help("tolower")

nebo

?tolower

Nápověda se objeví v listu Help v pravém dolním okně

v builtin balíčku base, spolu s funkcí chartr - jsou vysvětleny pohromadě

• Argumenty požadované na vstupu: tolower chce znakový vektor nebo něco, z čeho si znakový vektor umí vytvořit sama.

• Musíme znát konkrétní název funkce.
• Nápověda zná vždy jen funkce knihoven, které jsou zrovna připojené.

• Připojit knihovnu: library(název knihovny v uvozovkách nebo bez nich)
• Nainstalovat knihovnu, když ji nemáme: install.packages(název)
• V RStudiu panel Packages
• Sledovat hlášky v konzoli (něco odsouhlasit)

sample(x, size, replace=FALSE, prob=NULL)

my_sample <- 1:2
set.seed(885) #aby se nahodny generator cisel choval vzdy stejne 
sample(x = my_sample, size = 2)

[1] 2 1

sample(my_sample, 2)

[1] 1 2

sample(size = 2, x = my_sample) #musime pojmenovat,kdyz prehodime poradi

[1] 1 2

moje_funkce <- function(argumenty na vstupu) {
  tady nejaky kod
}

Funkce vygeneruje hromadnou vstupenku podle počtu lidí. Přednastavené hodnoty argumentů.

vytiskni_vstupenku <- function(pocet_osob = 1, cena = 100, 
                        sleva_proc = 50, 
                        od_kolika_osob = 4) {
  vyse_slevy <- 0
  cena <- cena
  if (pocet_osob >= od_kolika_osob) {
    vyse_slevy <- sleva_proc * 0.01 * cena
    cena <- cena - vyse_slevy
  } 
  cat("Festival KOKOKO", "\n", "Osob: ", pocet_osob, "\n", "Sleva Kč: ", vyse_slevy, "\n", "Cena po slevě Kč: ", cena)
}