#Menyimpan Data dalam Variabel (Fungsi c)

simpan = c (27, 10, 8, 19, 21, 12, 10, 3, 2, 4)
simpan
##  [1] 27 10  8 19 21 12 10  3  2  4

#Mengakses Nilai Data dalam Variabel secara Individual

simpan = c (27, 10, 8, 19, 21, 12, 10, 3, 2, 4)
simpan[5]
## [1] 21
simpan[c(3, 6, 9)]
## [1]  8 12  2
simpan[4:8]
## [1] 19 21 12 10  3

#Mengubah Nilai Data dalam Variabel

simpan = c (27, 10, 8, 19, 21, 12, 10, 3, 2, 4)
simpan[5]=20
simpan[10]=3
simpan
##  [1] 27 10  8 19 20 12 10  3  2  3

#Menghapus Nilai Data dalam Variabel

nilai = c (27, 10, 8, 19, 21, 12, 10, 3, 2, 4)
nilai = nilai[-4]
nilai
## [1] 27 10  8 21 12 10  3  2  4
nilai = nilai[-3]
nilai
## [1] 27 10 21 12 10  3  2  4
nilai = nilai[c(-3,-8)]
nilai
## [1] 27 10 12 10  3  2

#Penggunaan Operator > (Lebih Besar Dari)

nilai = c (27, 10, 8, 19, 21, 12, 10, 3, 2, 4)
nilai
##  [1] 27 10  8 19 21 12 10  3  2  4
nilai[nilai>10]
## [1] 27 19 21 12

#Penggunaan Operator < (Lebih Kecil Dari)

nilai = c (27, 10, 8, 19, 21, 12, 10, 3, 2, 4)
nilai
##  [1] 27 10  8 19 21 12 10  3  2  4
nilai[nilai<10]
## [1] 8 3 2 4

#Penggunaan Operator & (Dan)

nilai = c (27, 10, 8, 19, 21, 12, 10, 3, 2, 4)
nilai
##  [1] 27 10  8 19 21 12 10  3  2  4
nilai[nilai>10 & nilai<25]
## [1] 19 21 12

#Penggunaan Operator | (Atau)

nilai = c (27, 10, 8, 19, 21, 12, 10, 3, 2, 4)
nilai
##  [1] 27 10  8 19 21 12 10  3  2  4
nilai[nilai>10 | nilai<25]
##  [1] 27 10  8 19 21 12 10  3  2  4

#Lebih Lanjut Penggunaan Operator < (Lebih Kecil Dari)

nilai = c (27, 10, 8, 19, 21, 12, 10, 3, 2, 4)
nilai
##  [1] 27 10  8 19 21 12 10  3  2  4
nilai=nilai[nilai<10]
nilai
## [1] 8 3 2 4

#Lebih Lanjut Penggunaan Operator > (Lebih Besar Dari)

nilai = c (27, 10, 8, 19, 21, 12, 10, 3, 2, 4)
nilai
##  [1] 27 10  8 19 21 12 10  3  2  4
nilai=nilai[nilai>10]
nilai
## [1] 27 19 21 12

#Contoh Sederhana Penggunaan dari Bahasa Pemrograman R

fungsi=function(x)
{
  for (i in 1 : length(x))
  {
    if (x[i]<70)
    {
      x[i]=x[i]+20;
    }
    print(x[i])
  }
}
A = c(50, 77, 89, 94, 100, 99, 40, 88, 73, 94)
fungsi(A)
## [1] 70
## [1] 77
## [1] 89
## [1] 94
## [1] 100
## [1] 99
## [1] 60
## [1] 88
## [1] 73
## [1] 94

#Jenis Data R

mode(345)
## [1] "numeric"
simpan=c(345)
mode(simpan)
## [1] "numeric"
mode("STATISTIKA")
## [1] "character"
simpan=c("STATISTIKA")
mode(simpan)
## [1] "character"
a = c (F)
a
## [1] FALSE
b = c (F)
b
## [1] FALSE
mode(a)
## [1] "logical"
mode(b)
## [1] "logical"
kuadrat=function(x) 
{ 
print(x*x); 
} 
A = c (5) 
kuadrat(A) 
## [1] 25
mode(kuadrat) 
## [1] "function"

#Operator Penjumlahan +, Pengurangan -, Perkalian *, Pembagian /, Pangkat ^, Sisa %%

