#Menyimpan data dalam variabel(Fungsi c)

simpan = c(10, 20, 40, 15, 40)
simpan
## [1] 10 20 40 15 40
simpan[3]
## [1] 40
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

#Mengubah Nilai Data dalam Variabel

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 data dalam variabel

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

#Penggunaan Operator (Lebih Besar Dari)

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

#Penggunaan Operator (Lebih Besar Dari)

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

#Penggunaan Operator (&Dan)

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

#Penggunaan Operator (/Atau)

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

#Penggunaan Operator < (Lebih kecil dari)

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

#Penggunaan Operator > (Lebih besar dari)

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

#Penggunaan Bahasa Pemrograman R

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