> source("cv5.R")
PROGRAMOVANI V R 
Na dalsi ukol se dostanete klavesou c nebo ENTER. 

1. Pomoci funkce "if" vytvorte program, ktery pro zadane cislo vypise 
zda je zaporne, kladne a nebo 0. 
Called from: eval.with.vis(expr, envir, enclos)
Browse[1]> source("ukol1.R")
Browse[1]> ukol1(-2.1)
Zadane cislo -2.1 je zaporne. 
Browse[1]> ukol1(0)
Zadane cislo 0 je rovno 0. 
Browse[1]> ukol1(2.1)
Zadane cislo 2.1 je kladne. 
Browse[1]> 

2. Pomoci funkce "switch" vytvorte program, ktery pro zadane cislo vypise 
nazev dne v tydnu odpovidajiciho poradi. Rovnez zajistete, aby funkce 
na neexistujici poradi upozornila. 
Called from: eval.with.vis(expr, envir, enclos)
Browse[1]> source("ukol2.R")
Browse[1]> ukol2(4)
[1] "ctvrtek"
Browse[1]> ukol2(0)
Pro poradi 0 odpovidajici den neexistuje! 
Browse[1]> 

3. Pro libovolny vstupni numericky vektor vytvorte funkci, ktera 
pocita kumulovane soucty a souciny. Spravnost programu overte pomoci 
funkci "cumsum" a "cumprod". 
Called from: eval.with.vis(expr, envir, enclos)
Browse[1]> source("ukol3.R")
Browse[1]> ukol3(1:5)
Kumulovany soucet vektoru "v" je roven:  1 3 6 10 15 
pomoci funkce "cumsum":  1 3 6 10 15 
Kumulovany soucin vektoru "v" je roven:  1 2 6 24 120 
pomoci funkce "cumprod":  1 2 6 24 120 
Browse[1]> 

4. Pomoci funkce "apply" zjistete minimalni a maximalni prvky v sloupcich 
vstupni matice. 
Called from: eval.with.vis(expr, envir, enclos)
Browse[1]> A <- matrix(1:16, 4)
Browse[1]> A
     [,1] [,2] [,3] [,4]
[1,]    1    5    9   13
[2,]    2    6   10   14
[3,]    3    7   11   15
[4,]    4    8   12   16
Browse[1]> #prikaz   ### minimalni prvky v sloupcich
[1]  1  5  9 13
Browse[1]> #prikaz   ### maximalni prvky v sloupcich
[1]  4  8 12 16
Browse[1]>