> #definisati funkciju koja sabira dva broja
> add <- function(x, y) {
+ return(x + y)
+ }
> #primijeniti funkciju
> add(x = 5, y = 10)
[1] 15
>
> #definisati funkciju za izvjestaj deskriptivne statistike
> desc.stat <- function(x) {
+ as <- mean(x, na.rm = TRUE)
+ stdev <- sd(x, na.rm = TRUE)
+ x.min <- min(x, na.rm = TRUE)
+ x.max <- max(x, na.rm = TRUE)
+ res <- data.frame(as = as, stdev = stdev, min = x.min, max = x.max)
+ return(res)
+ }
> #definisati vjestacki data frame
> db <- data.frame(x = 1:10, y = 11:20)
> head(db)
x y
1 1 11
2 2 12
3 3 13
4 4 14
5 5 15
6 6 16
> #primijeniti funkciju na jednu kolonu data framea
> desc.stat(x = db[, 1])
as stdev min max
1 5.5 3.02765 1 10
> #primijeniti funkciju na sve kolone data framea
> t(sapply(db, desc.stat))
as stdev min max
x 5.5 3.02765 1 10
y 15.5 3.02765 11 20
