2.1 Latar Belakang

Dalam era digital yang terus berkembang, pemasaran menjadi elemen kunci kesuksesan bisnis. Perusahaan menggunakan berbagai strategi dan kanal seperti media online, TV, dan media cetak untuk menjangkau pelanggan dan meningkatkan penjualan. Jenis penawaran seperti diskon atau bonus juga berperan penting dalam menarik minat konsumen.

Namun, tidak semua kampanye pemasaran sukses. Keberhasilan kampanye dipengaruhi oleh berbagai faktor, termasuk pilihan sumber iklan dan jenis penawaran. Oleh karena itu, perusahaan perlu memahami faktor-faktor yang mempengaruhi keputusan pembelian konsumen untuk merancang strategi pemasaran yang lebih efektif.

Sebuah perusahaan ritel ingin mengetahui kombinasi sumber iklan dan jenis penawaran yang paling efektif dalam mendorong konsumen membeli produk mereka. Dengan menganalisis data historis dari kampanye pemasaran sebelumnya, perusahaan berharap membangun model prediksi yang memberikan wawasan berharga tentang pola perilaku konsumen.

Perusahaan mengumpulkan data kampanye pemasaran yang mencakup sumber iklan (Online, TV, Cetak), jenis penawaran (Diskon, Bonus), dan apakah konsumen membeli produk tersebut. Dengan menggunakan analisis regresi logistik, perusahaan berusaha mengidentifikasi pengaruh variabel-variabel ini terhadap keberhasilan kampanye.

Hasil analisis ini diharapkan membantu perusahaan merancang kampanye pemasaran yang lebih efektif, meningkatkan tingkat keberhasilan, dan efisiensi biaya. Model prediksi yang dihasilkan akan memberikan dasar bagi pengambilan keputusan yang lebih terinformasi, memungkinkan perusahaan mengalokasikan sumber daya pemasaran dengan lebih baik dan meningkatkan return on investment (ROI) dari kampanye pemasaran mereka.

3.1 Statistika Deskriptif

Statistika deskriptif adalah cabang dari statistik yang bertujuan untuk menggambarkan, meringkas, dan menyajikan data dalam bentuk yang mudah dipahami. Metode ini sering digunakan untuk memberikan gambaran umum tentang dataset melalui ukuran statistik seperti mean, median, mode, variansi, dan standar deviasi. Statistika deskriptif merupakan dasar yang penting dalam analisis data karena memungkinkan peneliti untuk memahami karakteristik utama dari data yang dikumpulkan sebelum melakukan analisis yang lebih mendalam.

3.2 Statistika Deskriptif

Statistika deskriptif adalah cabang dari statistik yang bertujuan untuk menggambarkan, meringkas, dan menyajikan data dalam bentuk yang mudah dipahami. Metode ini sering digunakan untuk memberikan gambaran umum tentang dataset melalui ukuran statistik seperti mean, median, mode, variansi, dan standar deviasi. Statistika deskriptif merupakan dasar yang penting dalam analisis data karena memungkinkan peneliti untuk memahami karakteristik utama dari data yang dikumpulkan sebelum melakukan analisis yang lebih mendalam.

3.3 Regersi Logistik

Regresi logistik adalah teknik statistik yang digunakan untuk memodelkan hubungan antara satu variabel dependen biner (dichotomous) dan satu atau lebih variabel independen. Regresi logistik sangat berguna dalam situasi di mana hasil yang diinginkan hanya memiliki dua kemungkinan, seperti keberhasilan/gagal, ya/tidak, atau hidup/mati. Teknik ini banyak digunakan dalam berbagai bidang, termasuk ilmu sosial, biomedis, pemasaran, dan teknik.

Menurut Hosmer dan Lemeshow (2000), regresi logistik bertujuan untuk mengestimasi probabilitas terjadinya kejadian tertentu. Berbeda dengan regresi linear yang memprediksi nilai kontinu, regresi logistik memprediksi probabilitas kejadian dari nilai biner.

Regresi logistik biner adalah metode analisis data yang mencari hubungan antara variabel respon biner (y) dan variabel prediktor (x) yang bisa bersifat kategorikal atau kontinu. Variabel respon biner memiliki dua kemungkinan hasil, yaitu: - y = 1, yang menunjukkan kemungkinan sukses dengan probabilitas π(x) - y = 0, yang menunjukkan kemungkinan gagal dengan probabilitas 1−π(x)

Variabel respon (y) mengikuti distribusi Bernoulli untuk setiap observasi tunggal.

3.4 Data

Data yang digunakan dalam penelitian ini merupakan data sekunder. Data sekunder adalah data yang dikumpulkan oleh peneliti melalui sumber-sumber perantara, artinya data tersebut telah dikumpulkan dan dicatat oleh pihak lain

Penelitian ini berfokus pada variabel-variabel sebagai berikut: Keberhasilan Kampanye sebagai variabel dependen dan dua variabel independen yang mempengaruhinya. Definisi operasional dari variabel-variabel tersebut adalah sebagai berikut:

