Tugas 2 KOMSTAT_M Fatta arya Irwanda_23337010

#Membaca data dari file CSV
data_bencana<-read.csv("D:/KOMSTAT/Data_Bencana_Provinsi_Sumatera_Barat_Tahun_2018_R.csv")
#Membuat variabel baru Rumah.Rusak
data_bencana$Rumah.Rusak<-data_bencana$Rumah.Rusak.Berat+data_bencana$Rumah.Rusak.Sedang+data_bencana$Rumah.Rusak.Ringan
#Melihat hasil
data_bencana

#Melihat nama-nama kolom dalam data_bencana
names(data_bencana)

##  [1] "Kode_Kab.Kot"         "Nama_kab.kot"         "Kode_bencana"        
##  [4] "Kejadian"             "Lon"                  "Lat"                 
##  [7] "Jumlah.Bencana"       "Meninggal.dan.Hilang" "Menderita"           
## [10] "Mengungsi"            "Rumah.Rusak.Berat"    "Rumah.Rusak.Sedang"  
## [13] "Rumah.Rusak.Ringan"   "Faskes.Rusak"         "Rumah.Ibadah.Rusak"  
## [16] "Sekolah.Rusak"        "Rumah.Rusak"

#Menghapus kolom ke-
data_bencana2<-data_bencana[,-c(1,3,5,6,9,10,11,12,13,14,15,16)]
#Melihat Hasil
data_bencana2

#Membuat data frame
data <- data.frame(
  Nama = c("Josephine", "Peter", "Adam", "Lisiana", "Anthony", 
           "Gabriela", "Mario", "Suan", "Laura", "Evelyn"),
  Usia = c(17, 20, 19, 18, 21, 19, 21, 21, 22, 19),
  Tinggi_cm = c(167, 154, 183, 165, 168, 160, 170, 164, 156, 153),
  Berat_kg = c(57, 62, 80, 55, 70, 78, 65, 58, 54, 43))

#Menghitung BMI
data$BMI <- data$Berat_kg / (data$Tinggi_cm / 100) ^ 2

# Mengkategorikan BMI
data$Kategori <- cut(data$BMI, 
                     breaks = c(-Inf, 18.5, 24.9, 29.9, Inf), 
                     labels = c("Under Weight / Kurus", "Normal", "Over Weight / Kegemukan", "Obesitas"))

#Melihat Hasil
data