#menampilkan data ke 5
data <- c(5,7,6,8,1,2,4)
data [5]
## [1] 1
#menampilkan data (1,3,5)
data [c(1,3,5)]
## [1] 5 6 1
#menampilkan 4 sampai 7
data [4:7]
## [1] 8 1 2 4
#di ganti data ke 3(6) menjadi 9
data [3] = 9
data
## [1] 5 7 9 8 1 2 4
data [8] = 3
data
## [1] 5 7 9 8 1 2 4 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
#fungsi fungsi
nilai <- c(75,78,77,80,82,74,90)
#Length / panjang data
length(nilai)
## [1] 7
#sort / mengurutkan
#A-Z
sort(nilai)
## [1] 74 75 77 78 80 82 90
#Z-A
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 minimun
min(nilai)
## [1] 74
#max / nilai maksimun
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
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)
## [1] ayam ayam udang udang ikan
## Levels: ayam ikan udang
#barplot
barplot(table(a))
barplot(prop_a)
