berat_badan = 50
tinggi_badan <- 165.5
berat_badan_mahasiswa <- c(50,60,80)
#rumus bla bla
berat_badan - tinggi_badan
## [1] -115.5
#tipe data string/character
a <- "statistika"
b <- "prodi statistika"
nama_mahasiswa <- c("Ridwan","Surya","Andi")
nama_mahasiswa
## [1] "Ridwan" "Surya" "Andi"
#tipe data boolean
c <- TRUE
d <- FALSE
e <- c(TRUE,TRUE,FALSE,FALSE,TRUE)
e
## [1] TRUE TRUE FALSE FALSE TRUE
A = c(87,86,80,58,87,65)
B = c(82,79,90,78,67,89)
A + B
## [1] 169 165 170 136 154 154
nilai <- c(1:100)
nilai
## [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
## [19] 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
## [37] 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
## [55] 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
## [73] 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
## [91] 91 92 93 94 95 96 97 98 99 100
A = c(87,86,80,58,97)
A[3]
## [1] 80
#matriks
data <- matrix(data = c(1:4), nrow = 2, ncol = 2, byrow = TRUE)
data
## [,1] [,2]
## [1,] 1 2
## [2,] 3 4
A = c(87,86,80,58,87,65)
y <- matrix(data = c(A), nrow = 3, ncol = 2)
y
## [,1] [,2]
## [1,] 87 58
## [2,] 86 87
## [3,] 80 65
B = c(82,79,90,78,67,89)
X <- matrix(data = c(B), nrow = 3, ncol = 2)
X
## [,1] [,2]
## [1,] 82 78
## [2,] 79 67
## [3,] 90 89
jumlah_matrix <- y + X
jumlah_matrix
## [,1] [,2]
## [1,] 169 136
## [2,] 165 154
## [3,] 170 154
#pertemuan 2
#menampilkan data ke-(1,3,5)
data <- c(5,6,7,8,1,2,4)
data [5]
## [1] 1
data [c(1,3,5)]
## [1] 5 7 1
#menampilkan data ke- [1 sampai 7]
data [4:7]
## [1] 8 1 2 4
#mengubah data ke-3
data <- c(5,6,7,8,1,2,4)
data [3] = 9
data
## [1] 5 6 9 8 1 2 4
#menghilangkan data [5]
data [-5]
## [1] 5 6 9 8 2 4
data <- c(5,7,9,8,1,2,4,3)
data [3] = 9
data
## [1] 5 7 9 8 1 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 yang ada di R
#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) #z-a
## [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
b <- c("ya", "ya", "tidak", "tidak", "ya", "ya", "tidak", "tidak")
prop_a <- table(b)/length(b)
c <- c("ya", "ya", "tidak", "tidak", "ya", "ya", "tidak", "tidak")
table(c)/length(c)
## c
## tidak ya
## 0.5 0.5
d <- c("ayam", "ayam", "udang", "udang", "ikan")
factor(d)
## [1] ayam ayam udang udang ikan
## Levels: ayam ikan udang
#barplot
barplot(table(a))
barplot(prop_a)