K = c (3, 6, 9, 12)
L = c (4, 8, 12, 16)
N = K + L
N
## [1]  7 14 21 28
K = c (3, 6, 9, 12)
O = 4 + K
O
## [1]  7 10 13 16
K = c (3, 6, 9, 12)
L = c (4, 8, 12, 16)
P = L - K
P
## [1] 1 2 3 4
L = c (4, 8, 12, 16)
M = c (2, 2, 2, 2)
Q = L / M
Q
## [1] 2 4 6 8
L = c (4, 8, 12, 16)
M = c (2, 2, 2, 2)
R = L^M
R
## [1]  16  64 144 256
K = c (3, 6, 9, 12)
L = c (4, 8, 12, 16)
S = L%%K
S
## [1] 1 2 3 4

#Fungsi Length

A = c (99, 60, 87, 73, 85, 100, 67, 95, 79, 80)
length(A)
## [1] 10
A = c (99, 60, 87, 73, 85, 100, 67, 95, 79, 80)
sort(A)
##  [1]  60  67  73  79  80  85  87  95  99 100

#Fungsi Diff

A = c (99, 60, 87, 73, 85, 100, 67, 95, 79, 80)
diff(A)
## [1] -39  27 -14  12  15 -33  28 -16   1

#Fungsi Sum

A = c (99, 60, 87, 73, 85, 100, 67, 95, 79, 80)
sum(A)
## [1] 825

#Fungsi sqrt

A = sqrt(2401)
A
## [1] 49
B = sqrt(A)
B
## [1] 7

#Fungsi max dan min

A = c (99, 60, 87, 73, 85, 100, 67, 95, 79, 80)
max(A)
## [1] 100
min(A)
## [1] 60

#Fungsi exp

exp(1)
## [1] 2.718282
exp(2)
## [1] 7.389056
exp(3)
## [1] 20.08554

#Fungsi pi atau 𝝅

pi
## [1] 3.141593

#Fungsi options

options(digits = 3)
pi
## [1] 3.14
options(digits = 15)
pi
## [1] 3.14159265358979

#Fungsi seq

seq(from = 10, to = 25)
##  [1] 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
seq(from = 5, by = 2.5, length.out=5)
## [1]  5.0  7.5 10.0 12.5 15.0
panggil=function(x,y,z) 
{ 
  a=x; 
  print(a); 
  for(i in x : z) 
  { 
    a=a+y; 
    if(a>z) 
    { 
      break; 
    } 
  print(a); 
  } 
} 
panggil(0,3,30)
## [1] 0
## [1] 3
## [1] 6
## [1] 9
## [1] 12
## [1] 15
## [1] 18
## [1] 21
## [1] 24
## [1] 27
## [1] 30
seq(0, 30, 3)
##  [1]  0  3  6  9 12 15 18 21 24 27 30

#Fungsi Table

A = c (99, 60, 87, 73, 85, 100, 67, 95, 79, 80)
table(A)
## A
##  60  67  73  79  80  85  87  95  99 100 
##   1   1   1   1   1   1   1   1   1   1
table(A)/length(A)
## A
##  60  67  73  79  80  85  87  95  99 100 
## 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
hasil = c ("tidak", "tidak", "iya", "tidak", "iya", "iya", "iya", "tidak", "iya", "tidak")
table(hasil)
## hasil
##   iya tidak 
##     5     5
table(hasil)/length(hasil)
## hasil
##   iya tidak 
##   0.5   0.5

#Fungsi Faktor

A=c("kucing", "anjing", "kelinci", "hamster", "ikan", "kucing", "burung", "anjing", "kelinci", "ikan", "hamster", "kucing")
factor(A)
##  [1] kucing  anjing  kelinci hamster ikan    kucing  burung  anjing  kelinci
## [10] ikan    hamster kucing 
## Levels: anjing burung hamster ikan kelinci kucing
A=c("komedi", "horor", "aksi", "romantis", "fantasi", "thriller", "komedi", "horor", "animasi", "aksi", "fantasi", "romantis")
factor(A)
##  [1] komedi   horor    aksi     romantis fantasi  thriller komedi   horor   
##  [9] animasi  aksi     fantasi  romantis
## Levels: aksi animasi fantasi horor komedi romantis thriller

#Fungsi barplot

A = c (5, 5, 5, 10, 10, 15, 15, 15, 20, 20, 20, 25)

barplot(table(A))

barplot(table(A)/length(A))

A = c (5, 5, 5, 10, 10, 15, 15, 15, 20, 20, 20, 25)

barplot(table(A))

#Fungsi Plot

A = c (5, 5, 5, 10, 10, 15, 15, 15, 20, 20, 20, 25)
table(A)
## A
##  5 10 15 20 25 
##  3  2  3  3  1
nilai = c  (5, 10, 15, 20, 25)
frekuensi = c (3, 2, 3, 3, 1)
plot(nilai,frekuensi)

A = c (5, 5, 5, 10, 10, 15, 15, 15, 20, 20, 20, 25)
plot(table(A))