1. Praktikum
1.1 Indentifikasi Tipe Data
1.1.1 Indentifikasi tipe data setiap variabel
a <- 42 # Integer(int)
b <- 3.14 # Double (Numeric)
c <- "Hello" # Character
d <- FALSE # Logical
e <- c(1, 2, 3) # Vektor (Numeric)
f <- list(name = "Alice", age = 25) # List
1.1.2 Cetak tipe data
## [1] "class(a) = numeric"
## [1] "class(b) = numeric"
## [1] "class(c) = character"
## [1] "class(d) = logical"
## [1] "class(e) = numeric"
## [1] "class(f) = list"
1.2 Variabel dan Manipulasi Data
1.2.1 Perbarui nilai x dengan menambahkan 10
x <- 20
Jumlah <- x + 10
print(Jumlah)
## [1] 30
1.2.2 Gabungkan text 1 dan text 2
text1 <- "Data"
text2 <- "Science"
Gabungan <- paste(text1, text2)
print(Gabungan)
## [1] "Data Science"
1.2.3 Mengubah teks gabungan menjadi huruf besar
text1 <- "Data"
text2 <- "Science"
Gabungan <- paste(text1, text2)
toupper(Gabungan)
## [1] "DATA SCIENCE"
1.3 Operasi Arimatika
1.3.1 Hitunglah Jumlah, Selisih, Produk, Pembagian, dan Modulo dari
a dan b
a = 15
b = 4
Jumlah <- a + b
print(paste("Jumlah =", Jumlah))
## [1] "Jumlah = 19"
a = 15
b = 4
Selisih <- a - b
print(paste("Selisih =", Selisih))
## [1] "Selisih = 11"
a = 15
b = 4
Produk <- a * b
print(paste("Produk =", Produk))
## [1] "Produk = 60"
a = 15
b = 4
Pembagian <- a / b
print(paste("Produk =", Pembagian))
## [1] "Produk = 3.75"
a = 15
b = 4
Modulo <- a %% b
print(paste("Produk =", Modulo))
## [1] "Produk = 3"
1.3.2 Hitunglah a pangkat b
a = 15
b = 4
Pangkat <- a ^ b
print(paste("Pangkat =", Pangkat))
## [1] "Pangkat = 50625"
1.3.3 Buat variabel baru ubah integer
a = 15
b = 4
c <- a / b
Jumlah_int <- as.integer(c)
print(Jumlah_int)
## [1] 3
1.4 Operasi String
1.4.1 Ekstrak 5 karakter pertama
Text = "Hello, Data Science!"
print(substr(Text, 1, 5))
## [1] "Hello"
1.4.2 Hitunglah Jumlah karakter dalam teks
Text = "Hello, Data Science!"
print(nchar(Text))
## [1] 20
1.4.2 Mengubah teks menjadi huruf kecil
Text = "Hello, Data Science!"
print(tolower(Text))
## [1] "hello, data science!"
1.5 Operator Perbandingan dan logika
1.5.1 Periksa apakah x lebih dari y
# R
x = 7
y = 10
print(x > y)
## [1] FALSE
1.5.2 Periksa apakah x kurang dari atau sama dengan y
# R
x = 7
y = 10
print(x <= y)
## [1] TRUE
1.5.3 Periksa apakah x tidak sama dengan y
# R
x = 7
y = 10
print(x != y)
## [1] TRUE
1.5.4 Evaluasi ekspresi (x > 5) & (y < 20)
# R
x = 7
y = 10
print((x > 5) & (y < 20))
## [1] TRUE
1.6 Konversi Tipe Data
1.6.1 Ubah num_str ke bilangan bulat dan tambahkan 10
num_str <- "123"
Num <- as.numeric(num_str)
Jumlah <- Num + 10
print(paste("Ubah =", Num))
## [1] "Ubah = 123"
print(paste("Jumlah =", Jumlah))
## [1] "Jumlah = 133"
1.6.2 Ubah num_float ke bilangan bulat
num_float = 45.67
Num <- as.integer(num_float)
print(Num)
## [1] 45
1.6.3 Mengonversi num_float kembali menjadi string
num_float = 45.67
Num <- as.character(num_float)
print(Num)
## [1] "45.67"
Bonus Challenge
Buat Program interaktif dengan memasukan data
# Untuk input
# nama <- readline(prompt = "Nama : ")
# usia <- readline(prompt = "Usia: ")
# kota <- readline(prompt = "Kota Kelahiran: ")
nama = "Syifa"
usia = 19
kota = "Purwakarta"
cat("Hello,", nama, "your age", usia, "years old and from", kota)
## Hello, Syifa your age 19 years old and from Purwakarta