pertemuan2.R

data <- c(5,7,6,8,1,2,4)

#menampilkan data ke-5
data[5]

## [1] 1

#menampilkan data ke-1,3,5
data[c(1,3,5)]

## [1] 5 6 1

#menampilkan data ke-4 sammpai 7
data[4:7]

## [1] 8 1 2 4

#mengubah data ke-3
data[3] = 9

#mengubah data ke-8
data[8] = 3

#menampilkan data tanpa data ke-5
data[-5]

## [1] 5 7 9 8 2 4 3

#menampilkan data yang nilainya lebih dari 4
data[data>4]

## [1] 5 7 9 8

#menampilkan data yang nilainya kurang dari 5
data[data<5]

## [1] 1 2 4 3

#menampilkan data yang nilainya lebih besar dari 7 atau lebih kecil dari 4
data[data>7 | data<4]

## [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
sort(nilai) #a-z

## [1] 74 75 77 78 80 82 90

sort(nilai, decreasing = TRUE) #z-a

## [1] 90 82 80 78 77 75 74

#sum / menjumlahkan
sum(nilai)

## [1] 556

#mean / rata-rata
mean(nilai)

## [1] 79.42857

#min / nilai minimum
min(nilai)

## [1] 74

#max / nilai maksimum
max(nilai)

## [1] 90

#sqrt / akar
sqrt(max(nilai))

## [1] 9.486833

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

prop_a <- table(a)/length(a)

b <- c("ya", "ya" ,"tidak", "tidak", "ya" , "ya", "tidak", "tidak")
prop_b <- table(b)/length(b)

c <- c("ayam", "ayam", "udang", "udang", "ikan")
factor(c)

## [1] ayam  ayam  udang udang ikan 
## Levels: ayam ikan udang

#barplot
barplot(table(a))

barplot(prop_a)