data <- c(5,7,6,8,1,2,4)
data[c (1,3,5)] #memanggil data ke 1,3,5
## [1] 5 6 1
data[c (4:2)] #memanggil 3 data
## [1] 8 6 7
data <- c(1,2,3)
data[4] #Na artinya tdk memiliki data
## [1] NA
#menambahkan data
data <- c(5,7,6,8,1,2,4)
data [8] = 3
data
## [1] 5 7 6 8 1 2 4 3
#menganti data ke-3 jdi 3
data <- c(5,7,6,8,1,2,4)
data [3] = 3
data
## [1] 5 7 3 8 1 2 4
#menghapus data atau menghilangkan data
data <- c(5,7,6,8,1,2,4)
data [-4]
## [1] 5 7 6 1 2 4
#menampilkan data yang nilainya lebih besar 4
data <- c(5,7,9,8,1,2,4,3)
data[data>4]
## [1] 5 7 9 8
data [data<5]
## [1] 1 2 4 3
data [data>3 & data<8] # &(dan) harus memenuhi 2 syrat
## [1] 5 7 4
data [data>7|data<4] # |(atau) bisa salah satu memenuhi
## [1] 9 8 1 2 3
#fungsi/function, nama fungsi()
nilai <- c(75,78,77,80,82,74,90)
#length/panjang data/banyak data
length (nilai)
## [1] 7
#sort / mengurutkan nilai
sort(nilai) # menaik (kecil ke besar)
## [1] 74 75 77 78 80 82 90
sort(nilai, decreasing = TRUE) #menurun (besar ke kecil)
## [1] 90 82 80 78 77 75 74
#sum / menjumlahkan
sum(nilai)
## [1] 556
#mean/rata-rata
mean(nilai)
## [1] 79.42857
#min / minimum
min(nilai)
## [1] 74
#max / maximum
max(nilai)
## [1] 90
#sqrt / akar
sqrt (max(nilai))
## [1] 9.486833
sqrt (min(nilai))
## [1] 8.602325
a<- c(10,10,30,10,30,10,10,40,40,70,90,70,80,60,60,90)
table(a)
## a
## 10 30 40 60 70 80 90
## 5 2 2 2 2 1 2
b <- c("ya","ya","tidak","tidak","ya","ya")
table(b)
## b
## tidak ya
## 2 4
#cara menghitung proporsi
b <- c("ya","ya","tidak","tidak","tidak","ya","ya", "tidak")
table(b)/length(b)
## b
## tidak ya
## 0.5 0.5
#faktor untuk melihat kategori
c <- c("ayam","ayam","udang","udang","ikan")
factor(c)
## [1] ayam ayam udang udang ikan
## Levels: ayam ikan udang
#barplot
barplot(table(a)/length(a))
