data = read_excel('C:/Users/Toshiba/Downloads/Teori Keputusan (Jawaban).xlsx', sheet = 'Sheet1')
## New names:
## • `Berapa tingkat kepentingannya?` -> `Berapa tingkat kepentingannya?...2`
## • `Berapa tingkat kepentingannya?` -> `Berapa tingkat kepentingannya?...4`
## • `Berapa tingkat kepentingannya?` -> `Berapa tingkat kepentingannya?...6`
## • `Berapa tingkat kepentingannya?` -> `Berapa tingkat kepentingannya?...8`
## • `Berapa tingkat kepentingannya?` -> `Berapa tingkat kepentingannya?...10`
## • `Berapa tingkat kepentingannya?` -> `Berapa tingkat kepentingannya?...12`
## • `Tiktokshop vs Shopee` -> `Tiktokshop vs Shopee...13`
## • `Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian
## aplikasi e-commerce yang telah dipilih!` -> `Berdasarkan pilihan anda,
## berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah
## dipilih!...14`
## • `Tiktokshop vs Tokopedia` -> `Tiktokshop vs Tokopedia...15`
## • `Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian
## aplikasi e-commerce yang telah dipilih!` -> `Berdasarkan pilihan anda,
## berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah
## dipilih!...16`
## • `Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian
## aplikasi e-commerce yang telah dipilih!` -> `Berdasarkan pilihan anda,
## berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah
## dipilih!...18`
## • `Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian
## aplikasi e-commerce yang telah dipilih!` -> `Berdasarkan pilihan anda,
## berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah
## dipilih!...20`
## • `Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian
## aplikasi e-commerce yang telah dipilih!` -> `Berdasarkan pilihan anda,
## berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah
## dipilih!...22`
## • `Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian
## aplikasi e-commerce yang telah dipilih!` -> `Berdasarkan pilihan anda,
## berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah
## dipilih!...24`
## • `Tiktokshop vs Shopee` -> `Tiktokshop vs Shopee...25`
## • `Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian
## aplikasi e-commerce yang telah dipilih!` -> `Berdasarkan pilihan anda,
## berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah
## dipilih!...26`
## • `Tiktokshop vs Tokopedia` -> `Tiktokshop vs Tokopedia...27`
## • `Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian
## aplikasi e-commerce yang telah dipilih!` -> `Berdasarkan pilihan anda,
## berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah
## dipilih!...28`
## • `Tokopedia vs Shopee` -> `Tokopedia vs Shopee...29`
## • `Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian
## aplikasi e-commerce yang telah dipilih!` -> `Berdasarkan pilihan anda,
## berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah
## dipilih!...30`
## • `Tiktokshop vs Shopee` -> `Tiktokshop vs Shopee...31`
## • `Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian
## aplikasi e-commerce yang telah dipilih!` -> `Berdasarkan pilihan anda,
## berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah
## dipilih!...32`
## • `Tiktokshop vs Tokopedia` -> `Tiktokshop vs Tokopedia...33`
## • `Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian
## aplikasi e-commerce yang telah dipilih!` -> `Berdasarkan pilihan anda,
## berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah
## dipilih!...34`
## • `Tokopedia vs Shopee` -> `Tokopedia vs Shopee...35`
## • `Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian
## aplikasi e-commerce yang telah dipilih!` -> `Berdasarkan pilihan anda,
## berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah
## dipilih!...36`
View(data)
# Matriks Perbandingan
# Kriteria
## Harga Produk vs Kemudahan Penggunaan Aplikasi
A_vs_B = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Harga Produk vs Kemudahan Penggunaan Aplikasi`[i] == 'Harga Produk') {
A_vs_B[i] = data$`Berapa tingkat kepentingannya?...2`[i]
}
else {
A_vs_B[i] = round(1/data$`Berapa tingkat kepentingannya?...2`[i],2)
}
}
A_vs_B
## [1] 8.00 7.00 9.00 7.00 5.00 9.00 1.00 7.00 0.14 5.00 3.00 3.00 5.00 2.00 3.00
## [16] 0.20 0.33 9.00 0.33 8.00 3.00 1.00 9.00 4.00 0.33 7.00 0.14 0.20 0.20 5.00
## [31] 9.00 5.00 0.12 5.00 8.00 1.00 0.12 7.00 3.00 0.33 7.00 5.00 5.00 7.00 3.00
## [46] 5.00 9.00 6.00 8.00 4.00 0.11 3.00 5.00 0.20 6.00 7.00 5.00 3.00 8.00 6.00
## [61] 7.00 9.00 0.20 0.11 7.00 0.12 9.00 8.00 7.00 0.14 0.20 1.00 9.00 0.20 7.00
## [76] 0.11 3.00 1.00 5.00 9.00 5.00 6.00 3.00 0.12 0.17 3.00 0.11 7.00 0.14 5.00
## [91] 7.00 7.00
## Harga Produk vs Promo/Diskon
A_vs_C = rep(0,92)
for (i in 1:length(A_vs_C)) {
if (data$`Harga Produk vs Promo/Diskon`[i] == 'Harga Produk') {
A_vs_C[i] = data$`Berapa tingkat kepentingannya?...4`[i]
}
else {
A_vs_C[i] = round(1/data$`Berapa tingkat kepentingannya?...4`[i],2)
}
}
A_vs_C
## [1] 0.14 5.00 0.20 0.11 0.14 9.00 0.17 0.20 0.12 8.00 5.00 0.14 1.00 0.20 0.33
## [16] 0.20 0.11 1.00 1.00 8.00 0.20 1.00 0.20 6.00 0.25 0.11 7.00 0.33 0.20 0.20
## [31] 7.00 1.00 9.00 0.14 8.00 1.00 0.14 0.14 0.20 0.20 0.20 5.00 0.14 0.11 0.33
## [46] 1.00 0.20 0.14 0.17 0.11 0.11 0.14 0.14 0.11 6.00 0.50 7.00 1.00 8.00 5.00
## [61] 5.00 0.33 0.33 8.00 0.12 0.14 0.25 0.12 0.20 0.12 0.20 0.20 0.11 7.00 5.00
## [76] 0.11 1.00 1.00 1.00 0.11 0.14 7.00 0.25 0.12 0.12 0.11 9.00 0.14 0.20 3.00
## [91] 3.00 3.00
## Kemudahan vs Keamanan
B_vs_D = rep(0,92)
for (i in 1:length(B_vs_D)) {
if (data$`Kemudahan Penggunaan Aplikasi vs Keamanan`[i] == 'Kemudahan Penggunaan Aplikasi') {
B_vs_D[i] = data$`Berapa tingkat kepentingannya?...6`[i]
}
else {
B_vs_D[i] = round(1/data$`Berapa tingkat kepentingannya?...6`[i],2)
}
}
B_vs_D
## [1] 7.00 0.11 0.12 7.00 0.11 0.11 0.25 0.11 0.11 0.20 1.00 0.11 0.33 1.00 2.00
## [16] 0.20 0.11 1.00 0.14 0.11 0.11 0.11 0.20 0.17 0.50 9.00 0.11 0.11 0.14 0.20
## [31] 0.12 0.14 0.11 0.11 0.14 0.11 0.11 0.11 0.20 0.20 0.11 3.00 0.14 0.11 0.25
## [46] 1.00 0.20 6.00 0.14 0.11 0.11 1.00 0.12 0.11 0.12 3.00 0.11 1.00 5.00 0.20
## [61] 2.00 0.20 0.11 0.11 0.11 0.11 0.11 0.12 3.00 8.00 0.20 0.20 0.25 0.14 0.11
## [76] 0.11 0.20 0.50 1.00 0.11 0.14 0.14 0.11 0.14 0.11 0.17 0.11 0.20 0.11 1.00
## [91] 0.14 0.20
## Kemudahan vs Diskon/Promo
B_vs_C = rep(0,92)
for (i in 1:length(B_vs_C)) {
if (data$`Kemudahan Penggunaan Aplikasi vs Diskon/Promo`[i] == 'Kemudahan Penggunaan Aplikasi') {
B_vs_C[i] = data$`Berapa tingkat kepentingannya?...8`[i]
}
else {
B_vs_C[i] = round(1/data$`Berapa tingkat kepentingannya?...8`[i],2)
}
}
B_vs_C
## [1] 7.00 0.14 0.11 0.11 0.33 0.14 1.00 0.14 8.00 0.25 1.00 0.33 0.33 0.33 0.33
## [16] 5.00 0.14 1.00 7.00 9.00 0.20 0.33 0.14 9.00 3.00 0.11 7.00 0.20 5.00 0.25
## [31] 0.17 0.33 7.00 0.14 0.12 9.00 8.00 0.14 0.33 7.00 0.14 0.20 0.14 0.11 0.25
## [46] 0.11 0.11 0.14 0.17 0.11 0.11 0.14 0.14 7.00 0.17 0.14 0.20 0.25 0.20 6.00
## [61] 0.14 0.17 5.00 9.00 0.14 8.00 0.12 0.12 0.20 0.14 5.00 0.20 0.11 7.00 0.17
## [76] 0.11 0.50 1.00 1.00 0.11 0.14 6.00 0.25 0.12 0.12 0.11 9.00 0.20 6.00 0.20
## [91] 0.17 0.20
## Keamanan vs Diskon/Promo
D_vs_C =rep(0,92)
for (i in 1:length(D_vs_C)) {
if (data$`Keamanan vs Diskon/Promo`[i] == 'Keamanan') {
D_vs_C[i] = data$`Berapa tingkat kepentingannya?...10`[i]
}
else {
D_vs_C[i] = round(1/data$`Berapa tingkat kepentingannya?...10`[i],2)
}
}
D_vs_C
## [1] 0.17 7.00 1.00 0.11 9.00 8.00 0.25 9.00 9.00 6.00 7.00 3.00 0.33 0.50 0.50
## [16] 7.00 9.00 1.00 7.00 9.00 1.00 9.00 0.20 9.00 4.00 0.11 9.00 7.00 5.00 5.00
## [31] 4.00 5.00 9.00 6.00 6.00 9.00 9.00 9.00 5.00 9.00 1.00 0.20 0.14 9.00 4.00
## [46] 1.00 0.14 0.14 7.00 9.00 9.00 0.14 0.25 6.00 8.00 0.17 9.00 0.33 0.14 3.00
## [61] 0.14 0.14 9.00 9.00 7.00 9.00 9.00 0.12 3.00 0.14 5.00 0.50 0.11 9.00 9.00
## [76] 0.11 5.00 0.50 1.00 9.00 0.14 8.00 9.00 8.00 7.00 0.17 9.00 1.00 8.00 1.00
## [91] 8.00 5.00
## Harga Produk vs Keamanan
A_vs_D =rep(0,92)
for (i in 1:length(A_vs_D)) {
if (data$`Harga Produk vs Keamanan`[i] == 'Harga Produk') {
A_vs_D[i] = data$`Berapa tingkat kepentingannya?...12`[i]
}
else {
A_vs_D[i] = round(1/data$`Berapa tingkat kepentingannya?...12`[i],2)
}
}
A_vs_D
## [1] 8.00 0.14 1.00 7.00 0.14 0.11 4.00 0.33 0.11 0.17 1.00 0.50 0.33 2.00 3.00
## [16] 0.11 0.11 1.00 0.14 0.11 0.25 0.11 5.00 0.11 0.25 7.00 0.11 0.14 0.20 0.20
## [31] 0.33 0.20 0.12 0.11 7.00 0.11 0.11 0.11 0.20 0.11 0.20 7.00 7.00 0.11 3.00
## [46] 1.00 7.00 8.00 8.00 0.11 0.11 3.00 5.00 0.17 0.12 6.00 0.11 0.50 8.00 2.00
## [61] 7.00 7.00 0.11 0.11 0.14 0.12 1.00 8.00 1.00 0.12 0.20 0.50 9.00 0.11 0.11
## [76] 0.11 0.20 2.00 1.00 0.11 0.20 0.17 0.11 0.14 0.12 0.14 0.11 1.00 0.11 1.00
## [91] 0.12 5.00
## Matriks Perbandingan
Kriteria = data.frame(A_vs_B,A_vs_C,B_vs_C,B_vs_D,D_vs_C,A_vs_D)
gm1 = geometric.mean(Kriteria$A_vs_B)
gm2 = geometric.mean(Kriteria$A_vs_C)
gm3 = geometric.mean(Kriteria$B_vs_D)
gm4 = geometric.mean(Kriteria$B_vs_C)
gm5 = geometric.mean(Kriteria$D_vs_C)
gm6 = geometric.mean(Kriteria$A_vs_D)
gm1;gm2;gm3;gm4;gm5;gm6
## [1] 2.054431
## [1] 0.5266227
## [1] 0.2543246
## [1] 0.4673863
## [1] 2.05171
## [1] 0.4739117
mat.Kriteria = matrix(c(1,1/gm1,1/gm2,1/gm6,
gm1,1,1/gm4,1/gm3,
gm2,gm4,1,gm5,
gm6,gm3,1/gm5,1), 4)
colnames(mat.Kriteria) <- c('Harga Produk', 'Kemudahan', 'Diskon/Promo', 'Keamanan')
rownames(mat.Kriteria) <- c('Harga Produk', 'Kemudahan', 'Diskon/Promo', 'Keamanan')
mat.Kriteria
## Harga Produk Kemudahan Diskon/Promo Keamanan
## Harga Produk 1.0000000 2.054431 0.5266227 0.4739117
## Kemudahan 0.4867527 1.000000 0.4673863 0.2543246
## Diskon/Promo 1.8988926 2.139558 1.0000000 0.4873983
## Keamanan 2.1100977 3.931984 2.0517099 1.0000000
#Berdasarkan Harga Produk
## TIktokshop vs Shopee
TT_vs_S.HP = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Tiktokshop vs Shopee...13`[i] == 'Tiktokshop') {
TT_vs_S.HP[i] = data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...14`[i]
}
else {
TT_vs_S.HP[i] = round(1/data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...14`[i],2)
}
}
TT_vs_S.HP
## [1] 0.17 1.00 0.20 0.14 5.00 0.11 0.33 0.14 0.12 3.00 0.33 0.14 1.00 3.00 2.00
## [16] 0.20 0.17 1.00 0.33 0.12 4.00 5.00 5.00 0.11 0.25 0.11 0.17 0.14 0.20 0.25
## [31] 5.00 0.33 0.14 0.17 7.00 1.00 2.00 0.14 5.00 0.20 3.00 5.00 1.00 0.11 0.20
## [46] 0.33 0.14 0.14 7.00 0.11 0.11 0.20 0.12 0.20 0.17 0.33 1.00 1.00 6.00 6.00
## [61] 0.33 0.11 0.33 7.00 6.00 0.12 4.00 7.00 0.20 0.11 0.33 0.50 0.11 0.20 0.11
## [76] 0.11 1.00 0.25 0.20 0.17 0.20 7.00 0.17 8.00 0.14 0.14 0.11 3.00 0.33 5.00
## [91] 3.00 0.33
## Tiktokshop vs Tokped
TT_vs_T.HP = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Tiktokshop vs Tokopedia...15`[i] == 'Tiktokshop') {
TT_vs_T.HP[i] = data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...16`[i]
}
else {
TT_vs_T.HP[i] = round(1/data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...16`[i],2)
}
}
TT_vs_T.HP
## [1] 7.00 5.00 6.00 7.00 7.00 0.14 2.00 5.00 7.00 5.00 1.00 9.00 0.33 1.00 2.00
## [16] 0.14 0.20 1.00 0.33 0.14 8.00 3.00 3.00 5.00 3.00 0.20 5.00 5.00 5.00 0.20
## [31] 7.00 3.00 0.12 7.00 7.00 0.11 3.00 6.00 2.00 1.00 7.00 5.00 5.00 7.00 0.14
## [46] 1.00 0.11 7.00 8.00 0.11 0.11 1.00 0.50 0.11 6.00 3.00 0.20 9.00 0.17 0.17
## [61] 5.00 1.00 0.14 0.11 5.00 8.00 4.00 6.00 1.00 7.00 5.00 5.00 0.20 0.11 7.00
## [76] 0.11 3.00 1.00 5.00 6.00 2.00 9.00 0.17 8.00 0.14 9.00 9.00 5.00 3.00 7.00
## [91] 5.00 5.00
## Shopee vs Tokped
S_vs_T.HP = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Shopee vs Tokopedia`[i] == 'Shopee') {
S_vs_T.HP[i] = data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...18`[i]
}
else {
S_vs_T.HP[i] = round(1/data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...18`[i],2)
}
}
S_vs_T.HP
## [1] 9.00 0.20 6.00 9.00 1.00 9.00 7.00 9.00 8.00 5.00 5.00 9.00 7.00 0.20 3.00
## [16] 7.00 6.00 1.00 3.00 8.00 9.00 0.11 5.00 9.00 5.00 9.00 7.00 7.00 5.00 4.00
## [31] 3.00 5.00 0.14 8.00 9.00 0.14 3.00 7.00 3.00 5.00 5.00 5.00 7.00 9.00 2.00
## [46] 1.00 0.33 7.00 8.00 0.11 0.11 9.00 8.00 7.00 6.00 5.00 0.20 9.00 0.17 1.00
## [61] 5.00 9.00 0.14 0.12 5.00 9.00 4.00 8.00 3.00 8.00 5.00 5.00 9.00 0.11 9.00
## [76] 0.11 4.00 2.00 5.00 6.00 9.00 7.00 7.00 8.00 7.00 9.00 9.00 5.00 3.00 5.00
## [91] 5.00 5.00
## Matriks Perbandingan
Harga = data.frame(TT_vs_S.HP,TT_vs_T.HP,S_vs_T.HP)
View(Harga)
gm1.HP = geometric.mean(Harga$TT_vs_S.HP)
gm2.HP = geometric.mean(Harga$TT_vs_T.HP)
gm3.HP = geometric.mean(Harga$S_vs_T.HP)
gm1.HP;gm2.HP;gm3.HP
## [1] 0.5004758
## [1] 1.649063
## [1] 3.163402
mat.Harga = matrix(c(1,1/gm2.HP,1/gm1.HP,
gm2.HP,1,gm3.HP,
gm1.HP,1/gm3.HP,1),3)
colnames(mat.Harga) = c('Tiktokshop','Tokopedia','Shopee')
rownames(mat.Harga) = c('Tiktokshop','Tokopedia','Shopee')
mat.Harga
## Tiktokshop Tokopedia Shopee
## Tiktokshop 1.0000000 1.649063 0.5004758
## Tokopedia 0.6064049 1.000000 0.3161153
## Shopee 1.9980986 3.163402 1.0000000
#Berdasarkan Kemudahan
## Tikokshop vs Shopee
TT_vs_S.Kem = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Tikokshop vs Shopee`[i] == 'TiktokShop') {
TT_vs_S.Kem[i] = data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...20`[i]
}
else {
TT_vs_S.Kem[i] = round(1/data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...20`[i],2)
}
}
TT_vs_S.Kem
## [1] 0.14 5.00 0.14 0.14 0.14 0.11 0.14 0.11 0.12 0.20 0.20 1.00 0.11 0.50 0.20
## [16] 0.20 0.17 1.00 0.33 0.12 0.20 1.00 5.00 0.14 0.20 0.14 0.20 0.33 0.20 0.20
## [31] 0.20 0.33 0.12 0.20 7.00 1.00 0.20 0.11 0.20 0.20 0.33 0.20 1.00 0.11 0.14
## [46] 0.33 0.20 7.00 7.00 0.11 0.11 0.11 0.12 0.25 0.14 0.33 9.00 1.00 0.17 1.00
## [61] 0.14 0.11 5.00 0.14 0.17 0.12 0.33 0.11 0.11 0.11 0.33 5.00 0.11 0.11 0.11
## [76] 0.11 1.00 0.50 0.20 0.12 0.11 0.17 0.14 8.00 0.12 0.11 0.11 0.20 0.33 3.00
## [91] 3.00 3.00
## Tiktokshop vs Tokpedia
TT_vs_T.Kem = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Tiktokshop vs Tokpedia`[i] == 'Tiktokshop') {
TT_vs_T.Kem[i] = data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...22`[i]
}
else {
TT_vs_T.Kem[i] = round(1/data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...22`[i],2)
}
}
TT_vs_T.Kem
## [1] 6.00 5.00 7.00 7.00 0.14 0.14 3.00 0.14 7.00 0.17 1.00 9.00 0.20 0.50 1.00
## [16] 0.14 0.20 1.00 0.33 0.17 8.00 1.00 5.00 0.25 3.00 0.14 6.00 5.00 5.00 0.20
## [31] 0.25 3.00 0.14 7.00 8.00 1.00 0.20 0.14 3.00 1.00 2.00 0.20 7.00 9.00 0.14
## [46] 1.00 0.33 7.00 8.00 0.11 0.11 9.00 0.50 0.12 7.00 4.00 0.11 9.00 0.11 0.25
## [61] 0.25 0.12 0.20 0.11 0.17 8.00 0.25 9.00 0.50 7.00 3.00 5.00 1.00 0.11 7.00
## [76] 0.11 2.00 1.00 5.00 7.00 0.25 6.00 0.17 8.00 0.12 7.00 9.00 5.00 3.00 7.00
## [91] 7.00 3.00
## Tokpedia vs Shopee
T_vs_S.Kem = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Tokpedia vs Shopee`[i] == 'Tokped') {
T_vs_S.Kem[i] = data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...24`[i]
}
else {
T_vs_S.Kem[i] = round(1/data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...24`[i],2)
}
}
T_vs_S.Kem
## [1] 0.14 5.00 0.12 0.12 0.33 0.11 0.14 0.33 0.12 0.17 0.20 0.11 0.14 0.50 0.20
## [16] 7.00 0.17 1.00 0.33 0.12 0.11 1.00 0.20 0.11 0.25 0.11 0.17 0.20 0.20 0.20
## [31] 0.33 0.20 7.00 0.14 0.11 1.00 0.20 9.00 0.20 0.20 0.20 0.33 0.14 0.11 0.14
## [46] 0.33 0.50 0.12 0.12 8.00 9.00 0.14 0.12 8.00 0.14 0.25 9.00 0.11 9.00 2.00
## [61] 0.33 0.11 7.00 9.00 0.33 0.12 4.00 0.11 0.20 0.11 0.33 0.50 0.11 9.00 0.11
## [76] 0.11 0.25 1.00 0.20 0.14 0.11 0.17 0.17 0.12 0.14 0.11 0.11 0.20 0.33 0.20
## [91] 0.14 0.33
## Matriks Perbandingan
Kemudahan = data.frame(TT_vs_S.Kem,TT_vs_T.Kem,T_vs_S.Kem)
View(Kemudahan)
gm1.Kem = geometric.mean(Kemudahan$TT_vs_S.Kem)
gm2.Kem = geometric.mean(Kemudahan$TT_vs_T.Kem)
gm3.Kem = geometric.mean(Kemudahan$T_vs_S.Kem)
gm1.Kem;gm2.Kem;gm3.Kem
## [1] 0.3047054
## [1] 1.103754
## [1] 0.3271342
mat.Kemudahan = matrix(c(1,1/gm2.Kem,1/gm1.Kem,
gm2.Kem,1,1/gm3.Kem,
gm1.Kem,gm3.Kem,1),3)
colnames(mat.Kemudahan) = c('Tiktokshop','Tokopedia','Shopee')
rownames(mat.Kemudahan) = c('Tiktokshop','Tokopedia','Shopee')
mat.Kemudahan
## Tiktokshop Tokopedia Shopee
## Tiktokshop 1.0000000 1.103754 0.3047054
## Tokopedia 0.9059987 1.000000 0.3271342
## Shopee 3.2818582 3.056850 1.0000000
# Berdasarkan Keamanan
## Tikokshop vs Shopee
TT_vs_S.K = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Tiktokshop vs Shopee...25`[i] == 'Tiktokshop') {
TT_vs_S.K[i] = data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...26`[i]
}
else {
TT_vs_S.K[i] = round(1/data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...26`[i],2)
}
}
TT_vs_S.K
## [1] 0.14 5.00 0.33 0.14 0.20 0.11 0.50 0.20 0.12 6.00 0.14 0.50 0.20 0.33 1.00
## [16] 0.20 0.11 1.00 0.33 0.17 0.17 5.00 0.20 0.11 0.25 0.11 0.20 0.33 0.20 0.20
## [31] 0.17 0.33 0.12 7.00 8.00 1.00 1.00 0.14 1.00 0.20 0.20 0.20 1.00 0.11 0.20
## [46] 1.00 0.20 8.00 0.14 0.12 0.11 7.00 0.12 0.25 0.25 0.25 1.00 0.33 0.17 5.00
## [61] 0.33 2.00 1.00 0.11 0.14 0.12 3.00 0.11 0.20 0.12 1.00 0.50 0.11 0.11 0.12
## [76] 9.00 0.50 0.50 0.20 0.14 0.25 0.12 0.20 8.00 8.00 0.11 0.11 1.00 0.33 3.00
## [91] 5.00 1.00
## Tiktokshop vs Tokpedia
TT_vs_T.K = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Tiktokshop vs Tokopedia...27`[i] == 'Tiktokshop') {
TT_vs_T.K[i] = data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...28`[i]
}
else {
TT_vs_T.K[i] = round(1/data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...28`[i],2)
}
}
TT_vs_T.K
## [1] 0.17 5.00 0.33 8.00 0.20 0.14 0.50 0.14 8.00 6.00 1.00 7.00 0.20 0.20 1.00
## [16] 0.14 0.11 1.00 0.33 0.17 8.00 1.00 0.14 0.25 0.25 0.14 0.20 3.00 5.00 0.20
## [31] 0.25 3.00 0.12 7.00 8.00 0.11 1.00 0.11 2.00 0.20 0.33 0.20 7.00 9.00 0.14
## [46] 1.00 0.25 8.00 7.00 0.11 0.11 1.00 0.50 0.25 0.25 3.00 1.00 2.00 0.12 0.17
## [61] 0.33 1.00 0.20 0.11 0.14 8.00 0.33 0.11 0.50 0.14 5.00 2.00 0.11 0.11 0.20
## [76] 0.11 1.00 1.00 5.00 8.00 0.20 0.20 0.14 8.00 0.12 5.00 9.00 1.00 3.00 5.00
## [91] 7.00 1.00
## Tokpedia vs Shopee
T_vs_S.K = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Tokopedia vs Shopee...29`[i] == 'Tokopedia') {
T_vs_S.K[i] = data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...30`[i]
}
else {
T_vs_S.K[i] = round(1/data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...30`[i],2)
}
}
T_vs_S.K
## [1] 0.20 5.00 0.20 0.11 0.50 0.11 0.50 5.00 0.12 0.25 0.14 0.14 0.20 5.00 1.00
## [16] 7.00 0.11 1.00 0.33 0.17 0.11 3.00 5.00 0.11 0.25 0.14 5.00 0.20 0.20 0.20
## [31] 0.33 0.20 8.00 0.14 0.11 9.00 1.00 0.14 0.50 0.20 0.20 0.33 0.14 0.11 7.00
## [46] 1.00 1.00 0.12 0.14 9.00 9.00 5.00 0.12 0.25 0.25 0.25 1.00 0.33 8.00 4.00
## [61] 3.00 4.00 7.00 9.00 0.50 0.12 3.00 0.11 0.17 0.11 0.20 0.50 0.33 9.00 0.14
## [76] 0.11 0.50 0.50 0.20 0.14 5.00 0.20 6.00 8.00 0.12 0.11 0.11 1.00 0.33 0.20
## [91] 7.00 1.00
## Matriks Perbandingan
Keamanan = data.frame(TT_vs_S.K,TT_vs_T.K,T_vs_S.K)
View(Keamanan)
gm1.K = geometric.mean(Keamanan$TT_vs_S.K)
gm2.K = geometric.mean(Keamanan$TT_vs_T.K)
gm3.K = geometric.mean(Keamanan$T_vs_S.K)
gm1.K;gm2.K;gm3.K
## [1] 0.4022144
## [1] 0.6731899
## [1] 0.5587349
mat.Keamanan = matrix(c(1,1/gm2.K,1/gm1.K,
gm2.K,1,1/gm3.K,
gm1.K,gm3.K,1),3)
colnames(mat.Keamanan) = c('Tiktokshop','Tokopedia','Shopee')
rownames(mat.Keamanan) = c('Tiktokshop','Tokopedia','Shopee')
mat.Keamanan
## Tiktokshop Tokopedia Shopee
## Tiktokshop 1.000000 0.6731899 0.4022144
## Tokopedia 1.485465 1.0000000 0.5587349
## Shopee 2.486236 1.7897576 1.0000000
# Berdasarkan Promo/Diskon
## Tikokshop vs Shopee
TT_vs_S.PD = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Tiktokshop vs Shopee...31`[i] == 'Tiktokshop') {
TT_vs_S.PD[i] = data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...32`[i]
}
else {
TT_vs_S.PD[i] = round(1/data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...32`[i],2)
}
}
TT_vs_S.PD
## [1] 0.17 5.00 0.14 0.11 3.00 0.11 2.00 0.11 0.12 6.00 0.14 1.00 0.20 5.00 2.00
## [16] 5.00 0.17 1.00 0.33 0.12 9.00 9.00 6.00 0.11 3.00 0.14 5.00 0.33 5.00 0.20
## [31] 3.00 0.33 7.00 0.12 9.00 0.11 1.00 0.14 5.00 5.00 7.00 5.00 1.00 0.11 5.00
## [46] 0.20 2.00 0.12 7.00 9.00 0.11 5.00 0.12 0.20 0.17 0.25 1.00 1.00 0.20 3.00
## [61] 0.33 0.11 5.00 0.14 7.00 0.14 4.00 7.00 0.14 0.11 1.00 0.20 0.11 0.11 0.14
## [76] 9.00 4.00 0.50 0.20 6.00 0.14 8.00 6.00 9.00 8.00 0.11 0.11 1.00 0.33 3.00
## [91] 5.00 3.00
## Tiktokshop vs Tokpedia
TT_vs_T.PD = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Tiktokshop vs Tokopedia...33`[i] == 'Tiktokshop') {
TT_vs_T.PD[i] = data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...34`[i]
}
else {
TT_vs_T.PD[i] = round(1/data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...34`[i],2)
}
}
TT_vs_T.PD
## [1] 7.00 5.00 8.00 7.00 7.00 0.14 6.00 5.00 8.00 5.00 5.00 4.00 0.20 5.00 2.00
## [16] 5.00 0.20 1.00 0.33 0.17 9.00 3.00 8.00 0.25 3.00 0.11 7.00 5.00 5.00 0.20
## [31] 7.00 3.00 8.00 7.00 9.00 0.17 1.00 0.14 5.00 5.00 9.00 5.00 5.00 9.00 7.00
## [46] 0.20 0.33 7.00 8.00 9.00 0.11 0.20 0.50 0.20 0.17 3.00 5.00 5.00 0.33 3.00
## [61] 3.00 1.00 3.00 7.00 7.00 8.00 4.00 0.25 1.00 7.00 5.00 2.00 5.00 0.11 7.00
## [76] 0.11 4.00 0.50 5.00 8.00 4.00 8.00 6.00 9.00 9.00 7.00 9.00 3.00 3.00 5.00
## [91] 7.00 3.00
## Tokpedia vs Shopee
T_vs_S.PD = rep(0,92)
for (i in 1:length(A_vs_B)) {
if (data$`Tokopedia vs Shopee...35`[i] == 'Tokopedia') {
T_vs_S.PD[i] = data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...36`[i]
}
else {
T_vs_S.PD[i] = round(1/data$`Berdasarkan pilihan anda, berikan tingkat kepentingan dalam pemakaian aplikasi e-commerce yang telah dipilih!...36`[i],2)
}
}
T_vs_S.PD
## [1] 0.14 5.00 0.12 0.11 0.14 0.11 0.20 0.11 0.12 0.17 0.14 0.25 0.20 0.20 0.50
## [16] 0.20 0.17 1.00 0.33 0.12 0.11 5.00 0.20 0.11 0.25 0.14 0.14 0.20 0.20 0.25
## [31] 0.20 0.20 0.14 0.11 0.12 9.00 1.00 0.14 0.50 0.20 0.14 0.20 0.14 0.11 0.14
## [46] 1.00 2.00 8.00 0.12 0.12 9.00 5.00 0.12 0.20 6.00 0.20 0.20 0.17 0.25 0.14
## [61] 0.20 0.11 0.33 0.17 0.20 0.12 0.25 0.20 0.14 0.11 0.20 0.20 0.11 9.00 0.11
## [76] 0.11 0.25 0.33 0.20 0.14 0.25 0.14 0.20 0.12 0.12 0.11 0.11 0.33 0.33 0.20
## [91] 0.14 0.20
## Matriks Perbandingan
Promo = data.frame(TT_vs_S.PD,TT_vs_T.PD,T_vs_S.PD)
View(Promo)
gm1.PD = geometric.mean(Promo$TT_vs_S.PD)
gm2.PD = geometric.mean(Promo$TT_vs_T.PD)
gm3.PD = geometric.mean(Promo$T_vs_S.PD)
gm1.PD;gm2.PD;gm3.PD
## [1] 0.8385467
## [1] 2.302019
## [1] 0.253251
mat.Promo = matrix(c(1,1/gm2.PD,1/gm1.PD,
gm2.PD,1,1/gm3.PD,
gm1.PD,gm3.PD,1),3)
colnames(mat.Promo) = c('Tiktokshop','Tokopedia','Shopee')
rownames(mat.Promo) = c('Tiktokshop','Tokopedia','Shopee')
mat.Promo
## Tiktokshop Tokopedia Shopee
## Tiktokshop 1.0000000 2.302019 0.8385467
## Tokopedia 0.4344012 1.000000 0.2532510
## Shopee 1.1925394 3.948651 1.0000000
#Matriks Normalitas
mat.Kriteria
## Harga Produk Kemudahan Diskon/Promo Keamanan
## Harga Produk 1.0000000 2.054431 0.5266227 0.4739117
## Kemudahan 0.4867527 1.000000 0.4673863 0.2543246
## Diskon/Promo 1.8988926 2.139558 1.0000000 0.4873983
## Keamanan 2.1100977 3.931984 2.0517099 1.0000000
mat.Harga
## Tiktokshop Tokopedia Shopee
## Tiktokshop 1.0000000 1.649063 0.5004758
## Tokopedia 0.6064049 1.000000 0.3161153
## Shopee 1.9980986 3.163402 1.0000000
mat.Kemudahan
## Tiktokshop Tokopedia Shopee
## Tiktokshop 1.0000000 1.103754 0.3047054
## Tokopedia 0.9059987 1.000000 0.3271342
## Shopee 3.2818582 3.056850 1.0000000
mat.Keamanan
## Tiktokshop Tokopedia Shopee
## Tiktokshop 1.000000 0.6731899 0.4022144
## Tokopedia 1.485465 1.0000000 0.5587349
## Shopee 2.486236 1.7897576 1.0000000
mat.Promo
## Tiktokshop Tokopedia Shopee
## Tiktokshop 1.0000000 2.302019 0.8385467
## Tokopedia 0.4344012 1.000000 0.2532510
## Shopee 1.1925394 3.948651 1.0000000
norm.Kriteria = sweep(mat.Kriteria, 2,colSums(mat.Kriteria), FUN = "/")
norm.Harga = sweep(mat.Harga, 2,colSums(mat.Harga), FUN = "/")
norm.Kemudahan = sweep(mat.Kemudahan, 2,colSums(mat.Kemudahan), FUN = "/")
norm.Keamanan = sweep(mat.Keamanan, 2,colSums(mat.Keamanan), FUN = "/")
norm.Promo = sweep(mat.Promo, 2,colSums(mat.Promo), FUN = "/")
norm.Kriteria;norm.Harga;norm.Kemudahan;norm.Keamanan;norm.Promo
## Harga Produk Kemudahan Diskon/Promo Keamanan
## Harga Produk 0.18195902 0.2251192 0.1301679 0.2138943
## Kemudahan 0.08856905 0.1095774 0.1155262 0.1147863
## Diskon/Promo 0.34552063 0.2344471 0.2471749 0.2199814
## Keamanan 0.38395130 0.4308564 0.5071311 0.4513380
## Tiktokshop Tokopedia Shopee
## Tiktokshop 0.2774307 0.2837115 0.2755027
## Tokopedia 0.1682354 0.1720440 0.1740157
## Shopee 0.5543339 0.5442445 0.5504816
## Tiktokshop Tokopedia Shopee
## Tiktokshop 0.1927578 0.2138808 0.1867251
## Tokopedia 0.1746383 0.1937758 0.2004696
## Shopee 0.6326038 0.5923434 0.6128053
## Tiktokshop Tokopedia Shopee
## Tiktokshop 0.2011384 0.1943980 0.2051121
## Tokopedia 0.2987840 0.2887713 0.2849308
## Shopee 0.5000776 0.5168307 0.5099571
## Tiktokshop Tokopedia Shopee
## Tiktokshop 0.3806710 0.3174905 0.4008737
## Tokopedia 0.1653639 0.1379183 0.1210686
## Shopee 0.4539651 0.5445912 0.4780577
#eigen
eigen.Kriteria = c(rowMeans(norm.Kriteria))
eigen.Harga = rowMeans(norm.Harga)
eigen.Kemudahan = rowMeans(norm.Kemudahan)
eigen.Keamanan = rowMeans(norm.Keamanan)
eigen.Promo = rowMeans(norm.Promo)
eigen.Kriteria;eigen.Harga;eigen.Kemudahan;eigen.Keamanan;eigen.Promo
## Harga Produk Kemudahan Diskon/Promo Keamanan
## 0.1877851 0.1071147 0.2617810 0.4433192
## Tiktokshop Tokopedia Shopee
## 0.2788816 0.1714317 0.5496867
## Tiktokshop Tokopedia Shopee
## 0.1977879 0.1896279 0.6125842
## Tiktokshop Tokopedia Shopee
## 0.2002161 0.2908287 0.5089551
## Tiktokshop Tokopedia Shopee
## 0.3663451 0.1414503 0.4922047
# lambda
lambda.Kriteria = (mat.Kriteria%*%eigen.Kriteria)/eigen.Kriteria
lambda.Harga = (mat.Harga%*%eigen.Harga)/eigen.Harga
lambda.Kemudahan = (mat.Kemudahan%*%eigen.Kemudahan)/eigen.Kemudahan
lambda.Keamanan = (mat.Keamanan%*%eigen.Keamanan)/eigen.Keamanan
lambda.Promo = (mat.Promo%*%eigen.Promo)/eigen.Promo
# CI
CI.Kriteria = (max(lambda.Kriteria)-4)/3
CI.Harga = (max(lambda.Harga)-3)/2
CI.Kemudahan = (max(lambda.Kemudahan)-3)/2
CI.Keamanan = (max(lambda.Keamanan)-3)/2
CI.Promo = (max(lambda.Promo)-3)/2
CI.Kriteria;CI.Harga;CI.Kemudahan;CI.Keamanan;CI.Promo
## [1] 0.02099967
## [1] 0.0001519582
## [1] 0.002944494
## [1] 0.0003805032
## [1] 0.01118375
#CR
CR.Kriteria = CI.Kriteria/0.9
CR.Harga = CI.Harga/0.58
CR.Kemudahan = CI.Kemudahan/0.58
CR.Keamanan = CI.Keamanan/0.58
CR.Promo = CI.Promo/0.58
CR.Kriteria;CR.Harga;CR.Kemudahan;CR.Keamanan;CR.Promo
## [1] 0.02333297
## [1] 0.0002619969
## [1] 0.005076715
## [1] 0.00065604
## [1] 0.01928232
#Persentae
eigen.Tiktok = c(eigen.Harga[1],eigen.Kemudahan[1],eigen.Promo[1],eigen.Keamanan[1])
eigen.Tokopedia = c(eigen.Harga[2],eigen.Kemudahan[2],eigen.Promo[2],eigen.Keamanan[2])
eigen.Shopee = c(eigen.Harga[3],eigen.Kemudahan[3],eigen.Promo[3],eigen.Keamanan[3])
P.Tiktok = sum(eigen.Kriteria*eigen.Tiktok)
P.Tokopedia = sum(eigen.Kriteria*eigen.Tokopedia)
P.Shopee = sum(eigen.Kriteria*eigen.Shopee)
P.Tiktok;P.Tokopedia;P.Shopee
## [1] 0.2582176
## [1] 0.2184632
## [1] 0.5233192