1. Variabel tak bebas adalah Keberhasilan Pemasaran (Y), dengan kategori :

• Berhasil = 1
• Tidak Berhasil = 0

2. Variabel bebas

1. Jenis Penawaran (X1), dengan kategori :

• Diskon = 1
• Bonus = 0

2. Sumber Iklan (X2), dengan kategori :

• Tiktok = 1
• Instagram = 2
• Twitter = 3
• TV = 4
• Media Cetak = 5

4.1 Library

> # Library
> library(readxl)
> library(semEff)
> library(reshape)
> library(MASS)
> library(plotrix)
> library(pscl)
> library(generalhoslem)

Library yang digunakan adalah plotrix sebagai package untuk membentuk piechar, car untuk menghitung VIF masing-masing predictor, readxl untuk membaca file excel.

4.2 Memanggil Data Dan Membentuk Data Frame

> #Import data
> library(readxl)
> Data_logistik <- read_excel("Data laprak2.xlsx")
Error: `path` does not exist: 'Data laprak2.xlsx'

> View(Data_logistik)
Error in eval(expr, envir, enclos): object 'Data_logistik' not found

> str(Data_logistik)
Error in eval(expr, envir, enclos): object 'Data_logistik' not found

> Y <- as.factor(Data_logistik$Y)
Error in eval(expr, envir, enclos): object 'Data_logistik' not found

> X1 <- as.factor(Data_logistik$X1)
Error in eval(expr, envir, enclos): object 'Data_logistik' not found

> X2 <- as.factor(Data_logistik$X2)
Error in eval(expr, envir, enclos): object 'Data_logistik' not found

> str(Y)
Error in eval(expr, envir, enclos): object 'Y' not found

> 
> 
> #Membentuk data frame
> data_logistik<-data.frame(X1,X2,Y)
Error in eval(expr, envir, enclos): object 'X1' not found

> str(data_logistik)
Error in eval(expr, envir, enclos): object 'data_logistik' not found

4.3 Analisis Regresi Logistik

> #Analisis Regresi Logistik
> reglog<-glm(Y~X1+X2,family=binomial,data=data_logistik)
Error in eval(mf, parent.frame()): object 'data_logistik' not found

5.1 Analisis Regresi Logistik

> #Analisis Regresi Logistik
> reglog<-glm(Y~X1+X2,family=binomial,data=data_logistik)
Error in eval(mf, parent.frame()): object 'data_logistik' not found

> summary(reglog)
Error in eval(expr, envir, enclos): object 'reglog' not found

###Asumsi Nonmultikolinieritas

> reglog1 <- glm(X1~X2, family = binomial, data=data_logistik)
Error in eval(mf, parent.frame()): object 'data_logistik' not found

> summary(reglog1)
Error in eval(expr, envir, enclos): object 'reglog1' not found

> R2(reglog1)
Error in eval(expr, envir, enclos): object 'reglog1' not found

> R2_1 <- 1/(1-0.136889844)
> R2_1
[1] 1.158601

> 
> reglog2 <- glm(X2~X1, family = binomial, data =data_logistik)
Error in eval(mf, parent.frame()): object 'data_logistik' not found

> summary(reglog2)
Error in eval(expr, envir, enclos): object 'reglog2' not found

> R2(reglog2)
Error in eval(expr, envir, enclos): object 'reglog2' not found

> R2_2 <- 1/(1-0.060508414)
> R2_2
[1] 1.064405

> #Uji Signifikansi Keseluruhan Model
> R2(reglog)
Error in eval(expr, envir, enclos): object 'reglog' not found

> qchisq(0.95,1)
[1] 3.841459

> #Uji Parsial Parameter Model
> summary(reglog)
Error in eval(expr, envir, enclos): object 'reglog' not found

> #Odds Ratio
> beta<-(coef(reglog))
Error in eval(expr, envir, enclos): object 'reglog' not found

> beta
function (a, b) 
.Internal(beta(a, b))
<bytecode: 0x000001f8672f8b98>
<environment: namespace:base>

> OR_beta<-exp(beta)
Error in exp(beta): non-numeric argument to mathematical function

> OR_beta
Error in eval(expr, envir, enclos): object 'OR_beta' not found

> cbind(beta,OR_beta)
Error in eval(expr, envir, enclos): object 'OR_beta' not found

> #Membentuk klasifikasi
> yp_hat<-fitted(reglog)
Error in eval(expr, envir, enclos): object 'reglog' not found

> data_logistik$yp_hat<-yp_hat
Error in eval(expr, envir, enclos): object 'yp_hat' not found

> data_logistik
Error in eval(expr, envir, enclos): object 'data_logistik' not found

> class<-table(data_logistik$Y,data_logistik$yp_hat>0.5)
Error in eval(expr, envir, enclos): object 'data_logistik' not found

> class
function (x)  .Primitive("class")

> #Uji Kelayakan Model
> logitgof(data_logistik$Y,fitted(reglog))
Error in eval(expr, envir, enclos): object 'reglog' not found