komputasi-2.R

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

## [1] 1

data [c(1,3,5)]

## [1] 5 6 1

data [c(4:7)]

## [1] 8 1 2 4

data [4:7] #memanggil data ke 4 sampai 7

## [1] 8 1 2 4

#mengubah data ke 3
data [3]=9
data

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

#menambahkan data ke 8
data [8]=3
data

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

#menghapus data ke 5
data [-5]

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

#menampilkan data diatas 4
data [data>4]

## [1] 5 7 9 8

data [data<5]

## [1] 1 2 4 3

#menampilkan data 3 dan 8
data [data>3 & data <8]

## [1] 5 7 4

#menampilkan data 7 atau 4
data [data>7|data<4]

## [1] 9 8 1 2 3

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

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

## [1] 7

#sort/mengurutkan
sort(nilai) #naik

## [1] 74 75 77 78 80 82 90

sort(nilai, decreasing = TRUE) #menurun

## [1] 90 82 80 78 77 75 74

#sum/ menjumlahkan
sum(nilai)

## [1] 556

#mean
mean(nilai)

## [1] 79.42857

#min
min(nilai)

## [1] 74

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

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)