pert3.R

#menampilkan data ke sekian 
data = c(5,7,6,8,1,2,4)
data [4]

## [1] 8

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

## [1] 5 6 1

#menampilkan data dari variabel data
data [c(4:7)]

## [1] 8 1 2 4

#Example
data = c(1,2,3)

#mengubah data / nilai indeksnya
data = c(5,7,6,8,1,2,4)
data [3] = 9
data

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

data [8] = 3
data[-1]

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

data[5]

## [1] 1

#menampilkan nilai (atau data yg lebih besar dan llebih kecilataupun kurang lebih)

data [data>4]

## [1] 5 7 9 8

data [data>3 & data<8]

## [1] 5 7 4

data [data>7 | data<4]

## [1] 9 8 1 2 3

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

## [1] 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)

## b
## tidak    ya 
##     4     4

prop_a = 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(table(a)/length(a))

barplot(prop_a)