Dört İslem Fonksiyonu

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