Girilen iki degerin toplamini, farkini, carpimini ve bolumunu veren fonksiyonu oluşturalım.
islem <- function(x=0,y=0) {
a <- x + y
b <- x - y
c <- x * y
d <- x / y
return(c(a, b, c, d))
}
islem(1,3)
## [1] 4.0000000 -2.0000000 3.0000000 0.3333333
islem(2,4)
## [1] 6.0 -2.0 8.0 0.5
islem()
## [1] 0 0 0 NaN