# Simulasi isi data dari file tiket_pesawat.csv
isi_csv <- "ID_Transaksi,Maskapai,Rute,Jumlah_Tiket,Harga_Tiket
1,Garuda,Jakarta-Bali,20,1500000
2,Lion Air,Jakarta-Surabaya,15,900000
3,AirAsia,Jakarta-Medan,10,1200000
4,Citilink,Jakarta-Lombok,8,1100000"
# Membaca data ke dalam objek tiket_pesawat
tiket_pesawat <- read.csv(textConnection(isi_csv), header = TRUE, sep = ",")
# Menampilkan data
print(tiket_pesawat)
IyBTaW11bGFzaSBpc2kgZGF0YSBkYXJpIGZpbGUgdGlrZXRfcGVzYXdhdC5jc3YKaXNpX2NzdiA8LSAiSURfVHJhbnNha3NpLE1hc2thcGFpLFJ1dGUsSnVtbGFoX1Rpa2V0LEhhcmdhX1Rpa2V0CjEsR2FydWRhLEpha2FydGEtQmFsaSwyMCwxNTAwMDAwCjIsTGlvbiBBaXIsSmFrYXJ0YS1TdXJhYmF5YSwxNSw5MDAwMDAKMyxBaXJBc2lhLEpha2FydGEtTWVkYW4sMTAsMTIwMDAwMAo0LENpdGlsaW5rLEpha2FydGEtTG9tYm9rLDgsMTEwMDAwMCIKCiMgTWVtYmFjYSBkYXRhIGtlIGRhbGFtIG9iamVrIHRpa2V0X3Blc2F3YXQKdGlrZXRfcGVzYXdhdCA8LSByZWFkLmNzdih0ZXh0Q29ubmVjdGlvbihpc2lfY3N2KSwgaGVhZGVyID0gVFJVRSwgc2VwID0gIiwiKQoKIyBNZW5hbXBpbGthbiBkYXRhCnByaW50KHRpa2V0X3Blc2F3YXQpCg==