windi-R.2.R

#fungsi\function
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

b <- c("ya","ya","tidak","tidak","ya","ya","tidak","tidak")
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(table(a))/length(a)

##         [,1]
## [1,] 0.04375
## [2,] 0.11875
## [3,] 0.19375
## [4,] 0.26875
## [5,] 0.34375
## [6,] 0.41875
## [7,] 0.49375