Pertemuan-2.R

data <- c(5,7,6,8,1,2,4)
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]

## [1] 8 1 2 4

data [3] <- 9
data

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

data <- c(data,3)
data [8] = 3
data [-5]

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

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

#menampilkan data yang nilainya lebih besar dari 7 atau lebih kecil dari 4
data [data>7 | data<4]

## [1] 9 8 1 2 3

#Fungsi / function
#nama fungsi ()
nilai <- c(75,77,80,82,74,90)

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

## [1] 6

#sort / mengurutkan
sort(nilai) #a-z

## [1] 74 75 77 80 82 90

sort(nilai, decreasing = TRUE) #z-a

## [1] 90 82 80 77 75 74

#sum / menjumlahkan
sum (nilai)

## [1] 478

#mean / rata-rata
mean(nilai)

## [1] 79.66667

#min / minimum
min (nilai)

## [1] 74

#max / maksimum
max (nilai)

## [1] 90

#sqrt / akar
sqrt(max(nilai))

## [1] 9.486833

a <- c(10,20,30,40,50,60,70,80,90,10,20,30,40,40,50)
prop_a <- table (a)/length(a)

b <- c("ya", "ya", "tidak", "tidak", "ya", "tidak", "ya")
table (b)

## b
## tidak    ya 
##     3     4

proportions(table (b))

## b
##     tidak        ya 
## 0.4285714 0.5714286

c <- c("ya", "ya", "ya", "ya", "tidak", "tidak", "tidak", "tidak")
table (c)

## c
## tidak    ya 
##     4     4

proportions(table(c))

## c
## tidak    ya 
##   0.5   0.5

table(c)/length(c)

## c
## tidak    ya 
##   0.5   0.5

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

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

#barplot
barplot (table(a))

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

barplot (prop_a)