Fungsi dasar

simpan = c (10,20,40,15,40)
simpan

## [1] 10 20 40 15 40

fungsi=function(x) 
{ 
 for(i in 1 : length(x)) 
    { 
  if(x[i]<65) 
     { 
   x[i]=x[i]+10; 
     } 
   print(x[i]) 
    } 
} 
A=c(100, 95, 70, 80, 25, 60, 80, 60, 55, 90) 
fungsi(A)

## [1] 100
## [1] 95
## [1] 70
## [1] 80
## [1] 35
## [1] 70
## [1] 80
## [1] 70
## [1] 65
## [1] 90

mode(1000) 

## [1] "numeric"

  simpan=c(1000) 
  mode(simpan)

## [1] "numeric"

  mode("HALO") 

## [1] "character"

  simpan=c("HALO") 
  mode(simpan)

## [1] "character"

  d=c(F)
  d

## [1] FALSE

  a=c(T)
  a

## [1] TRUE

  mode(d)

## [1] "logical"

  mode(a)

## [1] "logical"

  kuadrat=function(x) 
  { 
    print(x*x); 
  } 
  A=c(4) 
  kuadrat(A) 

## [1] 16

  mode(kuadrat) 

## [1] "function"

 A = c(1,2,3)
  B = c(4,5,6)
  C = A+B
  C

## [1] 5 7 9

  A = c(1,2,3)
  B = 2+A
  B

## [1] 3 4 5

  A = c(2,4,6)
  B = c(1,3,5)
  B-A

## [1] -1 -1 -1

  A = c(4,8,12)
  A*0.5

## [1] 2 4 6

  A = c(4,8,12)
  B = c(2,2,2)
  A/B

## [1] 2 4 6

  A = c(3,6,1)
  B = c(2,2,0)
  A^B

## [1]  9 36  1

  A = c(5,2,7)
  B = c(3,2,6)
  C = A%%B
  C

## [1] 2 0 1