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
## [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
## [1] 5 7 9 8 1 2 4 3
data[data<4 | data>7]
## [1] 9 8 1 2 3
#fungsi / fungtion
nilai <- c(75, 78, 77, 80, 82, 74, 90)
#length / panjang/banyak data
length(nilai)
## [1] 7
#sort / mengurutkan
sort(nilai)
## [1] 74 75 77 78 80 82 90
sort(nilai)
## [1] 74 75 77 78 80 82 90
#mean / rata - rata
mean(nilai)
## [1] 79.42857
#min / nilai minimum
min(nilai)
## [1] 74
#max / nilai max
max(nilai)
## [1] 90
#sgrt / akar
sqrt(max(nilai))
## [1] 9.486833
a <- c(10,10,30,10,10,30,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
b <- c("ya","ya","tidak","tidak","ya","ya","tidak","tidak")
sur <-table(b)/length(b)
c <- c("ayam","ayam","udang","udang","ikan")
factor(c)
## [1] ayam ayam udang udang ikan
## Levels: ayam ikan udang
#barplot
barplot(table(a))
barplot(sur)
