pertemuan-3-latihan.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 sampai 7
data [4:7]

## [1] 8 1 2 4

#mengubah data 3 jadi 9
data [3] = 9

#menambahkan data 
data [8] = 3

#menghilangkan data ke 5
data [-5]

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

#menampilkan data lebih dari 4)
data [data>4]

## [1] 5 7 9 8

#menmpilkan data kurang dari 5
data [data<5]

## [1] 1 2 4 3

#menampilkan data di atas 3 di bawah 8
data [data>3 & data<8]

## [1] 5 7 4

#nilai di atas 7 di atau di bawah 4
data [data>7 | data<4]

## [1] 9 8 1 2 3

#fungsi / function
nilai = c (75, 78, 77, 80, 82, 74, 90)

#langth / 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

a = c(10,10,30,10,30,10,10,40,40,70,90,70,80,60,60,90)
prop_a = table(a)/length(a)
prop_a

## a
##     10     30     40     60     70     80     90 
## 0.3125 0.1250 0.1250 0.1250 0.1250 0.0625 0.1250

b = c("ya", "ya", "tidak", "tidak", "ya", "ya", "tidak","tidak")
table(b)

## b
## tidak    ya 
##     4     4

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

## b
## tidak    ya 
##   0.5   0.5

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)