Fungsi dasar dalam R

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

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

## [1] 16

mode(kuadrat)

## [1] "function"