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

# Mencetak tipe data 
hasil <- paste(
  "Tipe data dari setiap variabel:\n",
  "a:", class(a), "\n",
  "b:", class(b), "\n",
  "c:", class(c), "\n",
  "d:", class(d), "\n",
  "e:", class(e), "\n",
  "f:", class(f), "\n"
)
cat(hasil)

# Mendefinisikan variabel
x <- 20
y <- 5
text1 <- "Data"
text2 <- "Science"

# 1. Perbarui nilai x dengan menambahkan 10
x <- x + 10

# 2. Gabungkan text1 dan text2 menjadi "Data Science"
gabungan <- paste(text1, text2)

# 3. Ubah teks yang digabungkan menjadi huruf besar
gabungan_upper <- toupper(gabungan)

# Gunakan invisible() agar tidak tampil di output
invisible({
  cat("Nilai x setelah diperbarui:", x, "\n")
  cat("Teks gabungan:", gabungan, "\n")
  cat("Teks gabungan dalam huruf besar:", gabungan_upper, "\n")
})

# Mendefinisikan variabel
a <- 15
b <- 4

# 1. Hitung jumlah, perbedaan, produk, pembagian, dan modulo
jumlah <- a + b      # Penjumlahan
perbedaan <- a - b   # Pengurangan
produk <- a * b      # Perkalian
pembagian <- a / b   # Pembagian
modulo <- a %% b     # Modulo

# Menampilkan hasil
jumlah

perbedaan

produk

pembagian

modulo

# 2. Pangkat (a^b)
pangkat <- a ^ b
pangkat

# 3. Membuat variabel baru dengan hasil pembagian sebagai bilangan bulat
c <- a %/% b
c

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

# Menghitung jumlah huruf
letter_count <- nchar(gsub(" ", "", text))

# Mengubah teks menjadi huruf kecil
lowercase_text <- tolower(text)

# Menampilkan hasil
substring(text, 1, 5)  # Menampilkan 5 karakter pertama

cat("Jumlah huruf dalam teks:", letter_count, "\n")  # Menampilkan jumlah huruf

cat("Teks huruf kecil:", lowercase_text, "\n")  # Menampilkan teks dalam huruf kecil

x <- 7
y <- 10

hasil <- c(
  x > y,
  x <= y,
  x != y,
  (x > 5) & (y < 20)
)

print(hasil)

num_str <- "123"
num_float <- 45.67

num1 <- as.integer(num_str)  # Konversi string ke integer
num2 <- as.integer(num_float)  # Konversi float ke integer
num3 <- as.character(num2)  # Konversi integer ke string

print(num1 + 1)  # Cetak num1 + 1

print(num2)  # Cetak num2

print(num3)  # Cetak num3