R-OKTAA-pertemuan-2.R

#fungsi yang ada diR
# nama_fungsi
nilai <- c(75, 78,80,82,74, 90)


#length / panjang data / banyak data
length (nilai)

## [1] 6

#sort / mengurutkan
sort(nilai) #menaik #a-z

## [1] 74 75 78 80 82 90

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

## [1] 90 82 80 78 75 74

#sum / menjumlahkan
sum(nilai)

## [1] 479

#mean/ rata-rata
mean(nilai)

## [1] 79.83333

#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_b <- table(a)/length(a)


b <- c("ya", "ya", "tidak", "tidak", "ya", "ya", "tidak", "tidak")
table(b)

## b
## tidak    ya 
##     4     4

table (b)/length(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_b)