sintax-pertemuan-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 menjadi 9
data [3] = 9
data [3]

## [1] 9

#menambah data ke-8 menjadi 3
data[8] = 3
#mengurang data
data[-5]

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

#menampilkan data yang nilainya lebih  dan kurang+
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
nilai = c(75,78,77,80,74,90)
#lenght/panjang data/banyak data
length(nilai)

## [1] 6

#sort/mengurutkan
sort(nilai, decreasing = TRUE)

## [1] 90 80 78 77 75 74

#sum/jumlah data
sum(nilai)

## [1] 474

#mean/rata-rata
mean(nilai)

## [1] 79

#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,10,10,40,40,70,90,70,80,60,60,90)
table(a)

## a
## 10 30 40 60 70 80 90 
##  5  1  2  2  2  1  2

b = c("ya","ya","tidak","tidak","tidak","tidak","ya","ya")
table(b)/length(b)

## b
## tidak    ya 
##   0.5   0.5

prop_b = table(b)/length(b)

#untuk melihat kategori
c = c("ayam","ayam","udang","udang","ikan")
factor(c)

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

#barplot
barplot(table(a)/length(a))