#A. Menyimpan data dalam variabel(Fungsi c)
simpan = c (10, 20, 40, 15, 40)
simpan
## [1] 10 20 40 15 40
simpan = c (1000, 2000, 4000, 5000)
simpan
## [1] 1000 2000 4000 5000
#B. Mengakses nilai data dalam variabel secara individual
simpan = c (10, 20, 40, 15, 40)
simpan [3]
## [1] 40
simpan = c (10, 20, 40, 15, 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
#C. 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
#D. 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
#E. 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
#F. 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<70]
## [1] 25 60 60 55
#G. 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
#H. 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
#I. Lebih Lanjut 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
#J. Lebih Lanjut 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
#K. Contoh sederhana penggunaan dari 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
#L. Jenis Data R
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"