Fungsi Dasar R

##Menyimpan Data dalam Variabel (Fungsi c) dan mengeksekusinya

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

## [1] 10 20 40 15 40

simpan[3]

## [1] 40

simpan[4]

## [1] 15

simpan = c (10, 20, 40, 15, 40)
simpan[4]

## [1] 15

simpan[c(1,3,4)]

## [1] 10 40 15

simpan[2:4]

## [1] 20 40 15

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

## [1] 10 20 40 15 40

simpan[3]=100
simpan[4]=10000
simpan

## [1]    10    20   100 10000    40

#Menghapus Nilai Data dalam Variabel

NILAI=c(10, 40, 45, 30, 80)
NILAI

## [1] 10 40 45 30 80

NILAI=NILAI[-3]
NILAI

## [1] 10 40 30 80

NILAI=NILAI[-4]
NILAI

## [1] 10 40 30

NILAI=NILAI[c(-1,-3)]
NILAI

## [1] 40

#Sintaks dan output untuk Gambar 2.22

NILAI=c(100, 95, 70, 80, 25, 60, 80, 60, 55, 90)
NILAI

##  [1] 100  95  70  80  25  60  80  60  55  90

NILAI[NILAI>80]

## [1] 100  95  90

#Sintaks dan output untuk Gambar 2.24

NILAI=c(100, 95, 70, 80, 25, 60, 80, 60, 55, 90)
NILAI

##  [1] 100  95  70  80  25  60  80  60  55  90

NILAI[NILAI<70]

## [1] 25 60 60 55

#Sintaks dan output untuk Gambar 2.26

NILAI=c(100, 95, 70, 80, 25, 60, 80, 60, 55, 90)
NILAI

##  [1] 100  95  70  80  25  60  80  60  55  90

NILAI[NILAI>60&NILAI<80]

## [1] 70

#Sintaks dan output untuk Gambar 2.28

NILAI=c(100, 95, 70, 80, 25, 60, 80, 60, 55, 90)
NILAI

##  [1] 100  95  70  80  25  60  80  60  55  90

NILAI[NILAI>80 | NILAI<30]

## [1] 100  95  25  90

#Sintaks dan output untuk Gambar 2.30

NILAI=c(100, 95, 70, 80, 25, 60, 80, 60, 55, 90)
NILAI

##  [1] 100  95  70  80  25  60  80  60  55  90

NILAI=NILAI[NILAI<75]
NILAI

## [1] 70 25 60 60 55

#Sintaks dan output untuk Gambar 2.32

NILAI=c(100, 95, 70, 80, 25, 60, 80, 60, 55, 90)
NILAI

##  [1] 100  95  70  80  25  60  80  60  55  90

NILAI=NILAI[NILAI>90]
NILAI

## [1] 100  95

#Sintaks dan output untuk Gambar 2.34

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