# Mendefinisikan variabel
a <- 42  # Integer (Bilangan bulat)
a <- as.integer(42)
b <- 3.14  # Numeric (Angka desimal)
c <- "Hello"  # Character (Teks)
d <- FALSE  # Logical (Boolean)
e <- c(1, 2, 3)  # Numeric (Vektor angka)
f <- list("Name" = "Alice", "age" = 25)  # List (Kumpulan elemen dengan tipe berbeda)

# Mencetak tipe data tiap variabel

cat(
  "Tipe data a:", class(a), "\n", # Integer

  "Tipe data b:", class(b), "\n", # Numeric
  "Tipe data c:", class(c), "\n", # Character
  "Tipe data d:", class(d), "\n", # Logical
  "Tipe data e:", class(e), "\n", # Numeric
  "Tipe data f:", class(f), "\n"  # List
)

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

# Menggunakan operator langsung
x <- x + 10  # Perbarui nilai x dengan menambahkan 10
combined_text <- paste(text1, text2)  # Gabungkan text1 dan text2
uppercase_text <- toupper(combined_text)  # Mengubah teks menjadi huruf besar

cat(
  "Nilai x:", x, "\n",
  "Teks gabungan:", combined_text, "\n",
  "Teks huruf besar:", uppercase_text, "\n"
)

# Mendefinisikan variabel
a <- 15
b <- 4

# Operasi Aritmatika
jumlah <- a + b # Menambahkan dua angka
selisih <- a - b # Mengurangi satu angka dari angka lainnya
perkalian <- a * b # Mengalikan dua angka
pembagian <- a / b # Membagi satu angka dengan angka yang lainnya
modulo <- a %% b # Mengembalikan sisa pembagian
pangkat <- a ^ b  # a pangkat b

# Membuat variabel baru dan mengonversinya menjadi integer
c <- a / b
c_int <- as.integer(c)  # Mengubah menjadi integer

# Menampilkan hasil
cat(
  "Jumlah dari a dan b:", jumlah, "\n",
  "Selisih dari a dan b:", selisih, "\n",
  "Perkalian dari a dan b:", perkalian, "\n",
  "Pembagian dari a dan b:", pembagian, "\n",
  "Modulo dari a dan b:", modulo, "\n",
  "Pangkat dari a pangkat b:", pangkat, "\n",
  "Variabel baru c sebagai float:", c, "\n",
  "Variabel baru c sebagai integer:", c_int, "\n"
)

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


karakter_pertama <- substr(text, 1, 5) # Ekstrak 5 karakter pertama
jumlah_karakter <- nchar(text) # Menghitung jumlah karakter dalam teks
teks_kecil <- tolower(text) # Mengubah teks menjadi huruf kecil

# Menampilkan hasil
cat(
  "5 karakter pertama:", karakter_pertama, "\n",
  "Jumlah karakter:", jumlah_karakter, "\n",
  "Teks dalam huruf kecil:", teks_kecil, "\n"
)

# Mendefinisikan variabel
x <- 7
y <- 10

# Operator Perbandingan
hasil_x_lebih_dari_y <- x > y  # False
hasil_x_kurang_sama_y <- x <= y  # True (x kurang dari y)
hasil_x_tidak_sama_y <- x != y  # True

# Operator Logika
hasil_logika <- (x > 5) & (y < 20)  # True

# Menampilkan hasil
cat(
  "Apakah x lebih besar dari y?", hasil_x_lebih_dari_y, "\n",
  "Apakah x kurang dari atau sama dengan y?", hasil_x_kurang_sama_y, "\n",
  "Apakah x tidak sama dengan y?", hasil_x_tidak_sama_y, "\n",
  "Evaluasi (x > 5) AND (y < 20):", hasil_logika, "\n"
)

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

# Mengubah num_str ke bilangan bulat (integer) dan menambahkan 10
num_int <- as.integer(num_str)

# Mengubah num_float ke bilangan bulat (integer)
num_int_float <- as.integer(num_float)

# Mengonversi num_float kembali menjadi string
num_str_float <- as.character(num_float)

# Menampilkan hasil
cat(
  "Hasil num_str setelah dikonversi ke integer dan ditambah 10:", num_int + 10, "\n",
  "Hasil num_float setelah dikonversi ke integer:", num_int_float, "\n",
  "Hasil num_float setelah dikonversi menjadi string:", num_str_float, "\n"
)