Jawaban Soal R

1.8.1 Identifying Data Types

# Mendefinisikan variabel
a <- 42
b <- 3.14
c <- "Hello"
d <- FALSE
e <- c(1, 2, 3)  # Vektor dalam R
f <- list(name = "Alice", age = 25)  # List di R

# Mencetak tipe data
print(paste("Tipe data a:", class(a)))

## [1] "Tipe data a: numeric"

print(paste("Tipe data b:", class(b)))

## [1] "Tipe data b: numeric"

print(paste("Tipe data c:", class(c)))

## [1] "Tipe data c: character"

print(paste("Tipe data d:", class(d)))

## [1] "Tipe data d: logical"

print(paste("Tipe data e:", class(e)))

## [1] "Tipe data e: numeric"

print(paste("Tipe data f:", class(f)))

## [1] "Tipe data f: list"

x <- 20
y <- 5
text1 <- "Data"
text2 <- "Science"

# Update nilai x dengan menambah 10
x <- x + 10
print(paste("1.8.2 - Nilai x setelah ditambah 10:", x))

## [1] "1.8.2 - Nilai x setelah ditambah 10: 30"

# Menggabungkan text1 dan text2 menjadi "Data Science"
text_combined <- paste(text1, text2)
print(paste("1.8.2 - Teks gabungan:", text_combined))

## [1] "1.8.2 - Teks gabungan: Data Science"

# Mengubah teks gabungan menjadi huruf besar
text_upper <- toupper(text_combined)
print(paste("1.8.2 - Teks dalam huruf besar:", text_upper))

## [1] "1.8.2 - Teks dalam huruf besar: DATA SCIENCE"

a <- 15
b <- 4

# Operasi aritmatika dasar
sum_result <- a + b
diff_result <- a - b
prod_result <- a * b
div_result <- a / b
mod_result <- a %% b  # Modulo

# Cetak hasil operasi aritmatika
print(paste("1.8.3 - Penjumlahan:", sum_result))

## [1] "1.8.3 - Penjumlahan: 19"

print(paste("1.8.3 - Pengurangan:", diff_result))

## [1] "1.8.3 - Pengurangan: 11"

print(paste("1.8.3 - Perkalian:", prod_result))

## [1] "1.8.3 - Perkalian: 60"

print(paste("1.8.3 - Pembagian:", div_result))

## [1] "1.8.3 - Pembagian: 3.75"

print(paste("1.8.3 - Modulo:", mod_result))  # <-- Perbaikan di sini!

## [1] "1.8.3 - Modulo: 3"

x <- 7
y <- 10

# Perbandingan antara x dan y
print(paste("1.8.5 - Apakah x > y?", x > y))

## [1] "1.8.5 - Apakah x > y? FALSE"

print(paste("1.8.5 - Apakah x <= y?", x <= y))

## [1] "1.8.5 - Apakah x <= y? TRUE"

print(paste("1.8.5 - Apakah x != y?", x != y))

## [1] "1.8.5 - Apakah x != y? TRUE"

# Evaluasi ekspresi logika
result <- (x > 5) & (y < 20)
print(paste("1.8.5 - Apakah (x > 5) AND (y < 20)?", result))

## [1] "1.8.5 - Apakah (x > 5) AND (y < 20)? TRUE"

num_str <- "123"
num_float <- 45.67

# Konversi num_str ke integer dan tambah 10
num_int <- as.integer(num_str) + 10
print(paste("1.8.6 - Hasil konversi num_str ke integer dan ditambah 10:", num_int))

## [1] "1.8.6 - Hasil konversi num_str ke integer dan ditambah 10: 133"

# Konversi num_float ke integer
num_float_to_int <- as.integer(num_float)
print(paste("1.8.6 - Hasil konversi num_float ke integer:", num_float_to_int))

## [1] "1.8.6 - Hasil konversi num_float ke integer: 45"

# Konversi hasil num_float_to_int kembali ke string
num_back_to_str <- as.character(num_float_to_int)
print(paste("1.8.6 - Hasil konversi integer kembali ke string:", num_back_to_str))

## [1] "1.8.6 - Hasil konversi integer kembali ke string: 45"