# 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)