# data[].attributes.headline
Mau bisa lebih deket lgi sm akang teteh keuangann 🥺

# data[].attributes.subject
Mau bisa lebih deket lgi sm akang teteh keuangann 🥺

# data[].attributes.headline
tolong yg masuin syntax bisa difilter ya

# data[].attributes.subject
tolong yg masuin syntax bisa difilter ya

# data[].attributes.body
#Panggil Data
data <- read.csv(file.choose(), sep=";", header=TRUE)
head(data)
attach(data)

#Statistika Deskriptif
summary(data)

#Visualisasi Plot bar

#Multikol
#VIF
diag(solve(cor(data[,3:7])))

#ANALISIS REGRESI POISSON
#Pembentukan Model
rp1 <- glm(jumlah.penyakit.dbd~kepadatan.penduduk
+jumlah.tenaga.kesehatan
+jumlah.sarana.kesehatan
+ketinggian.wilayah
+keluarga.miskin, data = data, family = poisson)
summary(rp1)

rp2 <- glm(jumlah.penyakit.dbd~
+jumlah.tenaga.kesehatan
+jumlah.sarana.kesehatan
+ketinggian.wilayah
+keluarga.miskin, data = data, family = poisson)
summary(rp2)

exp(coef(rp1))

#Interpretasi model
#1. Untuk setiap penambahan satu satuan var kepadatan penduduk di kecamatan
# pada kabupaten Deli Serdang akan menurunkan jumlah penyakit DBD
# sebesar 100*(1-0.9999888)%= 0.00112%
#
#2. Untuk setiap penambahan satu satuan var jumlah tenaga kesehatan di
# kecamatan pada Kabupaten Deli Serdang akan menaikan jumlah penyakit DBD
# sebesar 100*(1.0113073-1)%=1.13073%
#
#3. Untuk setiap penambahan satu satuan var jumlah sarana kesehatan di
# kecamatan pada Kabupaten Deli Serdang akan menaikan jumlah penyakit DBD
# sebesar 100*(1.0009443-1)%=0.09443%
#
#4. Untuk setiap penambahan satu satuan variabelketinggian wilayah di
# kecamatan padaKabupaten Deli Serdang akan menurunkan jumlah penyakit
# DBD sebear 100*(1-0.9982506)%=0.174%
#
#5. Untuk setiap penambahan satu satuan variabel keluarga miskindi kecamatan
# pada Kabupaten Deli Serdang akan menurunkan jumlah penyakit DBD sebesar
# 100*(1-0.9995774)%=0.04226%.

# data[].attributes.body
yang 21 semangat p2u nya

# data[].attributes.body
monmaap ini bukan kesan pesan malah jadi promosi ya

# data[].attributes.body
bong bong apa?

# data[].attributes.body
makasih yang udah semangatin aldi

# data[].attributes.headline
makasii banyakk akang teteh buat ilmu barunya selama magang, semoga akang teteh lancar terus kuliahnyaa <3

# data[].attributes.subject
makasii banyakk akang teteh buat ilmu barunya selama magang, semoga akang teteh lancar terus kuliahnyaa <3

# data[].attributes.body
alay bgt loch

# data[].attributes.body
love my self <33

# data[].attributes.body
luvv keuangan <3

# data[].attributes.body
taun depan masuk keuangan yaaa!

# data[].attributes.body
mana ini 21 nya:(((

# data[].attributes.body
emg napasi tbl gabole?

# data[].attributes.headline
Keren banget akang teteh keuangann, semangat + sukses pokoknyaa 🤩🔥

# data[].attributes.subject
Keren banget akang teteh keuangann, semangat + sukses pokoknyaa 🤩🔥

# data[].attributes.body
katanya ditunggu di keu

# data[].attributes.body
takut bgt lochhh

# data[].attributes.body
mangatss ivanaa, audreyy, ratnaa, riskaa

# data[].attributes.body
aku boleh isi gaa