pertemuan-two.R

#fungsi
#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) 

#sum/menjumlahkan
sum (nilai)

## [1] 556

#mean /rata2
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")
table(b)/length(b)

## b
## tidak    ya 
##   0.5   0.5

#faktor(untuk melihat kategori data yang banyak)
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)