1 Mengidentifikasi Tipe Data di R

Berikut adalah variabel yang akan kita identifikasi tipe datanya:

# Menentukan variabel
a <- 42
b <- 3.14
c <- "Hello"
d <- FALSE
e <- c(1, 2, 3)
f <- list(name = "Alice", age = 25)
# Menampilkan tipe data dengan class()

class(a)  # numeric (R treats integers and floats as numeric)
## [1] "numeric"
class(b)  # numeric
## [1] "numeric"
class(c)  # character
## [1] "character"
class(d)  # logical
## [1] "logical"
class(e)  # numeric (vector of numbers)
## [1] "numeric"
class(f)  # list
## [1] "list"

2 Variabel dan Manipulasi Data

Definisikan Variabel

# Mendefinisikan variabel
x <- 20
y <- 5
text1 <- "Data"
text2 <- "Science"
# Memperbarui nilai x dengan menambahkan 10
x <- x + 10
paste("Nilai x setelah ditambahkan 10:", x)
## [1] "Nilai x setelah ditambahkan 10: 30"
# Menggabungkan text1 dan text2
result <- paste(text1, text2)
paste("Gabungan text1 dan text2:", result)
## [1] "Gabungan text1 dan text2: Data Science"
# Mengubah teks gabungan menjadi huruf besar
result_upper <- toupper(result)
paste("Teks gabungan dalam huruf besar:", result_upper)
## [1] "Teks gabungan dalam huruf besar: DATA SCIENCE"

3 Operasi Aritmatika

Definisikan Variabel

# Mendefinisikan variabel
a <- 15
b <- 4

# Operasi aritmatika
jumlah <- a + b
selisih <- a - b
produk <- a * b
pembagian <- a / b
modulo <- a %% b

# Menampilkan hasil
paste("Jumlah a dan b:", jumlah)
## [1] "Jumlah a dan b: 19"
paste("Selisih a dan b:", selisih)
## [1] "Selisih a dan b: 11"
paste("Produk a dan b:", produk)
## [1] "Produk a dan b: 60"
paste("Pembagian a dan b:", pembagian)
## [1] "Pembagian a dan b: 3.75"
paste("Modulo a dan b:", modulo)
## [1] "Modulo a dan b: 3"
# Menghitung a pangkat b
pangkat <- a^b
paste("a pangkat b:", pangkat)
## [1] "a pangkat b: 50625"
# Membuat variabel baru c = a / b dan mengubahnya menjadi integer
c <- a / b
c_int <- as.integer(c)
paste("c = a / b sebagai integer:", c_int)
## [1] "c = a / b sebagai integer: 3"

4 Operasi String

Definisikan Teks

# Mendefinisikan teks
text <- "Hello, Data Science!"

# Ekstrak 5 karakter pertama
first_five <- substr(text, 1, 5)
paste("5 karakter pertama:", first_five)
## [1] "5 karakter pertama: Hello"
# Hitung jumlah karakter dalam teks
char_count <- nchar(text)
paste("Jumlah karakter dalam teks:", char_count)
## [1] "Jumlah karakter dalam teks: 20"
# Ubah teks menjadi huruf kecil
text_lower <- tolower(text)
paste("Teks dalam huruf kecil:", text_lower)
## [1] "Teks dalam huruf kecil: hello, data science!"

5 Operator Perbandingan dan Logika

Definisikan Variabel

# Mendefinisikan variabel
x <- 7
y <- 10

# Periksa apakah x lebih besar dari y
is_x_greater <- x > y
paste("Apakah x lebih besar dari y?", is_x_greater)
## [1] "Apakah x lebih besar dari y? FALSE"
# Periksa apakah x kurang dari atau sama dengan y
is_x_less_equal <- x <= y
paste("Apakah x kurang dari atau sama dengan y?", is_x_less_equal)
## [1] "Apakah x kurang dari atau sama dengan y? TRUE"
# Periksa apakah x tidak sama dengan y
is_x_not_equal <- x != y
paste("Apakah x tidak sama dengan y?", is_x_not_equal)
## [1] "Apakah x tidak sama dengan y? TRUE"
# Evaluasi ekspresi (x > 5) AND (y < 20)
is_condition_true <- (x > 5) & (y < 20)
paste("Evaluasi ekspresi (x > 5) AND (y < 20):", is_condition_true)
## [1] "Evaluasi ekspresi (x > 5) AND (y < 20): TRUE"

6 Konversi Tipe Data

Definisikan Variabel

# Mendefinisikan variabel
num_str <- "123"
num_float <- 45.67

# Ubah num_str ke bilangan bulat dan tambahkan 10
num_int <- as.integer(num_str) + 10
paste("num_str menjadi bilangan bulat dan ditambah 10:", num_int)
## [1] "num_str menjadi bilangan bulat dan ditambah 10: 133"
# Ubah num_float ke bilangan bulat
num_int_float <- as.integer(num_float)
paste("num_float menjadi bilangan bulat:", num_int_float)
## [1] "num_float menjadi bilangan bulat: 45"
# Mengonversi num_float kembali menjadi string
num_str_float <- as.character(num_float)
paste("num_float menjadi string:", num_str_float)
## [1] "num_float menjadi string: 45.67"

7 Tantangan Bonus

Input Nama, Usia, dan Kota Kelahiran

# Data yang sudah dimasukkan
name <- "M. Alfayed Safaad"  
age <- "18"                  
hometown <- "Lahat"          

# Menampilkan output sesuai dengan format
cat(paste("Hello", name, ", you are", age, "years old and from", hometown, "."))
## Hello M. Alfayed Safaad , you are 18 years old and from Lahat .