Komputasi-Statistik-ikka-2.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 ke 3
data [3] = 9
data

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

#Menambah data atau mengubah data ke 8 
data[8]=3
data

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

#Mengurangi data ke 5
data[-5]

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

data >= 4

## [1]  TRUE  TRUE  TRUE  TRUE FALSE FALSE  TRUE FALSE

data[data>4]

## [1] 5 7 9 8

data[data<5]

## [1] 1 2 4 3

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)


#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 / minimum
min(nilai)

## [1] 74

#max/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) #Menghitung frekuensi

## 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")
table(b)/length(b) #Menghitung Proporsi, (rumus= yang memilih/banyak data *100%)

## b
## tidak    ya 
##   0.4   0.6

c <- c("ayam", "ayam", "udang", "udang", "ikan")
factor(c)

## [1] ayam  ayam  udang udang ikan 
## Levels: ayam ikan udang

#barplot /grafik
barplot(table(a))

barplot(prop_a) #barplot bentuk proporsi