Untitled

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

simpan1 = c(1000, 2000, 3000, 4000, 5000) simpan1

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

Mengakses nilai data secara individual

simpan[3] simpan[4] simpan[c(1, 3, 4)] simpan[2:4]

Mengubah nilai data dalam variabel

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

Menghapus nilai data dalam variabel

NILAI = c(10, 40, 45, 30, 80) NILAI = NILAI[-3] NILAI = NILAI[-4] NILAI = NILAI[c(-1, -3)]

Penggunaan Operator > (Lebih Besar Dari)

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

Penggunaan Operator < (Lebih Kecil Dari)

NILAI[NILAI < 70]

Penggunaan Operator & (Dan)

NILAI[NILAI > 60 & NILAI < 80]

Penggunaan Operator | (Atau)

NILAI[NILAI > 80 | NILAI < 30]

Lebih Lanjut Penggunaan Operator <

NILAI = NILAI[NILAI < 75]

Lebih Lanjut Penggunaan Operator >

NILAI = NILAI[NILAI > 90]

Contoh Sederhana Penggunaan Bahasa Pemrograman R

Nilai yang lebih kecil dari 65 ditambah dengan 10

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)

Jenis data R

Numerik

mode(1000)

simpan = c(1000) mode(simpan)

Character

mode(“halo”)

simpan = c(“halo”) mode(simpan)

Logika

d = c(F) d

a = c(T) a

mode(d) mode(a)

Contoh pembuatan fungsi kuadrat

kuadrat = function(x) { print(x * x) }

A = c(4) kuadrat(A) mode(kuadrat)

Operator Penjumlahan +, Pengurangan -, Perkalian *,

Pembagian /, Pangkat ^, Sisa %%

A = c(1, 2, 3) B = c(4, 5, 6)

C = A + B C

A = c(1, 2, 3) B = c(4, 5, 6)

B - A

A = c(1, 2, 3) A * 0.5

A = c(1, 2, 3) B = c(4, 5, 6)

C = A / B C

A = c(1, 2, 3) B = c(4, 5, 6)

C = A ^ B C

A = c(1, 2, 3) B = c(4, 5, 6)

C = A %% B C

Fungsi length

A = c(100, 70, 80, 55, 80, 70, 80) length(A)

Fungsi sort

A = c(70, 80, 50, 25, 100, 60) sort(A)

Fungsi diff

A = c(100, 50, 70, 80, 60) diff(A)

Fungsi sum

A = c(50, 60, 70, 80) sum(A)

Fungsi sqrt

sqrt(81)

Fungsi max dan min

A = c(10, 25, 90, 75, 95, 57) max(A)

A = c(10, 25, 90, 75, 95, 57) min(A)

Fungsi exp

exp(1) exp(2)

Fungsi pi

pi

Fungsi options

options(digits = 3) pi

Fungsi seq

seq(from = 1, to = 10) seq(from = 2, by = 0.5, length.out = 4)

Fungsi table

A = c(10, 10, 30, 10, 30, 10, 10, 40, 40, 70, 90, 70, 80, 60, 60, 90)

table(A)

table(A) / length(A)

Data character

hasil = c(“ya”, “tidak”, “ya”, “ya”, “ya”, “ya”, “tidak”, “ya”, “tidak”, “ya”)

table(hasil)

table(hasil) / length(hasil)

Fungsi factor

A = c(“ikan”, “ikan”, “udang”, “ikan”, “udang”, “ikan”, “ikan”, “udang”)

factor(A)

A = c(“sarjana”, “diploma”, “sarjana”, “pengangguran”, “sarjana”, “diploma”, “diploma”, “pengangguran”)

factor(A)

Fungsi barplot

A = c(10, 10, 10, 10, 20, 20, 30, 30, 30, 30, 30, 30)

barplot(table(A))

A = c(10, 10, 10, 10, 20, 20, 30, 30, 30, 30, 30, 30)

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

Fungsi plot

A = c(10, 10, 10, 10, 10, 20, 20, 20, 30, 30, 40)

table(A)

nilai = c(10, 20, 30, 40) frekuensi = c(5, 3, 2, 1)

plot(nilai, frekuensi)

A = c(10, 10, 10, 10, 10, 20, 20, 20, 30, 30, 40)

plot(table(A)) ```