PERTEMUAN_3.R

#PERTEMUAN 3 STATISTIKA KOMPUTASI

data <- c(5,7,6,8,1,2,4)
data [5]

## [1] 1

data [c (1,3,5)]

## [1] 5 6 1

data [4:7]

## [1] 8 1 2 4

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

data [data>7 | data<4]

## [1] 9 8 1 2 3

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

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

## [1] 7

#sort/mengurutkan
sort(nilai)

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

sort(nilai, decreasing = TRUE)

## [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
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

#proporsi
table(b)/length(b)

## b
## tidak    ya 
##   0.5   0.5

#bagusnya disimpan dalam satu variabel
Prop_a = table(a)/length(a)

c = c("ayam", "ayam", "udang", "udang", "ikan")
#faktor
factor(c)

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

#barplot
barplot(table(a))

barplot(table(b)/length(b))

barplot(Prop_a)