FUNGSI DASAR DALAM R

simpan = c (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