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
#fungsi/function
nilai <-c(75,78,77,80,82,74,90)
#length/panjang data
length(nilai)
## [1] 7
#sort/mengurutkan
sort(nilai) #A-Z
## [1] 74 75 77 78 80 82 90
sort(nilai, decreasing = TRUE) #Z-A
## [1] 90 82 80 78 77 75 74
#sum/menjumlahhkan
sum(nilai)
## [1] 556
#mean/rata-rata
mean(nilai)
## [1] 79.42857
#min/nilai minimum
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)/length(a)
## a
## 10 30 40 60 70 80 90
## 0.3125 0.1250 0.1250 0.1250 0.1250 0.0625 0.1250
b <- c("ya","ya","tidak","tidak","ya","ya","tidak","tidak")
table(b)/length(b)
## b
## tidak ya
## 0.5 0.5
#keberangaman level
c <-c("ayam","ayam","udang","udang","ikan")
factor(c)
## [1] ayam ayam udang udang ikan
## Levels: ayam ikan udang
#barplot
barplot(table(a))
barplot(table(a)/length(a))
