syfa-3.R

#pertemuan 3
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

#menampilkan data lebih dari 4
data[data>4]

## [1] 5 7 9 8

#menampilkan data kurang dari 5
data[data<5]

## [1] 1 2 4 3

#menampilkan data yang nilainya lebih besar dari 7 atau lebih dari 4
data[data>3 & data<8]

## [1] 5 7 4

data[data>7|data<4]

## [1] 9 8 1 2 3

#binder di pake untuk malaporan


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

#leght /panjang data
length(nilai)

## [1] 7

#sort/ mengurutkan
sort(nilai)#MENAIK A-Z

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

sort(nilai,decreasing = TRUE)#MENURUN Z-A

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

#SUM/MENJUMLAHKAN
sum(nilai)

## [1] 556

mean(nilai)

## [1] 79.42857

mode(nilai)

## [1] "numeric"

#min nilai minumum
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)
prop_a <-table(a)/length(a)


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

## b
## tidak    ya 
##   0.5   0.5

c<- c("ayam","ayam","udang","udang","ikan")
factor(c) #kategori yang tda sma

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

#barplot
barplot(table(a))

barplot(prop_a)