ifelse & if

Funkcijaifelse predstavlja funkciju za uslovno generisanje novih vektora.

Zadatak: U odnosu na dati vektor x generisati vektor y i to na način da za vrijednosti vektora x veće ili jednake od njegove prosječne vrijednosti, vektor y uzima vrijednost 1, a u suprotnom 0.

> #definisati vektor x
> x <- 1:10
> x
 [1]  1  2  3  4  5  6  7  8  9 10
> #izracunati prosjecnu vrijednost elementa vektora x
> mean(x)
[1] 5.5
> x >= mean(x)
 [1] FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE
> #definisati vektor y uz uslov iz zadatka
> y <- ifelse(x >= mean(x), 1, 0)
> y
 [1] 0 0 0 0 0 1 1 1 1 1

Funkcija if predstavlja funkciju za uslovno definisanje procesa.

Zadatak: Za zadati vektor x, ispitati da li je vrijednost vektora veća od 0 i ukoliko jeste prikazati riječ "Pozitivan broj" u suporotnom prikazati "Nula ili negativan broj".

> #definisati vektor x
> x <- 5
> x
[1] 5
> #definisati uslovni proces iz zadatka
> if(x > 0) {
+ print("Pozitivan broj")
+ } else {
+ print("Nula ili negativan")
+ }
[1] "Pozitivan broj"