QRIS Tap Questionnaire - Multiple Coresspondece Analysis
Alfi Aturohmah - M0723005
2026-06-29
Library
library(readr)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(FactoMineR)
library(factoextra)## Loading required package: ggplot2## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBalibrary(ggplot2)
library(ggrepel)Import data
survey_qris <- read.csv(
"E:/SEMESTER 6/MULTIV/QRIS Tap Questionnaire Dataset.csv",
sep = ";"
)
dim(survey_qris)## [1] 157 37str(survey_qris)## 'data.frame': 157 obs. of 37 variables:
## $ Have.you.used.QRIS.Tap.before. : chr "Yes" "Yes" "Yes" "Yes" ...
## $ Frequency.of.using.public.transportation. : chr "Several times a week" "Daily" "Several times a week" "Several times a week" ...
## $ Age : chr "Gen Y (1981 to 1996)" "Gen Z (1997 to 2012)" "Gen Z (1997 to 2012)" "Gen Z (1997 to 2012)" ...
## $ Gender. : chr "Male" "Male" "Female" "Female" ...
## $ Education.Level. : chr "S1" "S1" "S1" "Other" ...
## $ Occupation. : chr "Employee" "Student" "Student" "Student" ...
## $ I.find.QRIS.Tap.easy.to.learn. : int 6 5 6 5 4 6 5 6 5 5 ...
## $ Using.QRIS.Tap.does.not.require.much.mental.effort. : int 5 6 5 4 5 4 5 6 5 5 ...
## $ It.would.be.easy.for.me.to.become.proficient.with.QRIS.Tap. : int 5 3 4 3 4 4 5 6 5 5 ...
## $ The.interaction.with.QRIS.Tap.is.clear.and.understandable. : int 5 6 6 5 4 4 4 6 4 5 ...
## $ The.steps.required.to.use.QRIS.Tap.are.easy.to.follow. : int 6 5 4 4 4 6 5 6 5 6 ...
## $ I.find.it.easy.to.become.skillful.at.using.QRIS.Tap. : int 6 5 5 5 5 5 5 6 5 6 ...
## $ Overall..QRIS.Tap.is.easy.to.use.during.my.commuting.activities. : int 5 6 5 5 5 6 5 6 5 6 ...
## $ QRIS.Tap.improves.the.efficiency.of.my.transportation.payments. : int 5 6 5 5 5 6 5 6 5 6 ...
## $ Using.QRIS.Tap.enables.me.to.complete.transactions.more.quickly. : int 6 6 5 4 5 5 5 6 5 4 ...
## $ QRIS.Tap.enhances.the.convenience.of.paying.for.public.transportation. : int 6 5 5 5 5 5 1 6 5 4 ...
## $ QRIS.Tap.helps.reduce.delays.during.transportation.payments. : int 5 3 4 5 4 2 1 6 4 5 ...
## $ Using.QRIS.Tap.improves.my.overall.payment.performance. : int 5 4 5 4 5 5 3 4 5 4 ...
## $ Overall..QRIS.Tap.is.a.useful.payment.method.for.commuting. : int 6 5 5 5 5 5 5 6 5 6 ...
## $ Using.QRIS.Tap.for.public.transportation.is.a.good.idea. : int 6 6 6 5 5 5 3 6 6 4 ...
## $ I.have.a.positive.feeling.toward.using.QRIS.Tap. : int 5 5 5 5 5 5 5 6 6 4 ...
## $ I.like.the.idea.of.using.QRIS.Tap.for.my.commuting.activities. : int 6 5 5 4 5 5 5 6 5 5 ...
## $ Using.QRIS.Tap.makes.my.commuting.experience.more.pleasant. : int 5 4 5 5 5 5 4 6 5 5 ...
## $ I.believe.using.QRIS.Tap.is.a.wise.choice.for.transportation.payments. : int 5 4 5 4 5 5 4 4 3 5 ...
## $ Overall..I.feel.favorable.toward.adopting.QRIS.Tap. : int 6 5 6 4 5 4 5 6 4 5 ...
## $ I.intend.to.use.QRIS.Tap.regularly.for.public.transportation.payments. : int 5 4 6 5 5 4 4 4 3 4 ...
## $ I.plan.to.continue.using.QRIS.Tap.in.the.future. : int 5 3 6 5 4 4 5 5 3 6 ...
## $ I.will.choose.QRIS.Tap.whenever.it.is.available.for.transportation.payments.: int 5 3 6 5 5 4 5 4 3 3 ...
## $ I.am.willing.to.rely.on.QRIS.Tap.for.my.commuting.needs. : int 5 4 6 4 5 4 3 5 3 4 ...
## $ I.expect.to.increase.my.use.of.QRIS.Tap.over.time. : int 4 5 6 3 5 4 5 5 3 4 ...
## $ I.intend.to.recommend.QRIS.Tap.to.others.for.public.transportation.use. : int 5 2 6 4 5 4 4 5 4 5 ...
## $ I.currently.use.QRIS.Tap.when.paying.for.public.transportation. : int 5 3 6 5 4 2 4 4 4 5 ...
## $ I.use.QRIS.Tap.frequently.during.my.commuting.activities. : int 5 3 5 5 4 2 4 5 3 5 ...
## $ QRIS.Tap.is.one.of.my.primary.payment.methods.for.transportation. : int 4 2 5 4 3 2 4 4 3 5 ...
## $ I.have.used.QRIS.Tap.multiple.times.for.public.transportation.payments. : int 6 4 6 5 4 2 5 3 4 5 ...
## $ I.regularly.rely.on.QRIS.Tap.when.traveling.by.public.transport. : int 5 2 4 4 4 2 3 3 3 4 ...
## $ I.use.QRIS.Tap.more.often.than.other.payment.methods.for.commuting. : int 5 1 4 4 4 2 3 3 1 3 ...Rename Kolom
colnames(survey_qris)[1:6] <- c(
"use_before",
"frequency",
"age",
"gender",
"education",
"occupation"
)
colnames(survey_qris)[7:13] <- paste0("PEOU", 1:7)
colnames(survey_qris)[14:19] <- paste0("PU", 1:6)
colnames(survey_qris)[20:25] <- paste0("ATU", 1:6)
colnames(survey_qris)[26:31] <- paste0("BI", 1:6)
colnames(survey_qris)[32:37] <- paste0("AU", 1:6)Mengubah Likert jadi Numerik
survey_qris[, 7:37] <- lapply(
survey_qris[, 7:37],
as.numeric
)Konstruk TAM
survey_qris <- survey_qris %>%
mutate(
PEOU = rowMeans(select(., PEOU1:PEOU7), na.rm = TRUE),
PU = rowMeans(select(., PU1:PU6), na.rm = TRUE),
ATU = rowMeans(select(., ATU1:ATU6), na.rm = TRUE),
BI = rowMeans(select(., BI1:BI6), na.rm = TRUE),
AU = rowMeans(select(., AU1:AU6), na.rm = TRUE)
)Kategorisasi
KATEGORISASI KONSTRUK (LIKERT 1-6) Rendah : 1.00 - 2.67 Sedang : 2.68 - 4.33 Tinggi : 4.34 - 6.00
kategori <- function(x){
cut(
x,
breaks = c(1, 2.67, 4.33, 6),
labels = c("Rendah", "Sedang", "Tinggi"),
include.lowest = TRUE
)
}
survey_qris <- survey_qris %>%
mutate(
PEOU_cat = cut(PEOU, breaks = c(1, 2.67, 4.33, 6),
labels = c("PEOU_Rendah", "PEOU_Sedang", "PEOU_Tinggi"),
include.lowest = TRUE),
PU_cat = cut(PU, breaks = c(1, 2.67, 4.33, 6),
labels = c("PU_Rendah", "PU_Sedang", "PU_Tinggi"),
include.lowest = TRUE),
ATU_cat = cut(ATU, breaks = c(1, 2.67, 4.33, 6),
labels = c("ATU_Rendah", "ATU_Sedang", "ATU_Tinggi"),
include.lowest = TRUE),
BI_cat = cut(BI, breaks = c(1, 2.67, 4.33, 6),
labels = c("BI_Rendah", "BI_Sedang", "BI_Tinggi"),
include.lowest = TRUE),
AU_cat = cut(AU, breaks = c(1, 2.67, 4.33, 6),
labels = c("AU_Rendah", "AU_Sedang", "AU_Tinggi"),
include.lowest = TRUE)
)table(survey_qris$PEOU_cat)##
## PEOU_Rendah PEOU_Sedang PEOU_Tinggi
## 13 41 103table(survey_qris$PU_cat)##
## PU_Rendah PU_Sedang PU_Tinggi
## 10 65 82table(survey_qris$ATU_cat)##
## ATU_Rendah ATU_Sedang ATU_Tinggi
## 36 33 88table(survey_qris$BI_cat)##
## BI_Rendah BI_Sedang BI_Tinggi
## 29 57 71table(survey_qris$AU_cat)##
## AU_Rendah AU_Sedang AU_Tinggi
## 30 57 70Data MCA
data_mca <- survey_qris %>%
select(
frequency,
age,
gender,
education,
occupation,
PEOU_cat,
PU_cat,
ATU_cat,
BI_cat,
AU_cat
)Preprocessing
# 1. HAPUS KATEGORI DENGAN FREKUENSI SANGAT KECIL
data_mca <- data_mca %>%
filter(age != "Gen X (1965 to 1980)") %>%
filter(occupation != "Ibu rumah tangga")
# 2. CEK MISSING VALUE
colSums(is.na(data_mca))## frequency age gender education occupation PEOU_cat PU_cat
## 0 0 0 0 0 0 0
## ATU_cat BI_cat AU_cat
## 0 0 0# 3. UBAH SEMUA MENJADI FACTOR
data_mca <- data_mca %>%
mutate(across(everything(), as.factor))
str(data_mca)## 'data.frame': 155 obs. of 10 variables:
## $ frequency : Factor w/ 3 levels "Daily","Once a week",..: 3 1 3 3 1 1 3 1 3 3 ...
## $ age : Factor w/ 2 levels "Gen Y (1981 to 1996)",..: 1 2 2 2 1 2 2 2 2 2 ...
## $ gender : Factor w/ 2 levels "Female","Male": 2 2 1 1 2 1 2 1 1 2 ...
## $ education : Factor w/ 4 levels "Other","S1","S2",..: 2 2 2 1 1 2 1 2 1 2 ...
## $ occupation: Factor w/ 3 levels "Employee","Entrepreneur",..: 1 3 3 3 1 3 3 3 3 3 ...
## $ PEOU_cat : Factor w/ 3 levels "PEOU_Rendah",..: 3 3 3 3 3 3 3 3 3 3 ...
## $ PU_cat : Factor w/ 3 levels "PU_Rendah","PU_Sedang",..: 3 3 3 3 3 3 2 3 3 3 ...
## $ ATU_cat : Factor w/ 3 levels "ATU_Rendah","ATU_Sedang",..: 3 3 3 3 3 3 3 3 3 3 ...
## $ BI_cat : Factor w/ 3 levels "BI_Rendah","BI_Sedang",..: 3 2 3 3 3 2 3 3 2 3 ...
## $ AU_cat : Factor w/ 3 levels "AU_Rendah","AU_Sedang",..: 3 1 3 3 2 1 2 2 2 3 ...1. Penyusunan Data Ketogorik
lapply(data_mca, table)## $frequency
##
## Daily Once a week Several times a week
## 56 23 76
##
## $age
##
## Gen Y (1981 to 1996) Gen Z (1997 to 2012)
## 37 118
##
## $gender
##
## Female Male
## 82 73
##
## $education
##
## Other S1 S2 S3
## 8 126 14 7
##
## $occupation
##
## Employee Entrepreneur Student
## 80 26 49
##
## $PEOU_cat
##
## PEOU_Rendah PEOU_Sedang PEOU_Tinggi
## 13 41 101
##
## $PU_cat
##
## PU_Rendah PU_Sedang PU_Tinggi
## 10 65 80
##
## $ATU_cat
##
## ATU_Rendah ATU_Sedang ATU_Tinggi
## 36 33 86
##
## $BI_cat
##
## BI_Rendah BI_Sedang BI_Tinggi
## 29 57 69
##
## $AU_cat
##
## AU_Rendah AU_Sedang AU_Tinggi
## 30 57 682. Pembuatan Matriks Indikator
matriks_indikator <- tab.disjonctif(data_mca)
matriks_indikator## Daily Once a week Several times a week Gen Y (1981 to 1996)
## 1 0 0 1 1
## 2 1 0 0 0
## 3 0 0 1 0
## 4 0 0 1 0
## 5 1 0 0 1
## 6 1 0 0 0
## 7 0 0 1 0
## 8 1 0 0 0
## 9 0 0 1 0
## 10 0 0 1 0
## 11 1 0 0 0
## 12 0 0 1 0
## 13 0 1 0 0
## 14 0 1 0 0
## 15 1 0 0 0
## 16 0 0 1 1
## 17 0 1 0 0
## 18 0 0 1 0
## 19 0 0 1 0
## 20 1 0 0 0
## 21 0 0 1 0
## 22 1 0 0 0
## 23 1 0 0 0
## 24 0 1 0 1
## 25 1 0 0 0
## 26 0 1 0 0
## 27 1 0 0 0
## 28 1 0 0 0
## 29 1 0 0 0
## 30 0 0 1 0
## 31 0 0 1 0
## 32 1 0 0 1
## 33 0 0 1 0
## 34 0 0 1 1
## 35 0 0 1 0
## 36 0 1 0 1
## 37 1 0 0 0
## 38 0 0 1 0
## 39 1 0 0 0
## 40 0 0 1 1
## 41 1 0 0 0
## 42 0 0 1 0
## 43 0 1 0 0
## 44 0 0 1 1
## 45 1 0 0 0
## 46 0 0 1 0
## 47 0 0 1 0
## 48 0 0 1 0
## 49 1 0 0 0
## 50 0 1 0 0
## 51 0 0 1 0
## 52 1 0 0 0
## 53 1 0 0 0
## 54 1 0 0 0
## 55 0 0 1 1
## 56 0 0 1 1
## 57 0 0 1 0
## 58 1 0 0 0
## 59 0 0 1 1
## 60 0 0 1 1
## 61 0 0 1 0
## 62 0 0 1 0
## 63 0 0 1 0
## 64 0 0 1 0
## 65 0 1 0 0
## 66 0 0 1 0
## 67 0 0 1 0
## 68 1 0 0 0
## 69 0 0 1 0
## 70 1 0 0 0
## 71 0 0 1 0
## 72 1 0 0 0
## 73 1 0 0 0
## 74 0 0 1 0
## 75 0 0 1 0
## 76 0 0 1 0
## 77 0 1 0 0
## 78 1 0 0 1
## 79 0 1 0 0
## 80 0 0 1 0
## 81 0 0 1 1
## 82 0 0 1 0
## 83 1 0 0 1
## 84 0 0 1 0
## 85 0 0 1 1
## 86 1 0 0 0
## 87 1 0 0 1
## 88 0 0 1 0
## 89 0 0 1 0
## 90 1 0 0 0
## 91 0 0 1 0
## 92 1 0 0 1
## 93 0 1 0 0
## 94 0 1 0 1
## 95 0 0 1 0
## 96 0 0 1 0
## 97 0 1 0 1
## 98 0 0 1 1
## 99 1 0 0 1
## 100 0 0 1 0
## 101 0 1 0 0
## 102 0 0 1 1
## 103 0 0 1 0
## 104 0 0 1 0
## 105 0 0 1 1
## 106 1 0 0 1
## 107 1 0 0 0
## 108 0 0 1 1
## 109 1 0 0 1
## 110 1 0 0 1
## 111 1 0 0 1
## 112 0 0 1 0
## 113 1 0 0 0
## 114 0 0 1 0
## 115 0 0 1 0
## 116 0 0 1 0
## 117 0 0 1 0
## 118 1 0 0 0
## 119 0 0 1 1
## 120 0 0 1 0
## 121 1 0 0 0
## 122 0 1 0 0
## 123 1 0 0 0
## 124 1 0 0 0
## 125 1 0 0 0
## 126 0 0 1 1
## 127 0 0 1 0
## 128 1 0 0 0
## 129 0 0 1 0
## 130 1 0 0 1
## 131 1 0 0 0
## 132 1 0 0 0
## 133 0 1 0 0
## 134 1 0 0 1
## 135 0 0 1 1
## 136 0 1 0 0
## 137 0 1 0 0
## 138 0 0 1 0
## 139 0 0 1 0
## 140 1 0 0 0
## 141 0 0 1 0
## 142 1 0 0 0
## 143 1 0 0 0
## 144 1 0 0 0
## 145 1 0 0 0
## 146 0 0 1 0
## 147 0 0 1 0
## 148 0 0 1 0
## 149 0 0 1 0
## 150 0 0 1 0
## 151 0 1 0 1
## 152 1 0 0 0
## 153 0 1 0 0
## 154 0 1 0 1
## 155 0 1 0 0
## Gen Z (1997 to 2012) Female Male Other S1 S2 S3 Employee Entrepreneur
## 1 0 0 1 0 1 0 0 1 0
## 2 1 0 1 0 1 0 0 0 0
## 3 1 1 0 0 1 0 0 0 0
## 4 1 1 0 1 0 0 0 0 0
## 5 0 0 1 1 0 0 0 1 0
## 6 1 1 0 0 1 0 0 0 0
## 7 1 0 1 1 0 0 0 0 0
## 8 1 1 0 0 1 0 0 0 0
## 9 1 1 0 1 0 0 0 0 0
## 10 1 0 1 0 1 0 0 0 0
## 11 1 1 0 0 1 0 0 0 0
## 12 1 0 1 1 0 0 0 0 0
## 13 1 1 0 0 1 0 0 0 0
## 14 1 0 1 0 1 0 0 0 1
## 15 1 0 1 0 1 0 0 1 0
## 16 0 0 1 0 1 0 0 1 0
## 17 1 1 0 0 1 0 0 1 0
## 18 1 0 1 0 1 0 0 1 0
## 19 1 0 1 0 1 0 0 1 0
## 20 1 1 0 0 1 0 0 1 0
## 21 1 1 0 0 1 0 0 1 0
## 22 1 0 1 0 1 0 0 0 0
## 23 1 1 0 0 1 0 0 0 0
## 24 0 0 1 0 0 1 0 1 0
## 25 1 0 1 0 1 0 0 0 0
## 26 1 0 1 0 1 0 0 1 0
## 27 1 1 0 0 1 0 0 1 0
## 28 1 1 0 0 1 0 0 1 0
## 29 1 1 0 0 1 0 0 0 0
## 30 1 0 1 0 1 0 0 1 0
## 31 1 0 1 0 1 0 0 1 0
## 32 0 0 1 0 0 1 0 0 1
## 33 1 1 0 0 1 0 0 1 0
## 34 0 0 1 0 1 0 0 0 1
## 35 1 1 0 0 1 0 0 1 0
## 36 0 1 0 0 1 0 0 1 0
## 37 1 1 0 0 1 0 0 1 0
## 38 1 0 1 0 1 0 0 0 1
## 39 1 1 0 0 1 0 0 0 1
## 40 0 1 0 0 0 1 0 0 1
## 41 1 0 1 0 1 0 0 0 0
## 42 1 1 0 0 1 0 0 0 0
## 43 1 0 1 0 1 0 0 1 0
## 44 0 0 1 0 1 0 0 1 0
## 45 1 1 0 0 1 0 0 0 0
## 46 1 0 1 0 1 0 0 1 0
## 47 1 0 1 0 1 0 0 0 0
## 48 1 0 1 0 1 0 0 1 0
## 49 1 0 1 0 1 0 0 1 0
## 50 1 0 1 0 1 0 0 1 0
## 51 1 0 1 0 1 0 0 1 0
## 52 1 0 1 0 1 0 0 1 0
## 53 1 0 1 0 1 0 0 1 0
## 54 1 1 0 0 1 0 0 1 0
## 55 0 1 0 0 1 0 0 1 0
## 56 0 0 1 0 1 0 0 1 0
## 57 1 0 1 0 1 0 0 1 0
## 58 1 0 1 0 1 0 0 1 0
## 59 0 1 0 0 0 1 0 0 1
## 60 0 1 0 0 0 0 1 0 1
## 61 1 1 0 0 1 0 0 1 0
## 62 1 0 1 0 1 0 0 1 0
## 63 1 1 0 0 1 0 0 0 1
## 64 1 1 0 0 1 0 0 1 0
## 65 1 1 0 0 1 0 0 1 0
## 66 1 1 0 0 1 0 0 1 0
## 67 1 1 0 0 1 0 0 1 0
## 68 1 1 0 0 1 0 0 0 1
## 69 1 1 0 0 1 0 0 1 0
## 70 1 0 1 0 1 0 0 1 0
## 71 1 1 0 0 1 0 0 0 0
## 72 1 1 0 0 1 0 0 0 0
## 73 1 1 0 0 1 0 0 0 0
## 74 1 1 0 0 1 0 0 0 0
## 75 1 0 1 0 1 0 0 1 0
## 76 1 0 1 0 0 1 0 1 0
## 77 1 1 0 0 1 0 0 0 0
## 78 0 0 1 0 1 0 0 1 0
## 79 1 1 0 0 1 0 0 1 0
## 80 1 1 0 0 1 0 0 1 0
## 81 0 1 0 0 1 0 0 1 0
## 82 1 1 0 0 1 0 0 1 0
## 83 0 1 0 0 0 1 0 0 1
## 84 1 1 0 0 1 0 0 1 0
## 85 0 0 1 0 0 1 0 0 1
## 86 1 1 0 0 0 0 1 0 1
## 87 0 1 0 0 0 0 1 0 1
## 88 1 0 1 0 1 0 0 1 0
## 89 1 1 0 0 1 0 0 0 0
## 90 1 1 0 0 1 0 0 0 1
## 91 1 1 0 0 1 0 0 0 0
## 92 0 1 0 0 1 0 0 1 0
## 93 1 0 1 0 1 0 0 0 0
## 94 0 0 1 0 1 0 0 1 0
## 95 1 1 0 0 1 0 0 0 0
## 96 1 0 1 0 1 0 0 1 0
## 97 0 0 1 0 1 0 0 1 0
## 98 0 1 0 0 0 1 0 0 1
## 99 0 1 0 0 1 0 0 1 0
## 100 1 1 0 0 1 0 0 0 0
## 101 1 1 0 0 1 0 0 1 0
## 102 0 1 0 0 0 1 0 0 1
## 103 1 1 0 0 0 0 1 0 1
## 104 1 1 0 0 1 0 0 0 0
## 105 0 1 0 0 0 0 1 0 1
## 106 0 0 1 0 0 1 0 1 0
## 107 1 1 0 0 1 0 0 1 0
## 108 0 0 1 0 0 0 1 0 1
## 109 0 0 1 0 0 0 1 0 1
## 110 0 1 0 0 0 1 0 0 1
## 111 0 0 1 0 1 0 0 0 1
## 112 1 0 1 0 1 0 0 1 0
## 113 1 1 0 0 1 0 0 1 0
## 114 1 0 1 0 1 0 0 1 0
## 115 1 1 0 0 1 0 0 1 0
## 116 1 0 1 0 1 0 0 1 0
## 117 1 1 0 0 1 0 0 0 0
## 118 1 0 1 0 1 0 0 0 0
## 119 0 1 0 0 1 0 0 1 0
## 120 1 1 0 0 1 0 0 0 0
## 121 1 0 1 0 1 0 0 1 0
## 122 1 0 1 0 1 0 0 0 0
## 123 1 1 0 0 1 0 0 0 0
## 124 1 0 1 0 1 0 0 0 0
## 125 1 1 0 0 1 0 0 0 0
## 126 0 1 0 0 1 0 0 1 0
## 127 1 1 0 0 1 0 0 1 0
## 128 1 0 1 0 1 0 0 1 0
## 129 1 1 0 0 1 0 0 0 0
## 130 0 1 0 0 1 0 0 1 0
## 131 1 1 0 0 1 0 0 1 0
## 132 1 1 0 0 1 0 0 0 0
## 133 1 0 1 0 0 1 0 0 1
## 134 0 1 0 0 0 1 0 1 0
## 135 0 1 0 0 0 1 0 1 0
## 136 1 1 0 1 0 0 0 0 0
## 137 1 0 1 0 1 0 0 0 0
## 138 1 0 1 0 1 0 0 0 0
## 139 1 0 1 0 1 0 0 1 0
## 140 1 1 0 0 1 0 0 0 1
## 141 1 0 1 0 1 0 0 1 0
## 142 1 1 0 1 0 0 0 1 0
## 143 1 0 1 0 1 0 0 0 0
## 144 1 0 1 0 1 0 0 0 0
## 145 1 1 0 0 1 0 0 0 0
## 146 1 0 1 1 0 0 0 0 0
## 147 1 0 1 0 1 0 0 1 0
## 148 1 0 1 0 1 0 0 0 0
## 149 1 0 1 0 1 0 0 0 0
## 150 1 0 1 0 1 0 0 0 0
## 151 0 0 1 0 1 0 0 1 0
## 152 1 0 1 0 1 0 0 1 0
## 153 1 0 1 0 1 0 0 0 1
## 154 0 1 0 0 1 0 0 1 0
## 155 1 0 1 0 1 0 0 1 0
## Student PEOU_Rendah PEOU_Sedang PEOU_Tinggi PU_Rendah PU_Sedang PU_Tinggi
## 1 0 0 0 1 0 0 1
## 2 1 0 0 1 0 0 1
## 3 1 0 0 1 0 0 1
## 4 1 0 0 1 0 0 1
## 5 0 0 0 1 0 0 1
## 6 1 0 0 1 0 0 1
## 7 1 0 0 1 0 1 0
## 8 1 0 0 1 0 0 1
## 9 1 0 0 1 0 0 1
## 10 1 0 0 1 0 0 1
## 11 1 0 0 1 0 0 1
## 12 1 0 1 0 0 1 0
## 13 1 0 0 1 0 0 1
## 14 0 0 0 1 0 1 0
## 15 0 0 0 1 0 0 1
## 16 0 1 0 0 1 0 0
## 17 0 1 0 0 1 0 0
## 18 0 0 0 1 0 0 1
## 19 0 1 0 0 1 0 0
## 20 0 0 0 1 0 0 1
## 21 0 0 0 1 0 0 1
## 22 1 0 0 1 0 0 1
## 23 1 0 0 1 0 0 1
## 24 0 0 0 1 0 0 1
## 25 1 0 0 1 0 1 0
## 26 0 0 0 1 0 1 0
## 27 0 0 0 1 1 0 0
## 28 0 0 0 1 1 0 0
## 29 1 0 0 1 1 0 0
## 30 0 0 0 1 1 0 0
## 31 0 0 0 1 1 0 0
## 32 0 1 0 0 0 1 0
## 33 0 0 1 0 0 1 0
## 34 0 1 0 0 0 1 0
## 35 0 1 0 0 0 1 0
## 36 0 1 0 0 0 1 0
## 37 0 1 0 0 0 1 0
## 38 0 1 0 0 0 1 0
## 39 0 0 1 0 0 0 1
## 40 0 1 0 0 0 1 0
## 41 1 1 0 0 0 1 0
## 42 1 0 1 0 0 0 1
## 43 0 0 0 1 0 1 0
## 44 0 0 0 1 0 1 0
## 45 1 0 0 1 0 1 0
## 46 0 0 0 1 0 1 0
## 47 1 0 1 0 0 0 1
## 48 0 0 1 0 0 0 1
## 49 0 0 1 0 0 0 1
## 50 0 0 1 0 0 0 1
## 51 0 0 1 0 0 0 1
## 52 0 0 0 1 0 0 1
## 53 0 0 1 0 0 1 0
## 54 0 0 1 0 0 0 1
## 55 0 0 1 0 0 0 1
## 56 0 0 1 0 0 0 1
## 57 0 0 1 0 0 0 1
## 58 0 0 0 1 0 0 1
## 59 0 0 1 0 0 1 0
## 60 0 0 1 0 0 1 0
## 61 0 0 0 1 0 1 0
## 62 0 0 0 1 0 0 1
## 63 0 0 0 1 0 1 0
## 64 0 0 0 1 0 1 0
## 65 0 0 0 1 0 0 1
## 66 0 0 0 1 0 0 1
## 67 0 0 0 1 0 0 1
## 68 0 0 0 1 0 0 1
## 69 0 0 1 0 0 1 0
## 70 0 0 1 0 0 1 0
## 71 1 0 1 0 0 0 1
## 72 1 0 0 1 0 1 0
## 73 1 0 1 0 0 1 0
## 74 1 0 1 0 0 1 0
## 75 0 0 0 1 0 1 0
## 76 0 0 0 1 0 1 0
## 77 1 0 1 0 0 1 0
## 78 0 0 1 0 0 1 0
## 79 0 0 1 0 0 1 0
## 80 0 0 0 1 0 0 1
## 81 0 0 0 1 0 1 0
## 82 0 0 0 1 0 0 1
## 83 0 0 0 1 0 0 1
## 84 0 0 0 1 0 0 1
## 85 0 0 0 1 0 0 1
## 86 0 0 0 1 0 0 1
## 87 0 0 0 1 0 0 1
## 88 0 0 0 1 0 1 0
## 89 1 0 0 1 0 1 0
## 90 0 0 0 1 0 0 1
## 91 1 0 0 1 0 1 0
## 92 0 0 1 0 0 1 0
## 93 1 0 0 1 0 1 0
## 94 0 0 0 1 0 1 0
## 95 1 0 1 0 0 1 0
## 96 0 0 1 0 0 1 0
## 97 0 0 1 0 0 1 0
## 98 0 0 1 0 0 1 0
## 99 0 0 0 1 0 1 0
## 100 1 0 1 0 0 1 0
## 101 0 0 1 0 0 1 0
## 102 0 0 0 1 0 0 1
## 103 0 0 0 1 0 0 1
## 104 1 0 0 1 0 0 1
## 105 0 0 0 1 0 1 0
## 106 0 0 1 0 0 1 0
## 107 0 0 0 1 0 0 1
## 108 0 0 0 1 0 0 1
## 109 0 0 0 1 0 0 1
## 110 0 0 0 1 0 0 1
## 111 0 0 1 0 0 1 0
## 112 0 0 1 0 0 1 0
## 113 0 0 0 1 0 1 0
## 114 0 0 1 0 0 1 0
## 115 0 0 1 0 0 1 0
## 116 0 0 0 1 0 1 0
## 117 1 0 0 1 0 0 1
## 118 1 0 1 0 0 1 0
## 119 0 0 0 1 0 0 1
## 120 1 0 1 0 0 1 0
## 121 0 0 0 1 0 0 1
## 122 1 0 1 0 0 1 0
## 123 1 0 0 1 0 0 1
## 124 1 0 1 0 0 1 0
## 125 1 0 0 1 0 0 1
## 126 0 0 0 1 0 0 1
## 127 0 0 0 1 0 0 1
## 128 0 0 0 1 0 0 1
## 129 1 0 0 1 0 0 1
## 130 0 0 0 1 0 0 1
## 131 0 0 0 1 0 0 1
## 132 1 0 0 1 0 1 0
## 133 0 0 0 1 0 1 0
## 134 0 0 0 1 0 1 0
## 135 0 0 0 1 0 1 0
## 136 1 0 0 1 0 0 1
## 137 1 0 0 1 0 0 1
## 138 1 0 0 1 0 0 1
## 139 0 0 0 1 0 0 1
## 140 0 0 0 1 0 0 1
## 141 0 0 0 1 0 0 1
## 142 0 0 0 1 0 0 1
## 143 1 0 0 1 0 0 1
## 144 1 0 0 1 0 0 1
## 145 1 0 0 1 0 0 1
## 146 1 0 0 1 0 0 1
## 147 0 0 0 1 0 0 1
## 148 1 0 0 1 0 0 1
## 149 1 0 0 1 0 0 1
## 150 1 0 0 1 0 0 1
## 151 0 0 0 1 0 0 1
## 152 0 0 0 1 0 0 1
## 153 0 1 0 0 1 0 0
## 154 0 1 0 0 1 0 0
## 155 0 0 1 0 0 1 0
## ATU_Rendah ATU_Sedang ATU_Tinggi BI_Rendah BI_Sedang BI_Tinggi AU_Rendah
## 1 0 0 1 0 0 1 0
## 2 0 0 1 0 1 0 1
## 3 0 0 1 0 0 1 0
## 4 0 0 1 0 0 1 0
## 5 0 0 1 0 0 1 0
## 6 0 0 1 0 1 0 1
## 7 0 0 1 0 0 1 0
## 8 0 0 1 0 0 1 0
## 9 0 0 1 0 1 0 0
## 10 0 0 1 0 0 1 0
## 11 0 1 0 0 1 0 0
## 12 0 0 1 0 1 0 1
## 13 0 0 1 0 0 1 0
## 14 0 1 0 0 1 0 0
## 15 0 0 1 0 0 1 0
## 16 1 0 0 1 0 0 1
## 17 1 0 0 1 0 0 1
## 18 0 0 1 0 0 1 0
## 19 1 0 0 1 0 0 1
## 20 0 0 1 0 0 1 0
## 21 0 0 1 0 0 1 0
## 22 0 0 1 0 0 1 0
## 23 0 0 1 0 0 1 0
## 24 0 0 1 0 0 1 0
## 25 1 0 0 1 0 0 1
## 26 0 1 0 0 1 0 0
## 27 0 0 1 0 1 0 0
## 28 0 0 1 0 1 0 0
## 29 0 0 1 0 1 0 0
## 30 0 0 1 0 1 0 0
## 31 0 0 1 0 1 0 0
## 32 0 0 1 0 1 0 0
## 33 0 0 1 0 1 0 0
## 34 0 0 1 0 1 0 0
## 35 0 0 1 0 1 0 0
## 36 0 0 1 0 1 0 0
## 37 0 0 1 0 1 0 0
## 38 0 0 1 0 1 0 0
## 39 1 0 0 0 0 1 0
## 40 0 0 1 0 1 0 0
## 41 0 0 1 0 1 0 0
## 42 1 0 0 0 0 1 0
## 43 1 0 0 1 0 0 1
## 44 1 0 0 1 0 0 1
## 45 0 1 0 0 1 0 0
## 46 0 1 0 0 1 0 0
## 47 1 0 0 0 0 1 0
## 48 1 0 0 0 0 1 0
## 49 1 0 0 0 0 1 0
## 50 1 0 0 0 0 1 0
## 51 1 0 0 0 0 1 0
## 52 1 0 0 1 0 0 0
## 53 1 0 0 1 0 0 0
## 54 1 0 0 1 0 0 1
## 55 1 0 0 1 0 0 0
## 56 1 0 0 1 0 0 1
## 57 1 0 0 1 0 0 1
## 58 1 0 0 1 0 0 0
## 59 1 0 0 1 0 0 0
## 60 1 0 0 1 0 0 0
## 61 0 1 0 0 1 0 1
## 62 0 1 0 0 1 0 1
## 63 0 0 1 0 1 0 1
## 64 0 0 1 0 1 0 1
## 65 0 1 0 0 1 0 1
## 66 1 0 0 1 0 0 1
## 67 0 0 1 0 1 0 1
## 68 1 0 0 1 0 0 1
## 69 0 1 0 0 1 0 1
## 70 0 1 0 1 0 0 1
## 71 1 0 0 1 0 0 1
## 72 0 1 0 0 1 0 0
## 73 0 1 0 0 1 0 0
## 74 0 1 0 0 1 0 0
## 75 0 0 1 0 1 0 0
## 76 0 0 1 0 1 0 0
## 77 0 1 0 0 1 0 0
## 78 0 1 0 1 0 0 0
## 79 0 1 0 0 1 0 0
## 80 0 0 1 0 0 1 0
## 81 1 0 0 0 1 0 0
## 82 0 0 1 0 0 1 0
## 83 0 0 1 0 0 1 0
## 84 0 0 1 0 0 1 0
## 85 0 0 1 0 0 1 0
## 86 0 0 1 0 0 1 0
## 87 0 0 1 0 0 1 0
## 88 0 1 0 0 0 1 0
## 89 0 0 1 0 1 0 0
## 90 0 0 1 0 0 1 0
## 91 0 1 0 1 0 0 1
## 92 0 0 1 0 1 0 0
## 93 0 0 1 0 1 0 0
## 94 0 1 0 0 1 0 0
## 95 0 0 1 0 1 0 0
## 96 0 1 0 0 1 0 0
## 97 0 1 0 0 1 0 0
## 98 0 0 1 0 1 0 0
## 99 0 1 0 0 0 1 0
## 100 1 0 0 0 1 0 0
## 101 0 1 0 0 1 0 0
## 102 0 0 1 0 0 1 0
## 103 0 0 1 0 0 1 0
## 104 0 0 1 0 0 1 0
## 105 0 0 1 0 1 0 0
## 106 0 1 0 0 1 0 0
## 107 0 0 1 0 0 1 0
## 108 0 0 1 0 0 1 0
## 109 0 0 1 0 0 1 0
## 110 0 0 1 0 0 1 0
## 111 0 1 0 0 1 0 0
## 112 0 1 0 0 1 0 0
## 113 0 1 0 0 1 0 0
## 114 0 1 0 0 1 0 0
## 115 0 1 0 0 0 1 0
## 116 1 0 0 1 0 0 0
## 117 1 0 0 1 0 0 1
## 118 0 1 0 0 0 1 0
## 119 0 0 1 0 0 1 0
## 120 0 1 0 0 0 1 0
## 121 0 0 1 0 0 1 0
## 122 0 1 0 0 1 0 0
## 123 0 0 1 0 0 1 0
## 124 1 0 0 0 1 0 0
## 125 0 0 1 0 0 1 0
## 126 0 0 1 0 0 1 0
## 127 0 0 1 0 0 1 0
## 128 0 0 1 0 0 1 0
## 129 0 0 1 0 0 1 0
## 130 0 0 1 0 0 1 0
## 131 0 0 1 0 0 1 0
## 132 1 0 0 1 0 0 0
## 133 1 0 0 1 0 0 1
## 134 1 0 0 1 0 0 1
## 135 1 0 0 1 0 0 1
## 136 0 0 1 0 0 1 0
## 137 0 0 1 0 0 1 0
## 138 0 0 1 0 0 1 0
## 139 0 0 1 0 0 1 0
## 140 0 0 1 0 0 1 0
## 141 0 0 1 0 0 1 0
## 142 0 0 1 0 0 1 0
## 143 0 0 1 0 0 1 0
## 144 0 0 1 0 0 1 0
## 145 0 0 1 0 0 1 0
## 146 0 0 1 0 0 1 0
## 147 0 0 1 0 0 1 0
## 148 0 0 1 0 0 1 0
## 149 0 0 1 0 0 1 0
## 150 0 0 1 0 0 1 0
## 151 0 0 1 0 0 1 0
## 152 0 0 1 0 0 1 0
## 153 1 0 0 1 0 0 1
## 154 1 0 0 1 0 0 1
## 155 0 1 0 0 1 0 0
## AU_Sedang AU_Tinggi
## 1 0 1
## 2 0 0
## 3 0 1
## 4 0 1
## 5 1 0
## 6 0 0
## 7 1 0
## 8 1 0
## 9 1 0
## 10 0 1
## 11 1 0
## 12 0 0
## 13 0 1
## 14 1 0
## 15 0 1
## 16 0 0
## 17 0 0
## 18 0 1
## 19 0 0
## 20 0 1
## 21 0 1
## 22 0 1
## 23 0 1
## 24 0 1
## 25 0 0
## 26 1 0
## 27 1 0
## 28 1 0
## 29 1 0
## 30 1 0
## 31 1 0
## 32 1 0
## 33 1 0
## 34 1 0
## 35 1 0
## 36 1 0
## 37 1 0
## 38 1 0
## 39 0 1
## 40 1 0
## 41 1 0
## 42 0 1
## 43 0 0
## 44 0 0
## 45 1 0
## 46 1 0
## 47 0 1
## 48 0 1
## 49 0 1
## 50 0 1
## 51 0 1
## 52 1 0
## 53 1 0
## 54 0 0
## 55 0 1
## 56 0 0
## 57 0 0
## 58 1 0
## 59 1 0
## 60 0 1
## 61 0 0
## 62 0 0
## 63 0 0
## 64 0 0
## 65 0 0
## 66 0 0
## 67 0 0
## 68 0 0
## 69 0 0
## 70 0 0
## 71 0 0
## 72 1 0
## 73 1 0
## 74 0 1
## 75 1 0
## 76 1 0
## 77 1 0
## 78 1 0
## 79 1 0
## 80 0 1
## 81 1 0
## 82 0 1
## 83 0 1
## 84 0 1
## 85 0 1
## 86 0 1
## 87 0 1
## 88 0 1
## 89 1 0
## 90 0 1
## 91 0 0
## 92 1 0
## 93 0 1
## 94 1 0
## 95 1 0
## 96 1 0
## 97 1 0
## 98 0 1
## 99 1 0
## 100 1 0
## 101 1 0
## 102 1 0
## 103 0 1
## 104 0 1
## 105 0 1
## 106 1 0
## 107 0 1
## 108 0 1
## 109 0 1
## 110 0 1
## 111 1 0
## 112 1 0
## 113 0 1
## 114 1 0
## 115 1 0
## 116 1 0
## 117 0 0
## 118 1 0
## 119 0 1
## 120 1 0
## 121 0 1
## 122 0 1
## 123 0 1
## 124 1 0
## 125 0 1
## 126 0 1
## 127 0 1
## 128 0 1
## 129 0 1
## 130 0 1
## 131 0 1
## 132 1 0
## 133 0 0
## 134 0 0
## 135 0 0
## 136 0 1
## 137 0 1
## 138 0 1
## 139 0 1
## 140 0 1
## 141 0 1
## 142 0 1
## 143 0 1
## 144 0 1
## 145 0 1
## 146 0 1
## 147 0 1
## 148 1 0
## 149 0 1
## 150 0 1
## 151 0 1
## 152 0 1
## 153 0 0
## 154 0 0
## 155 1 03. Pembentukan Matriks Burt
matriks_burt <- t(matriks_indikator) %*% matriks_indikator
matriks_burt## Daily Once a week Several times a week
## Daily 56 0 0
## Once a week 0 23 0
## Several times a week 0 0 76
## Gen Y (1981 to 1996) 13 6 18
## Gen Z (1997 to 2012) 43 17 58
## Female 33 9 40
## Male 23 14 36
## Other 2 1 5
## S1 46 20 60
## S2 5 2 7
## S3 3 0 4
## Employee 25 14 41
## Entrepreneur 11 3 12
## Student 20 6 23
## PEOU_Rendah 3 4 6
## PEOU_Sedang 12 7 22
## PEOU_Tinggi 41 12 48
## PU_Rendah 3 3 4
## PU_Sedang 19 13 33
## PU_Tinggi 34 7 39
## ATU_Rendah 11 6 19
## ATU_Sedang 11 10 12
## ATU_Tinggi 34 7 45
## BI_Rendah 10 5 14
## BI_Sedang 17 12 28
## BI_Tinggi 29 6 34
## AU_Rendah 7 6 17
## AU_Sedang 23 9 25
## AU_Tinggi 26 8 34
## Gen Y (1981 to 1996) Gen Z (1997 to 2012) Female Male
## Daily 13 43 33 23
## Once a week 6 17 9 14
## Several times a week 18 58 40 36
## Gen Y (1981 to 1996) 37 0 20 17
## Gen Z (1997 to 2012) 0 118 62 56
## Female 20 62 82 0
## Male 17 56 0 73
## Other 1 7 4 4
## S1 19 107 65 61
## S2 12 2 8 6
## S3 5 2 5 2
## Employee 22 58 37 43
## Entrepreneur 15 11 16 10
## Student 0 49 29 20
## PEOU_Rendah 6 7 6 7
## PEOU_Sedang 10 31 20 21
## PEOU_Tinggi 21 80 56 45
## PU_Rendah 2 8 5 5
## PU_Sedang 19 46 33 32
## PU_Tinggi 16 64 44 36
## ATU_Rendah 10 26 17 19
## ATU_Sedang 6 27 16 17
## ATU_Tinggi 21 65 49 37
## BI_Rendah 10 19 14 15
## BI_Sedang 12 45 32 25
## BI_Tinggi 15 54 36 33
## AU_Rendah 6 24 17 13
## AU_Sedang 15 42 28 29
## AU_Tinggi 16 52 37 31
## Other S1 S2 S3 Employee Entrepreneur Student PEOU_Rendah
## Daily 2 46 5 3 25 11 20 3
## Once a week 1 20 2 0 14 3 6 4
## Several times a week 5 60 7 4 41 12 23 6
## Gen Y (1981 to 1996) 1 19 12 5 22 15 0 6
## Gen Z (1997 to 2012) 7 107 2 2 58 11 49 7
## Female 4 65 8 5 37 16 29 6
## Male 4 61 6 2 43 10 20 7
## Other 8 0 0 0 2 0 6 0
## S1 0 126 0 0 73 10 43 11
## S2 0 0 14 0 5 9 0 2
## S3 0 0 0 7 0 7 0 0
## Employee 2 73 5 0 80 0 0 7
## Entrepreneur 0 10 9 7 0 26 0 5
## Student 6 43 0 0 0 0 49 1
## PEOU_Rendah 0 11 2 0 7 5 1 13
## PEOU_Sedang 1 36 3 1 23 5 13 0
## PEOU_Tinggi 7 79 9 6 50 16 35 0
## PU_Rendah 0 10 0 0 8 1 1 5
## PU_Sedang 2 52 9 2 34 12 19 8
## PU_Tinggi 6 64 5 5 38 13 29 0
## ATU_Rendah 0 31 4 1 22 6 8 5
## ATU_Sedang 0 32 1 0 21 2 10 0
## ATU_Tinggi 8 63 9 6 37 18 31 8
## BI_Rendah 0 24 4 1 19 5 5 5
## BI_Sedang 2 49 5 1 30 9 18 8
## BI_Tinggi 6 53 5 5 31 12 26 0
## AU_Rendah 1 26 3 0 19 4 7 5
## AU_Sedang 3 48 6 0 31 8 18 8
## AU_Tinggi 4 52 5 7 30 14 24 0
## PEOU_Sedang PEOU_Tinggi PU_Rendah PU_Sedang PU_Tinggi
## Daily 12 41 3 19 34
## Once a week 7 12 3 13 7
## Several times a week 22 48 4 33 39
## Gen Y (1981 to 1996) 10 21 2 19 16
## Gen Z (1997 to 2012) 31 80 8 46 64
## Female 20 56 5 33 44
## Male 21 45 5 32 36
## Other 1 7 0 2 6
## S1 36 79 10 52 64
## S2 3 9 0 9 5
## S3 1 6 0 2 5
## Employee 23 50 8 34 38
## Entrepreneur 5 16 1 12 13
## Student 13 35 1 19 29
## PEOU_Rendah 0 0 5 8 0
## PEOU_Sedang 41 0 0 29 12
## PEOU_Tinggi 0 101 5 28 68
## PU_Rendah 0 5 10 0 0
## PU_Sedang 29 28 0 65 0
## PU_Tinggi 12 68 0 0 80
## ATU_Rendah 17 14 5 14 17
## ATU_Sedang 19 14 0 30 3
## ATU_Tinggi 5 73 5 21 60
## BI_Rendah 10 14 5 14 10
## BI_Sedang 21 28 5 45 7
## BI_Tinggi 10 59 0 6 63
## AU_Rendah 7 18 5 13 12
## AU_Sedang 22 27 5 44 8
## AU_Tinggi 12 56 0 8 60
## ATU_Rendah ATU_Sedang ATU_Tinggi BI_Rendah BI_Sedang
## Daily 11 11 34 10 17
## Once a week 6 10 7 5 12
## Several times a week 19 12 45 14 28
## Gen Y (1981 to 1996) 10 6 21 10 12
## Gen Z (1997 to 2012) 26 27 65 19 45
## Female 17 16 49 14 32
## Male 19 17 37 15 25
## Other 0 0 8 0 2
## S1 31 32 63 24 49
## S2 4 1 9 4 5
## S3 1 0 6 1 1
## Employee 22 21 37 19 30
## Entrepreneur 6 2 18 5 9
## Student 8 10 31 5 18
## PEOU_Rendah 5 0 8 5 8
## PEOU_Sedang 17 19 5 10 21
## PEOU_Tinggi 14 14 73 14 28
## PU_Rendah 5 0 5 5 5
## PU_Sedang 14 30 21 14 45
## PU_Tinggi 17 3 60 10 7
## ATU_Rendah 36 0 0 26 3
## ATU_Sedang 0 33 0 3 25
## ATU_Tinggi 0 0 86 0 29
## BI_Rendah 26 3 0 29 0
## BI_Sedang 3 25 29 0 57
## BI_Tinggi 7 5 57 0 0
## AU_Rendah 18 6 6 20 10
## AU_Sedang 9 23 25 7 41
## AU_Tinggi 9 4 55 2 6
## BI_Tinggi AU_Rendah AU_Sedang AU_Tinggi
## Daily 29 7 23 26
## Once a week 6 6 9 8
## Several times a week 34 17 25 34
## Gen Y (1981 to 1996) 15 6 15 16
## Gen Z (1997 to 2012) 54 24 42 52
## Female 36 17 28 37
## Male 33 13 29 31
## Other 6 1 3 4
## S1 53 26 48 52
## S2 5 3 6 5
## S3 5 0 0 7
## Employee 31 19 31 30
## Entrepreneur 12 4 8 14
## Student 26 7 18 24
## PEOU_Rendah 0 5 8 0
## PEOU_Sedang 10 7 22 12
## PEOU_Tinggi 59 18 27 56
## PU_Rendah 0 5 5 0
## PU_Sedang 6 13 44 8
## PU_Tinggi 63 12 8 60
## ATU_Rendah 7 18 9 9
## ATU_Sedang 5 6 23 4
## ATU_Tinggi 57 6 25 55
## BI_Rendah 0 20 7 2
## BI_Sedang 0 10 41 6
## BI_Tinggi 69 0 9 60
## AU_Rendah 0 30 0 0
## AU_Sedang 9 0 57 0
## AU_Tinggi 60 0 0 684. Pembentukan Matriks Proporsi
n <- sum(matriks_burt)
P <- matriks_burt / n
cat("Total frekuensi (n) =", n, "\n")## Total frekuensi (n) = 15500cat("Cek: sum(P) =", round(sum(P), 6))## Cek: sum(P) = 1print(round(P, 4))## Daily Once a week Several times a week
## Daily 0.0036 0.0000 0.0000
## Once a week 0.0000 0.0015 0.0000
## Several times a week 0.0000 0.0000 0.0049
## Gen Y (1981 to 1996) 0.0008 0.0004 0.0012
## Gen Z (1997 to 2012) 0.0028 0.0011 0.0037
## Female 0.0021 0.0006 0.0026
## Male 0.0015 0.0009 0.0023
## Other 0.0001 0.0001 0.0003
## S1 0.0030 0.0013 0.0039
## S2 0.0003 0.0001 0.0005
## S3 0.0002 0.0000 0.0003
## Employee 0.0016 0.0009 0.0026
## Entrepreneur 0.0007 0.0002 0.0008
## Student 0.0013 0.0004 0.0015
## PEOU_Rendah 0.0002 0.0003 0.0004
## PEOU_Sedang 0.0008 0.0005 0.0014
## PEOU_Tinggi 0.0026 0.0008 0.0031
## PU_Rendah 0.0002 0.0002 0.0003
## PU_Sedang 0.0012 0.0008 0.0021
## PU_Tinggi 0.0022 0.0005 0.0025
## ATU_Rendah 0.0007 0.0004 0.0012
## ATU_Sedang 0.0007 0.0006 0.0008
## ATU_Tinggi 0.0022 0.0005 0.0029
## BI_Rendah 0.0006 0.0003 0.0009
## BI_Sedang 0.0011 0.0008 0.0018
## BI_Tinggi 0.0019 0.0004 0.0022
## AU_Rendah 0.0005 0.0004 0.0011
## AU_Sedang 0.0015 0.0006 0.0016
## AU_Tinggi 0.0017 0.0005 0.0022
## Gen Y (1981 to 1996) Gen Z (1997 to 2012) Female Male
## Daily 0.0008 0.0028 0.0021 0.0015
## Once a week 0.0004 0.0011 0.0006 0.0009
## Several times a week 0.0012 0.0037 0.0026 0.0023
## Gen Y (1981 to 1996) 0.0024 0.0000 0.0013 0.0011
## Gen Z (1997 to 2012) 0.0000 0.0076 0.0040 0.0036
## Female 0.0013 0.0040 0.0053 0.0000
## Male 0.0011 0.0036 0.0000 0.0047
## Other 0.0001 0.0005 0.0003 0.0003
## S1 0.0012 0.0069 0.0042 0.0039
## S2 0.0008 0.0001 0.0005 0.0004
## S3 0.0003 0.0001 0.0003 0.0001
## Employee 0.0014 0.0037 0.0024 0.0028
## Entrepreneur 0.0010 0.0007 0.0010 0.0006
## Student 0.0000 0.0032 0.0019 0.0013
## PEOU_Rendah 0.0004 0.0005 0.0004 0.0005
## PEOU_Sedang 0.0006 0.0020 0.0013 0.0014
## PEOU_Tinggi 0.0014 0.0052 0.0036 0.0029
## PU_Rendah 0.0001 0.0005 0.0003 0.0003
## PU_Sedang 0.0012 0.0030 0.0021 0.0021
## PU_Tinggi 0.0010 0.0041 0.0028 0.0023
## ATU_Rendah 0.0006 0.0017 0.0011 0.0012
## ATU_Sedang 0.0004 0.0017 0.0010 0.0011
## ATU_Tinggi 0.0014 0.0042 0.0032 0.0024
## BI_Rendah 0.0006 0.0012 0.0009 0.0010
## BI_Sedang 0.0008 0.0029 0.0021 0.0016
## BI_Tinggi 0.0010 0.0035 0.0023 0.0021
## AU_Rendah 0.0004 0.0015 0.0011 0.0008
## AU_Sedang 0.0010 0.0027 0.0018 0.0019
## AU_Tinggi 0.0010 0.0034 0.0024 0.0020
## Other S1 S2 S3 Employee Entrepreneur Student
## Daily 1e-04 0.0030 3e-04 2e-04 0.0016 0.0007 0.0013
## Once a week 1e-04 0.0013 1e-04 0e+00 0.0009 0.0002 0.0004
## Several times a week 3e-04 0.0039 5e-04 3e-04 0.0026 0.0008 0.0015
## Gen Y (1981 to 1996) 1e-04 0.0012 8e-04 3e-04 0.0014 0.0010 0.0000
## Gen Z (1997 to 2012) 5e-04 0.0069 1e-04 1e-04 0.0037 0.0007 0.0032
## Female 3e-04 0.0042 5e-04 3e-04 0.0024 0.0010 0.0019
## Male 3e-04 0.0039 4e-04 1e-04 0.0028 0.0006 0.0013
## Other 5e-04 0.0000 0e+00 0e+00 0.0001 0.0000 0.0004
## S1 0e+00 0.0081 0e+00 0e+00 0.0047 0.0006 0.0028
## S2 0e+00 0.0000 9e-04 0e+00 0.0003 0.0006 0.0000
## S3 0e+00 0.0000 0e+00 5e-04 0.0000 0.0005 0.0000
## Employee 1e-04 0.0047 3e-04 0e+00 0.0052 0.0000 0.0000
## Entrepreneur 0e+00 0.0006 6e-04 5e-04 0.0000 0.0017 0.0000
## Student 4e-04 0.0028 0e+00 0e+00 0.0000 0.0000 0.0032
## PEOU_Rendah 0e+00 0.0007 1e-04 0e+00 0.0005 0.0003 0.0001
## PEOU_Sedang 1e-04 0.0023 2e-04 1e-04 0.0015 0.0003 0.0008
## PEOU_Tinggi 5e-04 0.0051 6e-04 4e-04 0.0032 0.0010 0.0023
## PU_Rendah 0e+00 0.0006 0e+00 0e+00 0.0005 0.0001 0.0001
## PU_Sedang 1e-04 0.0034 6e-04 1e-04 0.0022 0.0008 0.0012
## PU_Tinggi 4e-04 0.0041 3e-04 3e-04 0.0025 0.0008 0.0019
## ATU_Rendah 0e+00 0.0020 3e-04 1e-04 0.0014 0.0004 0.0005
## ATU_Sedang 0e+00 0.0021 1e-04 0e+00 0.0014 0.0001 0.0006
## ATU_Tinggi 5e-04 0.0041 6e-04 4e-04 0.0024 0.0012 0.0020
## BI_Rendah 0e+00 0.0015 3e-04 1e-04 0.0012 0.0003 0.0003
## BI_Sedang 1e-04 0.0032 3e-04 1e-04 0.0019 0.0006 0.0012
## BI_Tinggi 4e-04 0.0034 3e-04 3e-04 0.0020 0.0008 0.0017
## AU_Rendah 1e-04 0.0017 2e-04 0e+00 0.0012 0.0003 0.0005
## AU_Sedang 2e-04 0.0031 4e-04 0e+00 0.0020 0.0005 0.0012
## AU_Tinggi 3e-04 0.0034 3e-04 5e-04 0.0019 0.0009 0.0015
## PEOU_Rendah PEOU_Sedang PEOU_Tinggi PU_Rendah PU_Sedang
## Daily 2e-04 0.0008 0.0026 2e-04 0.0012
## Once a week 3e-04 0.0005 0.0008 2e-04 0.0008
## Several times a week 4e-04 0.0014 0.0031 3e-04 0.0021
## Gen Y (1981 to 1996) 4e-04 0.0006 0.0014 1e-04 0.0012
## Gen Z (1997 to 2012) 5e-04 0.0020 0.0052 5e-04 0.0030
## Female 4e-04 0.0013 0.0036 3e-04 0.0021
## Male 5e-04 0.0014 0.0029 3e-04 0.0021
## Other 0e+00 0.0001 0.0005 0e+00 0.0001
## S1 7e-04 0.0023 0.0051 6e-04 0.0034
## S2 1e-04 0.0002 0.0006 0e+00 0.0006
## S3 0e+00 0.0001 0.0004 0e+00 0.0001
## Employee 5e-04 0.0015 0.0032 5e-04 0.0022
## Entrepreneur 3e-04 0.0003 0.0010 1e-04 0.0008
## Student 1e-04 0.0008 0.0023 1e-04 0.0012
## PEOU_Rendah 8e-04 0.0000 0.0000 3e-04 0.0005
## PEOU_Sedang 0e+00 0.0026 0.0000 0e+00 0.0019
## PEOU_Tinggi 0e+00 0.0000 0.0065 3e-04 0.0018
## PU_Rendah 3e-04 0.0000 0.0003 6e-04 0.0000
## PU_Sedang 5e-04 0.0019 0.0018 0e+00 0.0042
## PU_Tinggi 0e+00 0.0008 0.0044 0e+00 0.0000
## ATU_Rendah 3e-04 0.0011 0.0009 3e-04 0.0009
## ATU_Sedang 0e+00 0.0012 0.0009 0e+00 0.0019
## ATU_Tinggi 5e-04 0.0003 0.0047 3e-04 0.0014
## BI_Rendah 3e-04 0.0006 0.0009 3e-04 0.0009
## BI_Sedang 5e-04 0.0014 0.0018 3e-04 0.0029
## BI_Tinggi 0e+00 0.0006 0.0038 0e+00 0.0004
## AU_Rendah 3e-04 0.0005 0.0012 3e-04 0.0008
## AU_Sedang 5e-04 0.0014 0.0017 3e-04 0.0028
## AU_Tinggi 0e+00 0.0008 0.0036 0e+00 0.0005
## PU_Tinggi ATU_Rendah ATU_Sedang ATU_Tinggi BI_Rendah
## Daily 0.0022 0.0007 0.0007 0.0022 0.0006
## Once a week 0.0005 0.0004 0.0006 0.0005 0.0003
## Several times a week 0.0025 0.0012 0.0008 0.0029 0.0009
## Gen Y (1981 to 1996) 0.0010 0.0006 0.0004 0.0014 0.0006
## Gen Z (1997 to 2012) 0.0041 0.0017 0.0017 0.0042 0.0012
## Female 0.0028 0.0011 0.0010 0.0032 0.0009
## Male 0.0023 0.0012 0.0011 0.0024 0.0010
## Other 0.0004 0.0000 0.0000 0.0005 0.0000
## S1 0.0041 0.0020 0.0021 0.0041 0.0015
## S2 0.0003 0.0003 0.0001 0.0006 0.0003
## S3 0.0003 0.0001 0.0000 0.0004 0.0001
## Employee 0.0025 0.0014 0.0014 0.0024 0.0012
## Entrepreneur 0.0008 0.0004 0.0001 0.0012 0.0003
## Student 0.0019 0.0005 0.0006 0.0020 0.0003
## PEOU_Rendah 0.0000 0.0003 0.0000 0.0005 0.0003
## PEOU_Sedang 0.0008 0.0011 0.0012 0.0003 0.0006
## PEOU_Tinggi 0.0044 0.0009 0.0009 0.0047 0.0009
## PU_Rendah 0.0000 0.0003 0.0000 0.0003 0.0003
## PU_Sedang 0.0000 0.0009 0.0019 0.0014 0.0009
## PU_Tinggi 0.0052 0.0011 0.0002 0.0039 0.0006
## ATU_Rendah 0.0011 0.0023 0.0000 0.0000 0.0017
## ATU_Sedang 0.0002 0.0000 0.0021 0.0000 0.0002
## ATU_Tinggi 0.0039 0.0000 0.0000 0.0055 0.0000
## BI_Rendah 0.0006 0.0017 0.0002 0.0000 0.0019
## BI_Sedang 0.0005 0.0002 0.0016 0.0019 0.0000
## BI_Tinggi 0.0041 0.0005 0.0003 0.0037 0.0000
## AU_Rendah 0.0008 0.0012 0.0004 0.0004 0.0013
## AU_Sedang 0.0005 0.0006 0.0015 0.0016 0.0005
## AU_Tinggi 0.0039 0.0006 0.0003 0.0035 0.0001
## BI_Sedang BI_Tinggi AU_Rendah AU_Sedang AU_Tinggi
## Daily 0.0011 0.0019 0.0005 0.0015 0.0017
## Once a week 0.0008 0.0004 0.0004 0.0006 0.0005
## Several times a week 0.0018 0.0022 0.0011 0.0016 0.0022
## Gen Y (1981 to 1996) 0.0008 0.0010 0.0004 0.0010 0.0010
## Gen Z (1997 to 2012) 0.0029 0.0035 0.0015 0.0027 0.0034
## Female 0.0021 0.0023 0.0011 0.0018 0.0024
## Male 0.0016 0.0021 0.0008 0.0019 0.0020
## Other 0.0001 0.0004 0.0001 0.0002 0.0003
## S1 0.0032 0.0034 0.0017 0.0031 0.0034
## S2 0.0003 0.0003 0.0002 0.0004 0.0003
## S3 0.0001 0.0003 0.0000 0.0000 0.0005
## Employee 0.0019 0.0020 0.0012 0.0020 0.0019
## Entrepreneur 0.0006 0.0008 0.0003 0.0005 0.0009
## Student 0.0012 0.0017 0.0005 0.0012 0.0015
## PEOU_Rendah 0.0005 0.0000 0.0003 0.0005 0.0000
## PEOU_Sedang 0.0014 0.0006 0.0005 0.0014 0.0008
## PEOU_Tinggi 0.0018 0.0038 0.0012 0.0017 0.0036
## PU_Rendah 0.0003 0.0000 0.0003 0.0003 0.0000
## PU_Sedang 0.0029 0.0004 0.0008 0.0028 0.0005
## PU_Tinggi 0.0005 0.0041 0.0008 0.0005 0.0039
## ATU_Rendah 0.0002 0.0005 0.0012 0.0006 0.0006
## ATU_Sedang 0.0016 0.0003 0.0004 0.0015 0.0003
## ATU_Tinggi 0.0019 0.0037 0.0004 0.0016 0.0035
## BI_Rendah 0.0000 0.0000 0.0013 0.0005 0.0001
## BI_Sedang 0.0037 0.0000 0.0006 0.0026 0.0004
## BI_Tinggi 0.0000 0.0045 0.0000 0.0006 0.0039
## AU_Rendah 0.0006 0.0000 0.0019 0.0000 0.0000
## AU_Sedang 0.0026 0.0006 0.0000 0.0037 0.0000
## AU_Tinggi 0.0004 0.0039 0.0000 0.0000 0.00445. Perhitungan Massa Kategori
r <- rowSums(P)
cat("\nMassa tiap kategori (r = c):\n")##
## Massa tiap kategori (r = c):print(round(r, 4))## Daily Once a week Several times a week
## 0.0361 0.0148 0.0490
## Gen Y (1981 to 1996) Gen Z (1997 to 2012) Female
## 0.0239 0.0761 0.0529
## Male Other S1
## 0.0471 0.0052 0.0813
## S2 S3 Employee
## 0.0090 0.0045 0.0516
## Entrepreneur Student PEOU_Rendah
## 0.0168 0.0316 0.0084
## PEOU_Sedang PEOU_Tinggi PU_Rendah
## 0.0265 0.0652 0.0065
## PU_Sedang PU_Tinggi ATU_Rendah
## 0.0419 0.0516 0.0232
## ATU_Sedang ATU_Tinggi BI_Rendah
## 0.0213 0.0555 0.0187
## BI_Sedang BI_Tinggi AU_Rendah
## 0.0368 0.0445 0.0194
## AU_Sedang AU_Tinggi
## 0.0368 0.0439cat("Cek: sum(r) =", round(sum(r), 6))## Cek: sum(r) = 16. Penyusunan Profil Baris
D_r <- diag(r)
D_r## [,1] [,2] [,3] [,4] [,5] [,6]
## [1,] 0.03612903 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [2,] 0.00000000 0.01483871 0.00000000 0.00000000 0.00000000 0.00000000
## [3,] 0.00000000 0.00000000 0.04903226 0.00000000 0.00000000 0.00000000
## [4,] 0.00000000 0.00000000 0.00000000 0.02387097 0.00000000 0.00000000
## [5,] 0.00000000 0.00000000 0.00000000 0.00000000 0.07612903 0.00000000
## [6,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.05290323
## [7,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [8,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [9,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [10,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [11,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [12,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [13,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [14,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [15,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [16,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [17,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [18,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [19,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [20,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [21,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [22,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [23,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [24,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [25,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [26,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [27,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [28,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [29,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [,7] [,8] [,9] [,10] [,11] [,12]
## [1,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [2,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [3,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [4,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [5,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [6,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [7,] 0.04709677 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [8,] 0.00000000 0.00516129 0.00000000 0.000000000 0.000000000 0.0000000
## [9,] 0.00000000 0.00000000 0.08129032 0.000000000 0.000000000 0.0000000
## [10,] 0.00000000 0.00000000 0.00000000 0.009032258 0.000000000 0.0000000
## [11,] 0.00000000 0.00000000 0.00000000 0.000000000 0.004516129 0.0000000
## [12,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0516129
## [13,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [14,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [15,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [16,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [17,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [18,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [19,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [20,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [21,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [22,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [23,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [24,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [25,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [26,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [27,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [28,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [29,] 0.00000000 0.00000000 0.00000000 0.000000000 0.000000000 0.0000000
## [,13] [,14] [,15] [,16] [,17] [,18]
## [1,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [2,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [3,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [4,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [5,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [6,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [7,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [8,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [9,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [10,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [11,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [12,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [13,] 0.01677419 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [14,] 0.00000000 0.0316129 0.000000000 0.00000000 0.00000000 0.000000000
## [15,] 0.00000000 0.0000000 0.008387097 0.00000000 0.00000000 0.000000000
## [16,] 0.00000000 0.0000000 0.000000000 0.02645161 0.00000000 0.000000000
## [17,] 0.00000000 0.0000000 0.000000000 0.00000000 0.06516129 0.000000000
## [18,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.006451613
## [19,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [20,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [21,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [22,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [23,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [24,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [25,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [26,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [27,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [28,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [29,] 0.00000000 0.0000000 0.000000000 0.00000000 0.00000000 0.000000000
## [,19] [,20] [,21] [,22] [,23] [,24]
## [1,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [2,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [3,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [4,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [5,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [6,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [7,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [8,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [9,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [10,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [11,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [12,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [13,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [14,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [15,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [16,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [17,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [18,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [19,] 0.04193548 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [20,] 0.00000000 0.0516129 0.00000000 0.00000000 0.00000000 0.00000000
## [21,] 0.00000000 0.0000000 0.02322581 0.00000000 0.00000000 0.00000000
## [22,] 0.00000000 0.0000000 0.00000000 0.02129032 0.00000000 0.00000000
## [23,] 0.00000000 0.0000000 0.00000000 0.00000000 0.05548387 0.00000000
## [24,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.01870968
## [25,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [26,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [27,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [28,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [29,] 0.00000000 0.0000000 0.00000000 0.00000000 0.00000000 0.00000000
## [,25] [,26] [,27] [,28] [,29]
## [1,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [2,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [3,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [4,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [5,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [6,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [7,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [8,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [9,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [10,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [11,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [12,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [13,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [14,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [15,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [16,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [17,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [18,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [19,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [20,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [21,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [22,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [23,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [24,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [25,] 0.03677419 0.00000000 0.00000000 0.00000000 0.00000000
## [26,] 0.00000000 0.04451613 0.00000000 0.00000000 0.00000000
## [27,] 0.00000000 0.00000000 0.01935484 0.00000000 0.00000000
## [28,] 0.00000000 0.00000000 0.00000000 0.03677419 0.00000000
## [29,] 0.00000000 0.00000000 0.00000000 0.00000000 0.04387097D_r_inv <- diag(1 / r)
D_r_inv## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
## [1,] 27.67857 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [2,] 0.00000 67.3913 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [3,] 0.00000 0.0000 20.39474 0.00000 0.00000 0.00000 0.00000 0.00
## [4,] 0.00000 0.0000 0.00000 41.89189 0.00000 0.00000 0.00000 0.00
## [5,] 0.00000 0.0000 0.00000 0.00000 13.13559 0.00000 0.00000 0.00
## [6,] 0.00000 0.0000 0.00000 0.00000 0.00000 18.90244 0.00000 0.00
## [7,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 21.23288 0.00
## [8,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 193.75
## [9,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [10,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [11,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [12,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [13,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [14,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [15,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [16,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [17,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [18,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [19,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [20,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [21,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [22,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [23,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [24,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [25,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [26,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [27,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [28,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [29,] 0.00000 0.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00
## [,9] [,10] [,11] [,12] [,13] [,14] [,15] [,16]
## [1,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [2,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [3,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [4,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [5,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [6,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [7,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [8,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [9,] 12.30159 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [10,] 0.00000 110.7143 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [11,] 0.00000 0.0000 221.4286 0.000 0.00000 0.00000 0.0000 0.00000
## [12,] 0.00000 0.0000 0.0000 19.375 0.00000 0.00000 0.0000 0.00000
## [13,] 0.00000 0.0000 0.0000 0.000 59.61538 0.00000 0.0000 0.00000
## [14,] 0.00000 0.0000 0.0000 0.000 0.00000 31.63265 0.0000 0.00000
## [15,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 119.2308 0.00000
## [16,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 37.80488
## [17,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [18,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [19,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [20,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [21,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [22,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [23,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [24,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [25,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [26,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [27,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [28,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [29,] 0.00000 0.0000 0.0000 0.000 0.00000 0.00000 0.0000 0.00000
## [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24]
## [1,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [2,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [3,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [4,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [5,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [6,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [7,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [8,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [9,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [10,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [11,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [12,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [13,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [14,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [15,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [16,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [17,] 15.34653 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [18,] 0.00000 155 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [19,] 0.00000 0 23.84615 0.000 0.00000 0.0000 0.00000 0.00000
## [20,] 0.00000 0 0.00000 19.375 0.00000 0.0000 0.00000 0.00000
## [21,] 0.00000 0 0.00000 0.000 43.05556 0.0000 0.00000 0.00000
## [22,] 0.00000 0 0.00000 0.000 0.00000 46.9697 0.00000 0.00000
## [23,] 0.00000 0 0.00000 0.000 0.00000 0.0000 18.02326 0.00000
## [24,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 53.44828
## [25,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [26,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [27,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [28,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [29,] 0.00000 0 0.00000 0.000 0.00000 0.0000 0.00000 0.00000
## [,25] [,26] [,27] [,28] [,29]
## [1,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [2,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [3,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [4,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [5,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [6,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [7,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [8,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [9,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [10,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [11,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [12,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [13,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [14,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [15,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [16,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [17,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [18,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [19,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [20,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [21,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [22,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [23,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [24,] 0.00000 0.00000 0.00000 0.00000 0.00000
## [25,] 27.19298 0.00000 0.00000 0.00000 0.00000
## [26,] 0.00000 22.46377 0.00000 0.00000 0.00000
## [27,] 0.00000 0.00000 51.66667 0.00000 0.00000
## [28,] 0.00000 0.00000 0.00000 27.19298 0.00000
## [29,] 0.00000 0.00000 0.00000 0.00000 22.794127. Pembentukan Matriks Profil Baris
profil_baris <- D_r_inv %*% P
rownames(profil_baris) <- colnames(matriks_burt)
colnames(profil_baris) <- colnames(matriks_burt)
cat("\nDimensi Matriks Profil Baris:", dim(profil_baris), "\n")##
## Dimensi Matriks Profil Baris: 29 29cat("Cek: setiap baris harusnya berjumlah 1:\n")## Cek: setiap baris harusnya berjumlah 1:print(round(range(rowSums(profil_baris)), 6))## [1] 1 1print(round(profil_baris, 4))## Daily Once a week Several times a week
## Daily 0.1000 0.0000 0.0000
## Once a week 0.0000 0.1000 0.0000
## Several times a week 0.0000 0.0000 0.1000
## Gen Y (1981 to 1996) 0.0351 0.0162 0.0486
## Gen Z (1997 to 2012) 0.0364 0.0144 0.0492
## Female 0.0402 0.0110 0.0488
## Male 0.0315 0.0192 0.0493
## Other 0.0250 0.0125 0.0625
## S1 0.0365 0.0159 0.0476
## S2 0.0357 0.0143 0.0500
## S3 0.0429 0.0000 0.0571
## Employee 0.0312 0.0175 0.0513
## Entrepreneur 0.0423 0.0115 0.0462
## Student 0.0408 0.0122 0.0469
## PEOU_Rendah 0.0231 0.0308 0.0462
## PEOU_Sedang 0.0293 0.0171 0.0537
## PEOU_Tinggi 0.0406 0.0119 0.0475
## PU_Rendah 0.0300 0.0300 0.0400
## PU_Sedang 0.0292 0.0200 0.0508
## PU_Tinggi 0.0425 0.0087 0.0488
## ATU_Rendah 0.0306 0.0167 0.0528
## ATU_Sedang 0.0333 0.0303 0.0364
## ATU_Tinggi 0.0395 0.0081 0.0523
## BI_Rendah 0.0345 0.0172 0.0483
## BI_Sedang 0.0298 0.0211 0.0491
## BI_Tinggi 0.0420 0.0087 0.0493
## AU_Rendah 0.0233 0.0200 0.0567
## AU_Sedang 0.0404 0.0158 0.0439
## AU_Tinggi 0.0382 0.0118 0.0500
## Gen Y (1981 to 1996) Gen Z (1997 to 2012) Female Male
## Daily 0.0232 0.0768 0.0589 0.0411
## Once a week 0.0261 0.0739 0.0391 0.0609
## Several times a week 0.0237 0.0763 0.0526 0.0474
## Gen Y (1981 to 1996) 0.1000 0.0000 0.0541 0.0459
## Gen Z (1997 to 2012) 0.0000 0.1000 0.0525 0.0475
## Female 0.0244 0.0756 0.1000 0.0000
## Male 0.0233 0.0767 0.0000 0.1000
## Other 0.0125 0.0875 0.0500 0.0500
## S1 0.0151 0.0849 0.0516 0.0484
## S2 0.0857 0.0143 0.0571 0.0429
## S3 0.0714 0.0286 0.0714 0.0286
## Employee 0.0275 0.0725 0.0462 0.0538
## Entrepreneur 0.0577 0.0423 0.0615 0.0385
## Student 0.0000 0.1000 0.0592 0.0408
## PEOU_Rendah 0.0462 0.0538 0.0462 0.0538
## PEOU_Sedang 0.0244 0.0756 0.0488 0.0512
## PEOU_Tinggi 0.0208 0.0792 0.0554 0.0446
## PU_Rendah 0.0200 0.0800 0.0500 0.0500
## PU_Sedang 0.0292 0.0708 0.0508 0.0492
## PU_Tinggi 0.0200 0.0800 0.0550 0.0450
## ATU_Rendah 0.0278 0.0722 0.0472 0.0528
## ATU_Sedang 0.0182 0.0818 0.0485 0.0515
## ATU_Tinggi 0.0244 0.0756 0.0570 0.0430
## BI_Rendah 0.0345 0.0655 0.0483 0.0517
## BI_Sedang 0.0211 0.0789 0.0561 0.0439
## BI_Tinggi 0.0217 0.0783 0.0522 0.0478
## AU_Rendah 0.0200 0.0800 0.0567 0.0433
## AU_Sedang 0.0263 0.0737 0.0491 0.0509
## AU_Tinggi 0.0235 0.0765 0.0544 0.0456
## Other S1 S2 S3 Employee Entrepreneur Student
## Daily 0.0036 0.0821 0.0089 0.0054 0.0446 0.0196 0.0357
## Once a week 0.0043 0.0870 0.0087 0.0000 0.0609 0.0130 0.0261
## Several times a week 0.0066 0.0789 0.0092 0.0053 0.0539 0.0158 0.0303
## Gen Y (1981 to 1996) 0.0027 0.0514 0.0324 0.0135 0.0595 0.0405 0.0000
## Gen Z (1997 to 2012) 0.0059 0.0907 0.0017 0.0017 0.0492 0.0093 0.0415
## Female 0.0049 0.0793 0.0098 0.0061 0.0451 0.0195 0.0354
## Male 0.0055 0.0836 0.0082 0.0027 0.0589 0.0137 0.0274
## Other 0.1000 0.0000 0.0000 0.0000 0.0250 0.0000 0.0750
## S1 0.0000 0.1000 0.0000 0.0000 0.0579 0.0079 0.0341
## S2 0.0000 0.0000 0.1000 0.0000 0.0357 0.0643 0.0000
## S3 0.0000 0.0000 0.0000 0.1000 0.0000 0.1000 0.0000
## Employee 0.0025 0.0912 0.0063 0.0000 0.1000 0.0000 0.0000
## Entrepreneur 0.0000 0.0385 0.0346 0.0269 0.0000 0.1000 0.0000
## Student 0.0122 0.0878 0.0000 0.0000 0.0000 0.0000 0.1000
## PEOU_Rendah 0.0000 0.0846 0.0154 0.0000 0.0538 0.0385 0.0077
## PEOU_Sedang 0.0024 0.0878 0.0073 0.0024 0.0561 0.0122 0.0317
## PEOU_Tinggi 0.0069 0.0782 0.0089 0.0059 0.0495 0.0158 0.0347
## PU_Rendah 0.0000 0.1000 0.0000 0.0000 0.0800 0.0100 0.0100
## PU_Sedang 0.0031 0.0800 0.0138 0.0031 0.0523 0.0185 0.0292
## PU_Tinggi 0.0075 0.0800 0.0063 0.0063 0.0475 0.0163 0.0362
## ATU_Rendah 0.0000 0.0861 0.0111 0.0028 0.0611 0.0167 0.0222
## ATU_Sedang 0.0000 0.0970 0.0030 0.0000 0.0636 0.0061 0.0303
## ATU_Tinggi 0.0093 0.0733 0.0105 0.0070 0.0430 0.0209 0.0360
## BI_Rendah 0.0000 0.0828 0.0138 0.0034 0.0655 0.0172 0.0172
## BI_Sedang 0.0035 0.0860 0.0088 0.0018 0.0526 0.0158 0.0316
## BI_Tinggi 0.0087 0.0768 0.0072 0.0072 0.0449 0.0174 0.0377
## AU_Rendah 0.0033 0.0867 0.0100 0.0000 0.0633 0.0133 0.0233
## AU_Sedang 0.0053 0.0842 0.0105 0.0000 0.0544 0.0140 0.0316
## AU_Tinggi 0.0059 0.0765 0.0074 0.0103 0.0441 0.0206 0.0353
## PEOU_Rendah PEOU_Sedang PEOU_Tinggi PU_Rendah PU_Sedang
## Daily 0.0054 0.0214 0.0732 0.0054 0.0339
## Once a week 0.0174 0.0304 0.0522 0.0130 0.0565
## Several times a week 0.0079 0.0289 0.0632 0.0053 0.0434
## Gen Y (1981 to 1996) 0.0162 0.0270 0.0568 0.0054 0.0514
## Gen Z (1997 to 2012) 0.0059 0.0263 0.0678 0.0068 0.0390
## Female 0.0073 0.0244 0.0683 0.0061 0.0402
## Male 0.0096 0.0288 0.0616 0.0068 0.0438
## Other 0.0000 0.0125 0.0875 0.0000 0.0250
## S1 0.0087 0.0286 0.0627 0.0079 0.0413
## S2 0.0143 0.0214 0.0643 0.0000 0.0643
## S3 0.0000 0.0143 0.0857 0.0000 0.0286
## Employee 0.0087 0.0287 0.0625 0.0100 0.0425
## Entrepreneur 0.0192 0.0192 0.0615 0.0038 0.0462
## Student 0.0020 0.0265 0.0714 0.0020 0.0388
## PEOU_Rendah 0.1000 0.0000 0.0000 0.0385 0.0615
## PEOU_Sedang 0.0000 0.1000 0.0000 0.0000 0.0707
## PEOU_Tinggi 0.0000 0.0000 0.1000 0.0050 0.0277
## PU_Rendah 0.0500 0.0000 0.0500 0.1000 0.0000
## PU_Sedang 0.0123 0.0446 0.0431 0.0000 0.1000
## PU_Tinggi 0.0000 0.0150 0.0850 0.0000 0.0000
## ATU_Rendah 0.0139 0.0472 0.0389 0.0139 0.0389
## ATU_Sedang 0.0000 0.0576 0.0424 0.0000 0.0909
## ATU_Tinggi 0.0093 0.0058 0.0849 0.0058 0.0244
## BI_Rendah 0.0172 0.0345 0.0483 0.0172 0.0483
## BI_Sedang 0.0140 0.0368 0.0491 0.0088 0.0789
## BI_Tinggi 0.0000 0.0145 0.0855 0.0000 0.0087
## AU_Rendah 0.0167 0.0233 0.0600 0.0167 0.0433
## AU_Sedang 0.0140 0.0386 0.0474 0.0088 0.0772
## AU_Tinggi 0.0000 0.0176 0.0824 0.0000 0.0118
## PU_Tinggi ATU_Rendah ATU_Sedang ATU_Tinggi BI_Rendah
## Daily 0.0607 0.0196 0.0196 0.0607 0.0179
## Once a week 0.0304 0.0261 0.0435 0.0304 0.0217
## Several times a week 0.0513 0.0250 0.0158 0.0592 0.0184
## Gen Y (1981 to 1996) 0.0432 0.0270 0.0162 0.0568 0.0270
## Gen Z (1997 to 2012) 0.0542 0.0220 0.0229 0.0551 0.0161
## Female 0.0537 0.0207 0.0195 0.0598 0.0171
## Male 0.0493 0.0260 0.0233 0.0507 0.0205
## Other 0.0750 0.0000 0.0000 0.1000 0.0000
## S1 0.0508 0.0246 0.0254 0.0500 0.0190
## S2 0.0357 0.0286 0.0071 0.0643 0.0286
## S3 0.0714 0.0143 0.0000 0.0857 0.0143
## Employee 0.0475 0.0275 0.0263 0.0462 0.0238
## Entrepreneur 0.0500 0.0231 0.0077 0.0692 0.0192
## Student 0.0592 0.0163 0.0204 0.0633 0.0102
## PEOU_Rendah 0.0000 0.0385 0.0000 0.0615 0.0385
## PEOU_Sedang 0.0293 0.0415 0.0463 0.0122 0.0244
## PEOU_Tinggi 0.0673 0.0139 0.0139 0.0723 0.0139
## PU_Rendah 0.0000 0.0500 0.0000 0.0500 0.0500
## PU_Sedang 0.0000 0.0215 0.0462 0.0323 0.0215
## PU_Tinggi 0.1000 0.0213 0.0037 0.0750 0.0125
## ATU_Rendah 0.0472 0.1000 0.0000 0.0000 0.0722
## ATU_Sedang 0.0091 0.0000 0.1000 0.0000 0.0091
## ATU_Tinggi 0.0698 0.0000 0.0000 0.1000 0.0000
## BI_Rendah 0.0345 0.0897 0.0103 0.0000 0.1000
## BI_Sedang 0.0123 0.0053 0.0439 0.0509 0.0000
## BI_Tinggi 0.0913 0.0101 0.0072 0.0826 0.0000
## AU_Rendah 0.0400 0.0600 0.0200 0.0200 0.0667
## AU_Sedang 0.0140 0.0158 0.0404 0.0439 0.0123
## AU_Tinggi 0.0882 0.0132 0.0059 0.0809 0.0029
## BI_Sedang BI_Tinggi AU_Rendah AU_Sedang AU_Tinggi
## Daily 0.0304 0.0518 0.0125 0.0411 0.0464
## Once a week 0.0522 0.0261 0.0261 0.0391 0.0348
## Several times a week 0.0368 0.0447 0.0224 0.0329 0.0447
## Gen Y (1981 to 1996) 0.0324 0.0405 0.0162 0.0405 0.0432
## Gen Z (1997 to 2012) 0.0381 0.0458 0.0203 0.0356 0.0441
## Female 0.0390 0.0439 0.0207 0.0341 0.0451
## Male 0.0342 0.0452 0.0178 0.0397 0.0425
## Other 0.0250 0.0750 0.0125 0.0375 0.0500
## S1 0.0389 0.0421 0.0206 0.0381 0.0413
## S2 0.0357 0.0357 0.0214 0.0429 0.0357
## S3 0.0143 0.0714 0.0000 0.0000 0.1000
## Employee 0.0375 0.0388 0.0238 0.0388 0.0375
## Entrepreneur 0.0346 0.0462 0.0154 0.0308 0.0538
## Student 0.0367 0.0531 0.0143 0.0367 0.0490
## PEOU_Rendah 0.0615 0.0000 0.0385 0.0615 0.0000
## PEOU_Sedang 0.0512 0.0244 0.0171 0.0537 0.0293
## PEOU_Tinggi 0.0277 0.0584 0.0178 0.0267 0.0554
## PU_Rendah 0.0500 0.0000 0.0500 0.0500 0.0000
## PU_Sedang 0.0692 0.0092 0.0200 0.0677 0.0123
## PU_Tinggi 0.0087 0.0788 0.0150 0.0100 0.0750
## ATU_Rendah 0.0083 0.0194 0.0500 0.0250 0.0250
## ATU_Sedang 0.0758 0.0152 0.0182 0.0697 0.0121
## ATU_Tinggi 0.0337 0.0663 0.0070 0.0291 0.0640
## BI_Rendah 0.0000 0.0000 0.0690 0.0241 0.0069
## BI_Sedang 0.1000 0.0000 0.0175 0.0719 0.0105
## BI_Tinggi 0.0000 0.1000 0.0000 0.0130 0.0870
## AU_Rendah 0.0333 0.0000 0.1000 0.0000 0.0000
## AU_Sedang 0.0719 0.0158 0.0000 0.1000 0.0000
## AU_Tinggi 0.0088 0.0882 0.0000 0.0000 0.10008. Perhitungan Frekuensi Harapan
E <- outer(r, r)
cat("\nCek: sum(E) =", round(sum(E), 6))##
## Cek: sum(E) = 1print(round(E, 4))## Daily Once a week Several times a week
## Daily 0.0013 0.0005 0.0018
## Once a week 0.0005 0.0002 0.0007
## Several times a week 0.0018 0.0007 0.0024
## Gen Y (1981 to 1996) 0.0009 0.0004 0.0012
## Gen Z (1997 to 2012) 0.0028 0.0011 0.0037
## Female 0.0019 0.0008 0.0026
## Male 0.0017 0.0007 0.0023
## Other 0.0002 0.0001 0.0003
## S1 0.0029 0.0012 0.0040
## S2 0.0003 0.0001 0.0004
## S3 0.0002 0.0001 0.0002
## Employee 0.0019 0.0008 0.0025
## Entrepreneur 0.0006 0.0002 0.0008
## Student 0.0011 0.0005 0.0016
## PEOU_Rendah 0.0003 0.0001 0.0004
## PEOU_Sedang 0.0010 0.0004 0.0013
## PEOU_Tinggi 0.0024 0.0010 0.0032
## PU_Rendah 0.0002 0.0001 0.0003
## PU_Sedang 0.0015 0.0006 0.0021
## PU_Tinggi 0.0019 0.0008 0.0025
## ATU_Rendah 0.0008 0.0003 0.0011
## ATU_Sedang 0.0008 0.0003 0.0010
## ATU_Tinggi 0.0020 0.0008 0.0027
## BI_Rendah 0.0007 0.0003 0.0009
## BI_Sedang 0.0013 0.0005 0.0018
## BI_Tinggi 0.0016 0.0007 0.0022
## AU_Rendah 0.0007 0.0003 0.0009
## AU_Sedang 0.0013 0.0005 0.0018
## AU_Tinggi 0.0016 0.0007 0.0022
## Gen Y (1981 to 1996) Gen Z (1997 to 2012) Female Male
## Daily 0.0009 0.0028 0.0019 0.0017
## Once a week 0.0004 0.0011 0.0008 0.0007
## Several times a week 0.0012 0.0037 0.0026 0.0023
## Gen Y (1981 to 1996) 0.0006 0.0018 0.0013 0.0011
## Gen Z (1997 to 2012) 0.0018 0.0058 0.0040 0.0036
## Female 0.0013 0.0040 0.0028 0.0025
## Male 0.0011 0.0036 0.0025 0.0022
## Other 0.0001 0.0004 0.0003 0.0002
## S1 0.0019 0.0062 0.0043 0.0038
## S2 0.0002 0.0007 0.0005 0.0004
## S3 0.0001 0.0003 0.0002 0.0002
## Employee 0.0012 0.0039 0.0027 0.0024
## Entrepreneur 0.0004 0.0013 0.0009 0.0008
## Student 0.0008 0.0024 0.0017 0.0015
## PEOU_Rendah 0.0002 0.0006 0.0004 0.0004
## PEOU_Sedang 0.0006 0.0020 0.0014 0.0012
## PEOU_Tinggi 0.0016 0.0050 0.0034 0.0031
## PU_Rendah 0.0002 0.0005 0.0003 0.0003
## PU_Sedang 0.0010 0.0032 0.0022 0.0020
## PU_Tinggi 0.0012 0.0039 0.0027 0.0024
## ATU_Rendah 0.0006 0.0018 0.0012 0.0011
## ATU_Sedang 0.0005 0.0016 0.0011 0.0010
## ATU_Tinggi 0.0013 0.0042 0.0029 0.0026
## BI_Rendah 0.0004 0.0014 0.0010 0.0009
## BI_Sedang 0.0009 0.0028 0.0019 0.0017
## BI_Tinggi 0.0011 0.0034 0.0024 0.0021
## AU_Rendah 0.0005 0.0015 0.0010 0.0009
## AU_Sedang 0.0009 0.0028 0.0019 0.0017
## AU_Tinggi 0.0010 0.0033 0.0023 0.0021
## Other S1 S2 S3 Employee Entrepreneur Student
## Daily 2e-04 0.0029 3e-04 2e-04 0.0019 0.0006 0.0011
## Once a week 1e-04 0.0012 1e-04 1e-04 0.0008 0.0002 0.0005
## Several times a week 3e-04 0.0040 4e-04 2e-04 0.0025 0.0008 0.0016
## Gen Y (1981 to 1996) 1e-04 0.0019 2e-04 1e-04 0.0012 0.0004 0.0008
## Gen Z (1997 to 2012) 4e-04 0.0062 7e-04 3e-04 0.0039 0.0013 0.0024
## Female 3e-04 0.0043 5e-04 2e-04 0.0027 0.0009 0.0017
## Male 2e-04 0.0038 4e-04 2e-04 0.0024 0.0008 0.0015
## Other 0e+00 0.0004 0e+00 0e+00 0.0003 0.0001 0.0002
## S1 4e-04 0.0066 7e-04 4e-04 0.0042 0.0014 0.0026
## S2 0e+00 0.0007 1e-04 0e+00 0.0005 0.0002 0.0003
## S3 0e+00 0.0004 0e+00 0e+00 0.0002 0.0001 0.0001
## Employee 3e-04 0.0042 5e-04 2e-04 0.0027 0.0009 0.0016
## Entrepreneur 1e-04 0.0014 2e-04 1e-04 0.0009 0.0003 0.0005
## Student 2e-04 0.0026 3e-04 1e-04 0.0016 0.0005 0.0010
## PEOU_Rendah 0e+00 0.0007 1e-04 0e+00 0.0004 0.0001 0.0003
## PEOU_Sedang 1e-04 0.0022 2e-04 1e-04 0.0014 0.0004 0.0008
## PEOU_Tinggi 3e-04 0.0053 6e-04 3e-04 0.0034 0.0011 0.0021
## PU_Rendah 0e+00 0.0005 1e-04 0e+00 0.0003 0.0001 0.0002
## PU_Sedang 2e-04 0.0034 4e-04 2e-04 0.0022 0.0007 0.0013
## PU_Tinggi 3e-04 0.0042 5e-04 2e-04 0.0027 0.0009 0.0016
## ATU_Rendah 1e-04 0.0019 2e-04 1e-04 0.0012 0.0004 0.0007
## ATU_Sedang 1e-04 0.0017 2e-04 1e-04 0.0011 0.0004 0.0007
## ATU_Tinggi 3e-04 0.0045 5e-04 3e-04 0.0029 0.0009 0.0018
## BI_Rendah 1e-04 0.0015 2e-04 1e-04 0.0010 0.0003 0.0006
## BI_Sedang 2e-04 0.0030 3e-04 2e-04 0.0019 0.0006 0.0012
## BI_Tinggi 2e-04 0.0036 4e-04 2e-04 0.0023 0.0007 0.0014
## AU_Rendah 1e-04 0.0016 2e-04 1e-04 0.0010 0.0003 0.0006
## AU_Sedang 2e-04 0.0030 3e-04 2e-04 0.0019 0.0006 0.0012
## AU_Tinggi 2e-04 0.0036 4e-04 2e-04 0.0023 0.0007 0.0014
## PEOU_Rendah PEOU_Sedang PEOU_Tinggi PU_Rendah PU_Sedang
## Daily 3e-04 0.0010 0.0024 2e-04 0.0015
## Once a week 1e-04 0.0004 0.0010 1e-04 0.0006
## Several times a week 4e-04 0.0013 0.0032 3e-04 0.0021
## Gen Y (1981 to 1996) 2e-04 0.0006 0.0016 2e-04 0.0010
## Gen Z (1997 to 2012) 6e-04 0.0020 0.0050 5e-04 0.0032
## Female 4e-04 0.0014 0.0034 3e-04 0.0022
## Male 4e-04 0.0012 0.0031 3e-04 0.0020
## Other 0e+00 0.0001 0.0003 0e+00 0.0002
## S1 7e-04 0.0022 0.0053 5e-04 0.0034
## S2 1e-04 0.0002 0.0006 1e-04 0.0004
## S3 0e+00 0.0001 0.0003 0e+00 0.0002
## Employee 4e-04 0.0014 0.0034 3e-04 0.0022
## Entrepreneur 1e-04 0.0004 0.0011 1e-04 0.0007
## Student 3e-04 0.0008 0.0021 2e-04 0.0013
## PEOU_Rendah 1e-04 0.0002 0.0005 1e-04 0.0004
## PEOU_Sedang 2e-04 0.0007 0.0017 2e-04 0.0011
## PEOU_Tinggi 5e-04 0.0017 0.0042 4e-04 0.0027
## PU_Rendah 1e-04 0.0002 0.0004 0e+00 0.0003
## PU_Sedang 4e-04 0.0011 0.0027 3e-04 0.0018
## PU_Tinggi 4e-04 0.0014 0.0034 3e-04 0.0022
## ATU_Rendah 2e-04 0.0006 0.0015 1e-04 0.0010
## ATU_Sedang 2e-04 0.0006 0.0014 1e-04 0.0009
## ATU_Tinggi 5e-04 0.0015 0.0036 4e-04 0.0023
## BI_Rendah 2e-04 0.0005 0.0012 1e-04 0.0008
## BI_Sedang 3e-04 0.0010 0.0024 2e-04 0.0015
## BI_Tinggi 4e-04 0.0012 0.0029 3e-04 0.0019
## AU_Rendah 2e-04 0.0005 0.0013 1e-04 0.0008
## AU_Sedang 3e-04 0.0010 0.0024 2e-04 0.0015
## AU_Tinggi 4e-04 0.0012 0.0029 3e-04 0.0018
## PU_Tinggi ATU_Rendah ATU_Sedang ATU_Tinggi BI_Rendah
## Daily 0.0019 0.0008 0.0008 0.0020 0.0007
## Once a week 0.0008 0.0003 0.0003 0.0008 0.0003
## Several times a week 0.0025 0.0011 0.0010 0.0027 0.0009
## Gen Y (1981 to 1996) 0.0012 0.0006 0.0005 0.0013 0.0004
## Gen Z (1997 to 2012) 0.0039 0.0018 0.0016 0.0042 0.0014
## Female 0.0027 0.0012 0.0011 0.0029 0.0010
## Male 0.0024 0.0011 0.0010 0.0026 0.0009
## Other 0.0003 0.0001 0.0001 0.0003 0.0001
## S1 0.0042 0.0019 0.0017 0.0045 0.0015
## S2 0.0005 0.0002 0.0002 0.0005 0.0002
## S3 0.0002 0.0001 0.0001 0.0003 0.0001
## Employee 0.0027 0.0012 0.0011 0.0029 0.0010
## Entrepreneur 0.0009 0.0004 0.0004 0.0009 0.0003
## Student 0.0016 0.0007 0.0007 0.0018 0.0006
## PEOU_Rendah 0.0004 0.0002 0.0002 0.0005 0.0002
## PEOU_Sedang 0.0014 0.0006 0.0006 0.0015 0.0005
## PEOU_Tinggi 0.0034 0.0015 0.0014 0.0036 0.0012
## PU_Rendah 0.0003 0.0001 0.0001 0.0004 0.0001
## PU_Sedang 0.0022 0.0010 0.0009 0.0023 0.0008
## PU_Tinggi 0.0027 0.0012 0.0011 0.0029 0.0010
## ATU_Rendah 0.0012 0.0005 0.0005 0.0013 0.0004
## ATU_Sedang 0.0011 0.0005 0.0005 0.0012 0.0004
## ATU_Tinggi 0.0029 0.0013 0.0012 0.0031 0.0010
## BI_Rendah 0.0010 0.0004 0.0004 0.0010 0.0004
## BI_Sedang 0.0019 0.0009 0.0008 0.0020 0.0007
## BI_Tinggi 0.0023 0.0010 0.0009 0.0025 0.0008
## AU_Rendah 0.0010 0.0004 0.0004 0.0011 0.0004
## AU_Sedang 0.0019 0.0009 0.0008 0.0020 0.0007
## AU_Tinggi 0.0023 0.0010 0.0009 0.0024 0.0008
## BI_Sedang BI_Tinggi AU_Rendah AU_Sedang AU_Tinggi
## Daily 0.0013 0.0016 0.0007 0.0013 0.0016
## Once a week 0.0005 0.0007 0.0003 0.0005 0.0007
## Several times a week 0.0018 0.0022 0.0009 0.0018 0.0022
## Gen Y (1981 to 1996) 0.0009 0.0011 0.0005 0.0009 0.0010
## Gen Z (1997 to 2012) 0.0028 0.0034 0.0015 0.0028 0.0033
## Female 0.0019 0.0024 0.0010 0.0019 0.0023
## Male 0.0017 0.0021 0.0009 0.0017 0.0021
## Other 0.0002 0.0002 0.0001 0.0002 0.0002
## S1 0.0030 0.0036 0.0016 0.0030 0.0036
## S2 0.0003 0.0004 0.0002 0.0003 0.0004
## S3 0.0002 0.0002 0.0001 0.0002 0.0002
## Employee 0.0019 0.0023 0.0010 0.0019 0.0023
## Entrepreneur 0.0006 0.0007 0.0003 0.0006 0.0007
## Student 0.0012 0.0014 0.0006 0.0012 0.0014
## PEOU_Rendah 0.0003 0.0004 0.0002 0.0003 0.0004
## PEOU_Sedang 0.0010 0.0012 0.0005 0.0010 0.0012
## PEOU_Tinggi 0.0024 0.0029 0.0013 0.0024 0.0029
## PU_Rendah 0.0002 0.0003 0.0001 0.0002 0.0003
## PU_Sedang 0.0015 0.0019 0.0008 0.0015 0.0018
## PU_Tinggi 0.0019 0.0023 0.0010 0.0019 0.0023
## ATU_Rendah 0.0009 0.0010 0.0004 0.0009 0.0010
## ATU_Sedang 0.0008 0.0009 0.0004 0.0008 0.0009
## ATU_Tinggi 0.0020 0.0025 0.0011 0.0020 0.0024
## BI_Rendah 0.0007 0.0008 0.0004 0.0007 0.0008
## BI_Sedang 0.0014 0.0016 0.0007 0.0014 0.0016
## BI_Tinggi 0.0016 0.0020 0.0009 0.0016 0.0020
## AU_Rendah 0.0007 0.0009 0.0004 0.0007 0.0008
## AU_Sedang 0.0014 0.0016 0.0007 0.0014 0.0016
## AU_Tinggi 0.0016 0.0020 0.0008 0.0016 0.00199. Perhitungan Matriks Residual
R_residual <- P - E
cat("\nCek: sum(R) ~ 0:", round(sum(R_residual), 10), "\n")##
## Cek: sum(R) ~ 0: 0print(round(R_residual, 4))## Daily Once a week Several times a week
## Daily 0.0023 -0.0005 -0.0018
## Once a week -0.0005 0.0013 -0.0007
## Several times a week -0.0018 -0.0007 0.0025
## Gen Y (1981 to 1996) 0.0000 0.0000 0.0000
## Gen Z (1997 to 2012) 0.0000 0.0000 0.0000
## Female 0.0002 -0.0002 0.0000
## Male -0.0002 0.0002 0.0000
## Other -0.0001 0.0000 0.0001
## S1 0.0000 0.0001 -0.0001
## S2 0.0000 0.0000 0.0000
## S3 0.0000 -0.0001 0.0000
## Employee -0.0003 0.0001 0.0001
## Entrepreneur 0.0001 -0.0001 0.0000
## Student 0.0001 -0.0001 -0.0001
## PEOU_Rendah -0.0001 0.0001 0.0000
## PEOU_Sedang -0.0002 0.0001 0.0001
## PEOU_Tinggi 0.0003 -0.0002 -0.0001
## PU_Rendah 0.0000 0.0001 -0.0001
## PU_Sedang -0.0003 0.0002 0.0001
## PU_Tinggi 0.0003 -0.0003 0.0000
## ATU_Rendah -0.0001 0.0000 0.0001
## ATU_Sedang -0.0001 0.0003 -0.0003
## ATU_Tinggi 0.0002 -0.0004 0.0002
## BI_Rendah 0.0000 0.0000 0.0000
## BI_Sedang -0.0002 0.0002 0.0000
## BI_Tinggi 0.0003 -0.0003 0.0000
## AU_Rendah -0.0002 0.0001 0.0001
## AU_Sedang 0.0002 0.0000 -0.0002
## AU_Tinggi 0.0001 -0.0001 0.0000
## Gen Y (1981 to 1996) Gen Z (1997 to 2012) Female Male
## Daily 0.0000 0.0000 0.0002 -0.0002
## Once a week 0.0000 0.0000 -0.0002 0.0002
## Several times a week 0.0000 0.0000 0.0000 0.0000
## Gen Y (1981 to 1996) 0.0018 -0.0018 0.0000 0.0000
## Gen Z (1997 to 2012) -0.0018 0.0018 0.0000 0.0000
## Female 0.0000 0.0000 0.0025 -0.0025
## Male 0.0000 0.0000 -0.0025 0.0025
## Other -0.0001 0.0001 0.0000 0.0000
## S1 -0.0007 0.0007 -0.0001 0.0001
## S2 0.0006 -0.0006 0.0000 0.0000
## S3 0.0002 -0.0002 0.0001 -0.0001
## Employee 0.0002 -0.0002 -0.0003 0.0003
## Entrepreneur 0.0006 -0.0006 0.0001 -0.0001
## Student -0.0008 0.0008 0.0002 -0.0002
## PEOU_Rendah 0.0002 -0.0002 -0.0001 0.0001
## PEOU_Sedang 0.0000 0.0000 -0.0001 0.0001
## PEOU_Tinggi -0.0002 0.0002 0.0002 -0.0002
## PU_Rendah 0.0000 0.0000 0.0000 0.0000
## PU_Sedang 0.0002 -0.0002 -0.0001 0.0001
## PU_Tinggi -0.0002 0.0002 0.0001 -0.0001
## ATU_Rendah 0.0001 -0.0001 -0.0001 0.0001
## ATU_Sedang -0.0001 0.0001 -0.0001 0.0001
## ATU_Tinggi 0.0000 0.0000 0.0002 -0.0002
## BI_Rendah 0.0002 -0.0002 -0.0001 0.0001
## BI_Sedang -0.0001 0.0001 0.0001 -0.0001
## BI_Tinggi -0.0001 0.0001 0.0000 0.0000
## AU_Rendah -0.0001 0.0001 0.0001 -0.0001
## AU_Sedang 0.0001 -0.0001 -0.0001 0.0001
## AU_Tinggi 0.0000 0.0000 0.0001 -0.0001
## Other S1 S2 S3 Employee Entrepreneur Student
## Daily -1e-04 0.0000 0e+00 0e+00 -0.0003 0.0001 0.0001
## Once a week 0e+00 0.0001 0e+00 -1e-04 0.0001 -0.0001 -0.0001
## Several times a week 1e-04 -0.0001 0e+00 0e+00 0.0001 0.0000 -0.0001
## Gen Y (1981 to 1996) -1e-04 -0.0007 6e-04 2e-04 0.0002 0.0006 -0.0008
## Gen Z (1997 to 2012) 1e-04 0.0007 -6e-04 -2e-04 -0.0002 -0.0006 0.0008
## Female 0e+00 -0.0001 0e+00 1e-04 -0.0003 0.0001 0.0002
## Male 0e+00 0.0001 0e+00 -1e-04 0.0003 -0.0001 -0.0002
## Other 5e-04 -0.0004 0e+00 0e+00 -0.0001 -0.0001 0.0002
## S1 -4e-04 0.0015 -7e-04 -4e-04 0.0005 -0.0007 0.0002
## S2 0e+00 -0.0007 8e-04 0e+00 -0.0001 0.0004 -0.0003
## S3 0e+00 -0.0004 0e+00 4e-04 -0.0002 0.0004 -0.0001
## Employee -1e-04 0.0005 -1e-04 -2e-04 0.0025 -0.0009 -0.0016
## Entrepreneur -1e-04 -0.0007 4e-04 4e-04 -0.0009 0.0014 -0.0005
## Student 2e-04 0.0002 -3e-04 -1e-04 -0.0016 -0.0005 0.0022
## PEOU_Rendah 0e+00 0.0000 1e-04 0e+00 0.0000 0.0002 -0.0002
## PEOU_Sedang -1e-04 0.0002 0e+00 -1e-04 0.0001 -0.0001 0.0000
## PEOU_Tinggi 1e-04 -0.0002 0e+00 1e-04 -0.0001 -0.0001 0.0002
## PU_Rendah 0e+00 0.0001 -1e-04 0e+00 0.0002 0.0000 -0.0001
## PU_Sedang -1e-04 -0.0001 2e-04 -1e-04 0.0000 0.0001 -0.0001
## PU_Tinggi 1e-04 -0.0001 -1e-04 1e-04 -0.0002 0.0000 0.0002
## ATU_Rendah -1e-04 0.0001 0e+00 0e+00 0.0002 0.0000 -0.0002
## ATU_Sedang -1e-04 0.0003 -1e-04 -1e-04 0.0003 -0.0002 0.0000
## ATU_Tinggi 2e-04 -0.0004 1e-04 1e-04 -0.0005 0.0002 0.0002
## BI_Rendah -1e-04 0.0000 1e-04 0e+00 0.0003 0.0000 -0.0003
## BI_Sedang -1e-04 0.0002 0e+00 -1e-04 0.0000 0.0000 0.0000
## BI_Tinggi 2e-04 -0.0002 -1e-04 1e-04 -0.0003 0.0000 0.0003
## AU_Rendah 0e+00 0.0001 0e+00 -1e-04 0.0002 -0.0001 -0.0002
## AU_Sedang 0e+00 0.0001 1e-04 -2e-04 0.0001 -0.0001 0.0000
## AU_Tinggi 0e+00 -0.0002 -1e-04 3e-04 -0.0003 0.0002 0.0002
## PEOU_Rendah PEOU_Sedang PEOU_Tinggi PU_Rendah PU_Sedang
## Daily -1e-04 -0.0002 0.0003 0e+00 -0.0003
## Once a week 1e-04 0.0001 -0.0002 1e-04 0.0002
## Several times a week 0e+00 0.0001 -0.0001 -1e-04 0.0001
## Gen Y (1981 to 1996) 2e-04 0.0000 -0.0002 0e+00 0.0002
## Gen Z (1997 to 2012) -2e-04 0.0000 0.0002 0e+00 -0.0002
## Female -1e-04 -0.0001 0.0002 0e+00 -0.0001
## Male 1e-04 0.0001 -0.0002 0e+00 0.0001
## Other 0e+00 -0.0001 0.0001 0e+00 -0.0001
## S1 0e+00 0.0002 -0.0002 1e-04 -0.0001
## S2 1e-04 0.0000 0.0000 -1e-04 0.0002
## S3 0e+00 -0.0001 0.0001 0e+00 -0.0001
## Employee 0e+00 0.0001 -0.0001 2e-04 0.0000
## Entrepreneur 2e-04 -0.0001 -0.0001 0e+00 0.0001
## Student -2e-04 0.0000 0.0002 -1e-04 -0.0001
## PEOU_Rendah 8e-04 -0.0002 -0.0005 3e-04 0.0002
## PEOU_Sedang -2e-04 0.0019 -0.0017 -2e-04 0.0008
## PEOU_Tinggi -5e-04 -0.0017 0.0023 -1e-04 -0.0009
## PU_Rendah 3e-04 -0.0002 -0.0001 6e-04 -0.0003
## PU_Sedang 2e-04 0.0008 -0.0009 -3e-04 0.0024
## PU_Tinggi -4e-04 -0.0006 0.0010 -3e-04 -0.0022
## ATU_Rendah 1e-04 0.0005 -0.0006 2e-04 -0.0001
## ATU_Sedang -2e-04 0.0007 -0.0005 -1e-04 0.0010
## ATU_Tinggi 1e-04 -0.0011 0.0011 0e+00 -0.0010
## BI_Rendah 2e-04 0.0002 -0.0003 2e-04 0.0001
## BI_Sedang 2e-04 0.0004 -0.0006 1e-04 0.0014
## BI_Tinggi -4e-04 -0.0005 0.0009 -3e-04 -0.0015
## AU_Rendah 2e-04 -0.0001 -0.0001 2e-04 0.0000
## AU_Sedang 2e-04 0.0004 -0.0007 1e-04 0.0013
## AU_Tinggi -4e-04 -0.0004 0.0008 -3e-04 -0.0013
## PU_Tinggi ATU_Rendah ATU_Sedang ATU_Tinggi BI_Rendah
## Daily 0.0003 -0.0001 -0.0001 0.0002 0.0000
## Once a week -0.0003 0.0000 0.0003 -0.0004 0.0000
## Several times a week 0.0000 0.0001 -0.0003 0.0002 0.0000
## Gen Y (1981 to 1996) -0.0002 0.0001 -0.0001 0.0000 0.0002
## Gen Z (1997 to 2012) 0.0002 -0.0001 0.0001 0.0000 -0.0002
## Female 0.0001 -0.0001 -0.0001 0.0002 -0.0001
## Male -0.0001 0.0001 0.0001 -0.0002 0.0001
## Other 0.0001 -0.0001 -0.0001 0.0002 -0.0001
## S1 -0.0001 0.0001 0.0003 -0.0004 0.0000
## S2 -0.0001 0.0000 -0.0001 0.0001 0.0001
## S3 0.0001 0.0000 -0.0001 0.0001 0.0000
## Employee -0.0002 0.0002 0.0003 -0.0005 0.0003
## Entrepreneur 0.0000 0.0000 -0.0002 0.0002 0.0000
## Student 0.0002 -0.0002 0.0000 0.0002 -0.0003
## PEOU_Rendah -0.0004 0.0001 -0.0002 0.0001 0.0002
## PEOU_Sedang -0.0006 0.0005 0.0007 -0.0011 0.0002
## PEOU_Tinggi 0.0010 -0.0006 -0.0005 0.0011 -0.0003
## PU_Rendah -0.0003 0.0002 -0.0001 0.0000 0.0002
## PU_Sedang -0.0022 -0.0001 0.0010 -0.0010 0.0001
## PU_Tinggi 0.0025 -0.0001 -0.0009 0.0010 -0.0003
## ATU_Rendah -0.0001 0.0018 -0.0005 -0.0013 0.0012
## ATU_Sedang -0.0009 -0.0005 0.0017 -0.0012 -0.0002
## ATU_Tinggi 0.0010 -0.0013 -0.0012 0.0025 -0.0010
## BI_Rendah -0.0003 0.0012 -0.0002 -0.0010 0.0015
## BI_Sedang -0.0014 -0.0007 0.0008 -0.0002 -0.0007
## BI_Tinggi 0.0018 -0.0006 -0.0006 0.0012 -0.0008
## AU_Rendah -0.0002 0.0007 0.0000 -0.0007 0.0009
## AU_Sedang -0.0014 -0.0003 0.0007 -0.0004 -0.0002
## AU_Tinggi 0.0016 -0.0004 -0.0007 0.0011 -0.0007
## BI_Sedang BI_Tinggi AU_Rendah AU_Sedang AU_Tinggi
## Daily -0.0002 0.0003 -0.0002 0.0002 0.0001
## Once a week 0.0002 -0.0003 0.0001 0.0000 -0.0001
## Several times a week 0.0000 0.0000 0.0001 -0.0002 0.0000
## Gen Y (1981 to 1996) -0.0001 -0.0001 -0.0001 0.0001 0.0000
## Gen Z (1997 to 2012) 0.0001 0.0001 0.0001 -0.0001 0.0000
## Female 0.0001 0.0000 0.0001 -0.0001 0.0001
## Male -0.0001 0.0000 -0.0001 0.0001 -0.0001
## Other -0.0001 0.0002 0.0000 0.0000 0.0000
## S1 0.0002 -0.0002 0.0001 0.0001 -0.0002
## S2 0.0000 -0.0001 0.0000 0.0001 -0.0001
## S3 -0.0001 0.0001 -0.0001 -0.0002 0.0003
## Employee 0.0000 -0.0003 0.0002 0.0001 -0.0003
## Entrepreneur 0.0000 0.0000 -0.0001 -0.0001 0.0002
## Student 0.0000 0.0003 -0.0002 0.0000 0.0002
## PEOU_Rendah 0.0002 -0.0004 0.0002 0.0002 -0.0004
## PEOU_Sedang 0.0004 -0.0005 -0.0001 0.0004 -0.0004
## PEOU_Tinggi -0.0006 0.0009 -0.0001 -0.0007 0.0008
## PU_Rendah 0.0001 -0.0003 0.0002 0.0001 -0.0003
## PU_Sedang 0.0014 -0.0015 0.0000 0.0013 -0.0013
## PU_Tinggi -0.0014 0.0018 -0.0002 -0.0014 0.0016
## ATU_Rendah -0.0007 -0.0006 0.0007 -0.0003 -0.0004
## ATU_Sedang 0.0008 -0.0006 0.0000 0.0007 -0.0007
## ATU_Tinggi -0.0002 0.0012 -0.0007 -0.0004 0.0011
## BI_Rendah -0.0007 -0.0008 0.0009 -0.0002 -0.0007
## BI_Sedang 0.0023 -0.0016 -0.0001 0.0013 -0.0012
## BI_Tinggi -0.0016 0.0025 -0.0009 -0.0011 0.0019
## AU_Rendah -0.0001 -0.0009 0.0016 -0.0007 -0.0008
## AU_Sedang 0.0013 -0.0011 -0.0007 0.0023 -0.0016
## AU_Tinggi -0.0012 0.0019 -0.0008 -0.0016 0.002510. Standardisasi Residual dengan Jarak Chi-Square
D_r_invsqrt <- diag(1 / sqrt(r))
S <- D_r_invsqrt %*% R_residual %*% D_r_invsqrt
cat("\nTotal Inertia:", round(sum(S^2), 6), "\n")##
## Total Inertia: 0.310416print(round(D_r_invsqrt, 4))## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
## [1,] 5.261 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [2,] 0.000 8.2092 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [3,] 0.000 0.0000 4.5161 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [4,] 0.000 0.0000 0.0000 6.4724 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [5,] 0.000 0.0000 0.0000 0.0000 3.6243 0.0000 0.0000 0.0000 0.0000 0.0000
## [6,] 0.000 0.0000 0.0000 0.0000 0.0000 4.3477 0.0000 0.0000 0.0000 0.0000
## [7,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 4.6079 0.0000 0.0000 0.0000
## [8,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 13.9194 0.0000 0.0000
## [9,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 3.5074 0.0000
## [10,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 10.5221
## [11,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [12,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [13,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [14,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [15,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [16,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [17,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [18,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [19,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [20,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [21,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [22,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [23,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [24,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [25,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [26,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [27,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [28,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [29,] 0.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [,11] [,12] [,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20]
## [1,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [2,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [3,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [4,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [5,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [6,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [7,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [8,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [9,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [10,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [11,] 14.8805 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [12,] 0.0000 4.4017 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [13,] 0.0000 0.0000 7.7211 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [14,] 0.0000 0.0000 0.0000 5.6243 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [15,] 0.0000 0.0000 0.0000 0.0000 10.9193 0.0000 0.0000 0.0000 0.0000 0.0000
## [16,] 0.0000 0.0000 0.0000 0.0000 0.0000 6.1486 0.0000 0.0000 0.0000 0.0000
## [17,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 3.9175 0.0000 0.0000 0.0000
## [18,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 12.4499 0.0000 0.0000
## [19,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 4.8833 0.0000
## [20,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 4.4017
## [21,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [22,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [23,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [24,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [25,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [26,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [27,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [28,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [29,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## [,21] [,22] [,23] [,24] [,25] [,26] [,27] [,28] [,29]
## [1,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [2,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [3,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [4,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [5,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [6,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [7,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [8,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [9,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [10,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [11,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [12,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [13,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [14,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [15,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [16,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [17,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [18,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [19,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [20,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [21,] 6.5617 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [22,] 0.0000 6.8534 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [23,] 0.0000 0.0000 4.2454 0.0000 0.0000 0.0000 0.000 0.0000 0.0000
## [24,] 0.0000 0.0000 0.0000 7.3108 0.0000 0.0000 0.000 0.0000 0.0000
## [25,] 0.0000 0.0000 0.0000 0.0000 5.2147 0.0000 0.000 0.0000 0.0000
## [26,] 0.0000 0.0000 0.0000 0.0000 0.0000 4.7396 0.000 0.0000 0.0000
## [27,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 7.188 0.0000 0.0000
## [28,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 5.2147 0.0000
## [29,] 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.000 0.0000 4.7743print(round(S, 4))## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
## [1,] 0.0639 -0.0232 -0.0421 -0.0008 0.0005 0.0050 -0.0053 -0.0042 0.0006
## [2,] -0.0232 0.0852 -0.0270 0.0017 -0.0010 -0.0073 0.0077 -0.0014 0.0024
## [3,] -0.0421 -0.0270 0.0510 -0.0003 0.0001 -0.0003 0.0003 0.0044 -0.0018
## [4,] -0.0008 0.0017 -0.0003 0.0761 -0.0426 0.0008 -0.0008 -0.0053 -0.0162
## [5,] 0.0005 -0.0010 0.0001 -0.0426 0.0239 -0.0004 0.0005 0.0030 0.0091
## [6,] 0.0050 -0.0073 -0.0003 0.0008 -0.0004 0.0471 -0.0499 -0.0009 -0.0016
## [7,] -0.0053 0.0077 0.0003 -0.0008 0.0005 -0.0499 0.0529 0.0010 0.0017
## [8,] -0.0042 -0.0014 0.0044 -0.0053 0.0030 -0.0009 0.0010 0.0948 -0.0205
## [9,] 0.0006 0.0024 -0.0018 -0.0162 0.0091 -0.0016 0.0017 -0.0205 0.0187
## [10,] -0.0002 -0.0004 0.0004 0.0380 -0.0213 0.0018 -0.0019 -0.0068 -0.0271
## [11,] 0.0024 -0.0082 0.0025 0.0207 -0.0116 0.0054 -0.0057 -0.0048 -0.0192
## [12,] -0.0058 0.0050 0.0023 0.0053 -0.0030 -0.0066 0.0070 -0.0084 0.0079
## [13,] 0.0042 -0.0035 -0.0017 0.0284 -0.0159 0.0049 -0.0052 -0.0093 -0.0195
## [14,] 0.0044 -0.0038 -0.0017 -0.0275 0.0154 0.0049 -0.0051 0.0175 0.0040
## [15,] -0.0063 0.0120 -0.0012 0.0132 -0.0074 -0.0027 0.0028 -0.0066 0.0011
## [16,] -0.0059 0.0030 0.0034 0.0005 -0.0003 -0.0029 0.0031 -0.0062 0.0037
## [17,] 0.0060 -0.0062 -0.0017 -0.0051 0.0028 0.0028 -0.0030 0.0063 -0.0028
## [18,] -0.0026 0.0100 -0.0033 -0.0020 0.0011 -0.0010 0.0011 -0.0058 0.0053
## [19,] -0.0074 0.0087 0.0016 0.0071 -0.0040 -0.0019 0.0020 -0.0059 -0.0009
## [20,] 0.0076 -0.0114 -0.0003 -0.0057 0.0032 0.0021 -0.0022 0.0074 -0.0010
## [21,] -0.0045 0.0023 0.0026 0.0039 -0.0022 -0.0038 0.0040 -0.0109 0.0026
## [22,] -0.0021 0.0185 -0.0083 -0.0054 0.0030 -0.0028 0.0030 -0.0105 0.0080
## [23,] 0.0042 -0.0130 0.0035 0.0008 -0.0005 0.0042 -0.0044 0.0136 -0.0066
## [24,] -0.0012 0.0027 -0.0005 0.0094 -0.0053 -0.0028 0.0029 -0.0098 0.0007
## [25,] -0.0064 0.0098 0.0001 -0.0035 0.0020 0.0027 -0.0029 -0.0044 0.0031
## [26,] 0.0065 -0.0106 0.0002 -0.0029 0.0016 -0.0007 0.0007 0.0104 -0.0033
## [27,] -0.0094 0.0059 0.0048 -0.0035 0.0020 0.0023 -0.0024 -0.0035 0.0026
## [28,] 0.0043 0.0015 -0.0045 0.0030 -0.0017 -0.0032 0.0033 0.0003 0.0020
## [29,] 0.0023 -0.0053 0.0009 -0.0005 0.0003 0.0014 -0.0015 0.0021 -0.0035
## [,10] [,11] [,12] [,13] [,14] [,15] [,16] [,17] [,18]
## [1,] -0.0002 0.0024 -0.0058 0.0042 0.0044 -0.0063 -0.0059 0.0060 -0.0026
## [2,] -0.0004 -0.0082 0.0050 -0.0035 -0.0038 0.0120 0.0030 -0.0062 0.0100
## [3,] 0.0004 0.0025 0.0023 -0.0017 -0.0017 -0.0012 0.0034 -0.0017 -0.0033
## [4,] 0.0380 0.0207 0.0053 0.0284 -0.0275 0.0132 0.0005 -0.0051 -0.0020
## [5,] -0.0213 -0.0116 -0.0030 -0.0159 0.0154 -0.0074 -0.0003 0.0028 0.0011
## [6,] 0.0018 0.0054 -0.0066 0.0049 0.0049 -0.0027 -0.0029 0.0028 -0.0010
## [7,] -0.0019 -0.0057 0.0070 -0.0052 -0.0051 0.0028 0.0031 -0.0030 0.0011
## [8,] -0.0068 -0.0048 -0.0084 -0.0093 0.0175 -0.0066 -0.0062 0.0063 -0.0058
## [9,] -0.0271 -0.0192 0.0079 -0.0195 0.0040 0.0011 0.0037 -0.0028 0.0053
## [10,] 0.0910 -0.0064 -0.0067 0.0349 -0.0169 0.0061 -0.0029 -0.0003 -0.0076
## [11,] -0.0064 0.0955 -0.0153 0.0432 -0.0119 -0.0062 -0.0050 0.0054 -0.0054
## [12,] -0.0067 -0.0153 0.0484 -0.0294 -0.0404 0.0009 0.0032 -0.0024 0.0100
## [13,] 0.0349 0.0432 -0.0294 0.0832 -0.0230 0.0153 -0.0058 -0.0018 -0.0042
## [14,] -0.0169 -0.0119 -0.0404 -0.0230 0.0684 -0.0123 0.0001 0.0044 -0.0098
## [15,] 0.0061 -0.0062 0.0009 0.0153 -0.0123 0.0916 -0.0149 -0.0234 0.0365
## [16,] -0.0029 -0.0050 0.0032 -0.0058 0.0001 -0.0149 0.0735 -0.0415 -0.0131
## [17,] -0.0003 0.0054 -0.0024 -0.0018 0.0044 -0.0234 -0.0415 0.0348 -0.0048
## [18,] -0.0076 -0.0054 0.0100 -0.0042 -0.0098 0.0365 -0.0131 -0.0048 0.0935
## [19,] 0.0104 -0.0044 0.0006 0.0027 -0.0027 0.0088 0.0229 -0.0177 -0.0164
## [20,] -0.0067 0.0059 -0.0041 -0.0009 0.0059 -0.0208 -0.0160 0.0177 -0.0182
## [21,] 0.0033 -0.0039 0.0064 -0.0001 -0.0080 0.0092 0.0195 -0.0157 0.0141
## [22,] -0.0092 -0.0098 0.0077 -0.0121 -0.0011 -0.0134 0.0279 -0.0130 -0.0117
## [23,] 0.0036 0.0086 -0.0089 0.0076 0.0059 0.0024 -0.0299 0.0182 -0.0019
## [24,] 0.0069 -0.0022 0.0084 0.0005 -0.0111 0.0132 0.0068 -0.0090 0.0184
## [25,] -0.0005 -0.0079 0.0009 -0.0015 0.0000 0.0118 0.0123 -0.0120 0.0055
## [26,] -0.0040 0.0086 -0.0062 0.0010 0.0072 -0.0193 -0.0155 0.0168 -0.0169
## [27,] 0.0014 -0.0093 0.0072 -0.0037 -0.0065 0.0126 -0.0027 -0.0028 0.0177
## [28,] 0.0030 -0.0129 0.0023 -0.0041 0.0000 0.0118 0.0143 -0.0134 0.0055
## [29,] -0.0037 0.0180 -0.0069 0.0062 0.0043 -0.0192 -0.0113 0.0141 -0.0168
## [,19] [,20] [,21] [,22] [,23] [,24] [,25] [,26] [,27]
## [1,] -0.0074 0.0076 -0.0045 -0.0021 0.0042 -0.0012 -0.0064 0.0065 -0.0094
## [2,] 0.0087 -0.0114 0.0023 0.0185 -0.0130 0.0027 0.0098 -0.0106 0.0059
## [3,] 0.0016 -0.0003 0.0026 -0.0083 0.0035 -0.0005 0.0001 0.0002 0.0048
## [4,] 0.0071 -0.0057 0.0039 -0.0054 0.0008 0.0094 -0.0035 -0.0029 -0.0035
## [5,] -0.0040 0.0032 -0.0022 0.0030 -0.0005 -0.0053 0.0020 0.0016 0.0020
## [6,] -0.0019 0.0021 -0.0038 -0.0028 0.0042 -0.0028 0.0027 -0.0007 0.0023
## [7,] 0.0020 -0.0022 0.0040 0.0030 -0.0044 0.0029 -0.0029 0.0007 -0.0024
## [8,] -0.0059 0.0074 -0.0109 -0.0105 0.0136 -0.0098 -0.0044 0.0104 -0.0035
## [9,] -0.0009 -0.0010 0.0026 0.0080 -0.0066 0.0007 0.0031 -0.0033 0.0026
## [10,] 0.0104 -0.0067 0.0033 -0.0092 0.0036 0.0069 -0.0005 -0.0040 0.0014
## [11,] -0.0044 0.0059 -0.0039 -0.0098 0.0086 -0.0022 -0.0079 0.0086 -0.0093
## [12,] 0.0006 -0.0041 0.0064 0.0077 -0.0089 0.0084 0.0009 -0.0062 0.0072
## [13,] 0.0027 -0.0009 -0.0001 -0.0121 0.0076 0.0005 -0.0015 0.0010 -0.0037
## [14,] -0.0027 0.0059 -0.0080 -0.0011 0.0059 -0.0111 0.0000 0.0072 -0.0065
## [15,] 0.0088 -0.0208 0.0092 -0.0134 0.0024 0.0132 0.0118 -0.0193 0.0126
## [16,] 0.0229 -0.0160 0.0195 0.0279 -0.0299 0.0068 0.0123 -0.0155 -0.0027
## [17,] -0.0177 0.0177 -0.0157 -0.0130 0.0182 -0.0090 -0.0120 0.0168 -0.0028
## [18,] -0.0164 -0.0182 0.0141 -0.0117 -0.0019 0.0184 0.0055 -0.0169 0.0177
## [19,] 0.0581 -0.0465 -0.0023 0.0349 -0.0201 0.0042 0.0347 -0.0342 0.0009
## [20,] -0.0465 0.0484 -0.0029 -0.0273 0.0188 -0.0103 -0.0332 0.0369 -0.0071
## [21,] -0.0023 -0.0029 0.0768 -0.0222 -0.0359 0.0596 -0.0226 -0.0181 0.0336
## [22,] 0.0349 -0.0273 -0.0222 0.0787 -0.0344 -0.0103 0.0297 -0.0203 -0.0012
## [23,] -0.0201 0.0188 -0.0359 -0.0344 0.0445 -0.0322 -0.0038 0.0243 -0.0210
## [24,] 0.0042 -0.0103 0.0596 -0.0103 -0.0322 0.0813 -0.0262 -0.0289 0.0488
## [25,] 0.0347 -0.0332 -0.0226 0.0297 -0.0038 -0.0262 0.0632 -0.0405 -0.0025
## [26,] -0.0342 0.0369 -0.0181 -0.0203 0.0243 -0.0289 -0.0405 0.0555 -0.0294
## [27,] 0.0009 -0.0071 0.0336 -0.0012 -0.0210 0.0488 -0.0025 -0.0294 0.0806
## [28,] 0.0330 -0.0317 -0.0094 0.0251 -0.0095 -0.0090 0.0352 -0.0261 -0.0267
## [29,] -0.0309 0.0338 -0.0137 -0.0221 0.0226 -0.0241 -0.0305 0.0434 -0.0291
## [,28] [,29]
## [1,] 0.0043 0.0023
## [2,] 0.0015 -0.0053
## [3,] -0.0045 0.0009
## [4,] 0.0030 -0.0005
## [5,] -0.0017 0.0003
## [6,] -0.0032 0.0014
## [7,] 0.0033 -0.0015
## [8,] 0.0003 0.0021
## [9,] 0.0020 -0.0035
## [10,] 0.0030 -0.0037
## [11,] -0.0129 0.0180
## [12,] 0.0023 -0.0069
## [13,] -0.0041 0.0062
## [14,] 0.0000 0.0043
## [15,] 0.0118 -0.0192
## [16,] 0.0143 -0.0113
## [17,] -0.0134 0.0141
## [18,] 0.0055 -0.0168
## [19,] 0.0330 -0.0309
## [20,] -0.0317 0.0338
## [21,] -0.0094 -0.0137
## [22,] 0.0251 -0.0221
## [23,] -0.0095 0.0226
## [24,] -0.0090 -0.0241
## [25,] 0.0352 -0.0305
## [26,] -0.0261 0.0434
## [27,] -0.0267 -0.0291
## [28,] 0.0632 -0.0402
## [29,] -0.0402 0.056111.Penguraian Matriks Menggunakan GSVD
U = vektor singular kiri delta = nilai singular (diagonal Delta) V = vektor singular kanan
gsvd <- svd(S)
gsvd## $d
## [1] 3.282493e-01 2.335663e-01 2.083992e-01 1.492104e-01 1.228471e-01
## [6] 1.135759e-01 1.040998e-01 9.992164e-02 9.360854e-02 8.222335e-02
## [11] 7.829925e-02 5.619688e-02 5.244920e-02 4.759521e-02 4.010435e-02
## [16] 3.160285e-02 2.415433e-02 1.978171e-02 1.411473e-02 4.689150e-17
## [21] 4.592217e-17 2.450318e-17 2.450318e-17 2.450318e-17 2.450318e-17
## [26] 2.450318e-17 2.450318e-17 1.720956e-17 1.458751e-17
##
## $u
## [,1] [,2] [,3] [,4] [,5]
## [1,] -0.07882556 -0.019541763 -0.031138247 -0.008032471 0.148795253
## [2,] 0.14410956 -0.027646818 0.018190490 0.098036032 -0.327635393
## [3,] -0.01161402 0.031983610 0.016721973 -0.047036509 0.052513540
## [4,] 0.03849483 0.253604742 -0.371066817 -0.064285043 -0.171043689
## [5,] -0.02155571 -0.142009444 0.207783940 0.035997289 0.095778253
## [6,] -0.04084800 0.006121123 -0.051646460 0.011980066 0.378260493
## [7,] 0.04329286 -0.006487488 0.054737638 -0.012697105 -0.400900392
## [8,] -0.11724822 -0.100921104 0.048151040 0.112921493 0.198297865
## [9,] 0.05116979 -0.088114830 0.177303083 0.022903299 -0.073783761
## [10,] 0.03457317 0.221003230 -0.360867029 -0.056960172 -0.026010758
## [11,] -0.14064527 0.169182997 -0.293365856 -0.137334774 0.137833419
## [12,] 0.10142876 0.030149478 0.110962041 0.010936616 -0.384644202
## [13,] -0.04992697 0.250338453 -0.426316752 -0.028813666 0.147469525
## [14,] -0.09323255 -0.220877969 0.168760396 0.007014483 0.384058906
## [15,] 0.18186401 0.194298623 -0.086229437 0.494533612 -0.008202679
## [16,] 0.20844769 -0.107010977 -0.001238772 -0.416792803 -0.005834810
## [17,] -0.19805583 -0.001527290 0.031725434 0.088131419 0.006660400
## [18,] 0.13876011 0.186290515 0.140214069 0.511246444 -0.029928662
## [19,] 0.29410518 -0.153021028 -0.192137817 -0.108473693 0.086227497
## [20,] -0.31416193 0.072067648 0.123617529 -0.082976048 -0.067143036
## [21,] 0.16711616 0.361491850 0.243519662 -0.216087884 0.074835758
## [22,] 0.24347558 -0.311255792 -0.070706135 -0.205017625 -0.101414948
## [23,] -0.25894505 -0.041075952 -0.113757337 0.266806737 0.014403221
## [24,] 0.21231433 0.399573056 0.226947686 -0.155512038 0.120583700
## [25,] 0.23886494 -0.263429743 -0.183544505 0.172410763 0.095750367
## [26,] -0.35474562 -0.019612760 0.019692709 -0.055884890 -0.165200994
## [27,] 0.18731765 0.285217490 0.254412773 -0.011573323 0.187073881
## [28,] 0.23547334 -0.229180113 -0.177237857 0.115238901 0.043489044
## [29,] -0.34000654 0.020381649 -0.006713346 -0.097820065 -0.164073038
## [,6] [,7] [,8] [,9] [,10]
## [1,] -0.405257446 -0.471340122 -0.132207383 0.283300372 0.23571774
## [2,] -0.026195071 0.105154704 -0.590977051 -0.454928772 -0.15164754
## [3,] 0.362281419 0.346748376 0.438594228 0.007081592 -0.11891466
## [4,] 0.094147626 -0.127765466 0.045740335 -0.037535923 0.12958161
## [5,] -0.052719251 0.071544021 -0.025612926 0.021018753 -0.07256100
## [6,] -0.163834170 -0.056554354 0.177836360 -0.348240843 -0.06220738
## [7,] 0.173640082 0.059939282 -0.188480340 0.369083986 0.06593065
## [8,] 0.596827419 -0.007002939 -0.296337055 0.044383383 0.48772940
## [9,] -0.182856687 0.020693491 0.100781346 0.017699400 -0.11873868
## [10,] 0.282868574 -0.444772193 0.014879754 -0.144847540 -0.25295141
## [11,] -0.262276703 0.548694277 -0.131824551 0.082305327 0.34008820
## [12,] -0.035619380 -0.068075511 0.321148723 -0.103606569 0.28329012
## [13,] -0.092498707 0.153523667 -0.176017258 0.051665454 -0.10872623
## [14,] 0.112891733 -0.024847756 -0.282132295 0.094748881 -0.28277524
## [15,] 0.004215621 0.095273212 -0.055702321 0.182293750 -0.27697580
## [16,] 0.024954085 0.111736475 -0.014503005 0.215289170 -0.18374210
## [17,] -0.017411533 -0.105371949 0.029224453 -0.202568952 0.21643790
## [18,] -0.171343385 0.110298104 0.018936449 0.099459922 0.07070222
## [19,] 0.085269132 0.014721656 -0.004576809 -0.005673785 0.01603546
## [20,] -0.016281522 -0.052266190 -0.002569566 -0.030050111 -0.03945118
## [21,] 0.024908861 -0.014964404 -0.067367846 0.186519426 -0.10124991
## [22,] -0.147282803 0.030597119 -0.074831983 -0.204225628 0.14053669
## [23,] 0.075118695 -0.009271531 0.089941601 0.005830557 -0.02154740
## [24,] 0.011374106 -0.081779846 -0.080760042 0.044548407 0.11568634
## [25,] -0.011513468 0.083708361 0.085510411 -0.088205285 0.02628050
## [26,] 0.003090708 -0.023064282 -0.025363290 0.051288561 -0.09888535
## [27,] 0.066856175 0.024463082 -0.011745094 -0.326781760 0.14462059
## [28,] 0.015322333 -0.127323152 0.052167252 0.270003252 0.07771348
## [29,] -0.058435009 0.100322302 -0.039960604 -0.030149899 -0.16720933
## [,11] [,12] [,13] [,14] [,15]
## [1,] 0.003823382 0.11949583 0.16442323 -0.069359432 -0.09051934
## [2,] -0.153046089 -0.04080441 -0.15260551 0.207227990 -0.11346202
## [3,] 0.080911682 -0.08012733 -0.05718881 -0.054462385 0.14011904
## [4,] -0.229058876 0.06435310 -0.32132666 -0.462698679 -0.16118930
## [5,] 0.128264651 -0.03603540 0.17993126 0.259094454 0.09026015
## [6,] -0.347418541 0.02991949 -0.04232766 0.085313238 0.07546754
## [7,] 0.368212467 -0.03171025 0.04486108 -0.090419463 -0.07998447
## [8,] -0.324766753 0.07281497 0.20384240 0.066971254 0.09749522
## [9,] 0.026545541 0.09739507 -0.07099075 -0.035948377 -0.01243221
## [10,] 0.139958936 -0.30938908 0.16652982 0.051962233 0.03246183
## [11,] 0.036635245 -0.05351251 -0.15223715 0.007435069 -0.09738933
## [12,] -0.164607081 0.10302674 0.05156037 0.163524157 -0.05004117
## [13,] 0.172831672 -0.02950453 0.33103896 0.216323223 0.19544101
## [14,] 0.084431204 -0.11015071 -0.30702058 -0.366520122 -0.07842511
## [15,] -0.117346432 0.55990067 0.06546594 -0.103663180 0.20386348
## [16,] -0.384099147 -0.10795441 0.32632472 -0.086272835 -0.24875832
## [17,] 0.286822768 -0.13209169 -0.23139973 0.092158214 0.08535331
## [18,] -0.195178458 -0.63521267 0.13991443 -0.221940563 0.08315779
## [19,] 0.118145650 0.17397458 -0.15295871 0.077665509 0.06764412
## [20,] -0.037489044 0.06776302 0.08840790 0.008461095 -0.09037430
## [21,] -0.131135171 -0.06222611 -0.15266808 0.272267591 -0.06912568
## [22,] 0.058379307 -0.03078048 0.16591163 -0.350326601 0.50765312
## [23,] 0.048680829 0.05932712 -0.00399858 0.040854340 -0.26974272
## [24,] 0.052121174 0.01805011 -0.21707049 0.042085666 0.19144108
## [25,] 0.103537512 -0.02871275 0.12267094 0.043838301 -0.45250865
## [26,] -0.127894581 0.01439498 0.02923150 -0.067128375 0.28717125
## [27,] 0.288539426 0.15731297 0.29973043 -0.266092452 -0.19819623
## [28,] -0.077695337 -0.13275327 -0.28367861 0.268137800 0.13071104
## [29,] -0.120516995 0.01705347 0.06063819 -0.068752497 0.01197141
## [,16] [,17] [,18] [,19] [,20]
## [1,] -0.102374268 -0.044839101 0.041274542 0.026764924 -0.13964423
## [2,] 0.040742292 0.043797699 -0.117346988 0.017240757 -0.08949379
## [3,] 0.065464435 0.014395691 0.029125015 -0.032459357 -0.16268060
## [4,] 0.236018409 -0.142553361 0.034047304 0.042616525 0.18517406
## [5,] -0.132161737 0.079824705 -0.019065254 -0.023863706 0.33068941
## [6,] -0.006782721 0.003311771 -0.009590865 0.007313406 0.15582999
## [7,] 0.007188685 -0.003509990 0.010164904 -0.007751133 0.14702986
## [8,] 0.010826561 -0.090668954 0.099808926 -0.039089491 0.13652642
## [9,] 0.177935519 -0.171317834 -0.056294220 0.004303291 0.54182244
## [10,] -0.331521914 0.314575127 0.078872810 -0.024264053 0.18060748
## [11,] -0.297647768 0.378892790 0.020592921 0.057845660 0.12770877
## [12,] -0.180624800 0.099590822 0.007381621 0.007268438 0.21138315
## [13,] 0.402600790 -0.304983953 -0.066583898 -0.017810155 0.12050693
## [14,] -0.062473137 0.094907391 0.039069910 0.003686205 0.16543348
## [15,] -0.123960153 0.222798598 0.143783727 -0.039521525 0.07892037
## [16,] -0.015096318 0.043809675 -0.273102813 -0.040883044 0.14015525
## [17,] 0.054091047 -0.107845171 0.122418594 0.040226975 0.21997743
## [18,] -0.072314893 -0.134266031 -0.024453179 0.040365761 0.02967690
## [19,] -0.370303193 -0.366642379 -0.124861948 0.203578505 0.07566154
## [20,] 0.359353963 0.377957185 0.121194543 -0.197774636 0.08393894
## [21,] 0.047787223 -0.066073200 0.472259822 0.306846926 0.09437515
## [22,] 0.062977168 0.135556970 0.184064165 -0.124051066 0.09035733
## [23,] -0.069929513 -0.041221914 -0.419569455 -0.121685234 0.14586652
## [24,] -0.064902190 -0.030464951 -0.275810268 -0.565186286 0.07530258
## [25,] 0.082136077 -0.028453342 0.385705668 -0.143869404 0.10557189
## [26,] -0.032576989 0.045611407 -0.171758131 0.497170878 0.11615434
## [27,] 0.066061508 0.095980513 -0.176381699 0.323475126 0.17163243
## [28,] 0.275768592 0.280248493 -0.161911472 0.075326655 0.23657898
## [29,] -0.296359251 -0.320333370 0.265393050 -0.283821253 0.25840040
## [,21] [,22] [,23] [,24] [,25]
## [1,] 0.48323398 -0.032886765 -0.004115260 -0.09966158 -0.02416642
## [2,] 0.30969013 -0.021076139 -0.002637346 -0.06387011 -0.01548753
## [3,] 0.56295055 -0.038311922 -0.004794133 -0.11610223 -0.02815303
## [4,] 0.20010738 0.225481054 0.238821344 0.14705845 0.01703075
## [5,] 0.35735778 0.402670855 0.426494348 0.26262142 0.03041402
## [6,] 0.15908833 -0.052587826 -0.258035336 0.23665071 -0.36668763
## [7,] 0.15010419 -0.049618053 -0.243463403 0.22328642 -0.34597981
## [8,] -0.01300254 0.050125236 -0.024372524 -0.12412555 -0.04936728
## [9,] -0.05160224 0.198928364 -0.096725458 -0.49260799 -0.19592033
## [10,] -0.01720075 0.066309455 -0.032241819 -0.16420266 -0.06530678
## [11,] -0.01216276 0.046887865 -0.022798409 -0.11610882 -0.04617886
## [12,] 0.06802278 -0.273154171 -0.197851073 0.38028811 0.19878114
## [13,] 0.03877895 -0.155721837 -0.112792466 0.21679758 0.11332268
## [14,] 0.05323625 -0.213776953 -0.154842957 0.29762252 0.15557085
## [15,] -0.08158278 0.003294253 0.049172547 0.06505911 -0.01121499
## [16,] -0.14488345 0.005850287 0.087325878 0.11553894 -0.01991679
## [17,] -0.22739847 0.009182183 0.137060313 0.18134148 -0.03125994
## [18,] 0.03449793 0.075613427 -0.156516206 -0.04024912 0.13131830
## [19,] 0.08795280 0.192777171 -0.399039593 -0.10261552 0.33479728
## [20,] 0.09757487 0.213867069 -0.442694681 -0.11384170 0.37142423
## [21,] -0.01976751 0.064339388 0.059954373 0.04717409 0.22379406
## [22,] -0.01892595 0.061600275 0.057401942 0.04516576 0.21426650
## [23,] -0.03055273 0.099443157 0.092665664 0.07291242 0.34589679
## [24,] 0.05672050 -0.241343134 0.149792958 -0.12885228 0.14237468
## [25,] 0.07952038 -0.338355606 0.210005092 -0.18064691 0.19960490
## [26,] 0.08749144 -0.372272105 0.231055836 -0.19875481 0.21961313
## [27,] 0.04209090 -0.180139943 -0.027367222 -0.06735719 -0.07156130
## [28,] 0.05801830 -0.248305776 -0.037723112 -0.09284549 -0.09864044
## [29,] 0.06336975 -0.271208845 -0.041202593 -0.10140931 -0.10773877
## [,26] [,27] [,28] [,29]
## [1,] 0.040791029 0.073248434 0.23032623 0.191260036
## [2,] 0.026141745 0.046942720 0.14760916 0.122572809
## [3,] 0.047520111 0.085331843 0.26832193 0.222811199
## [4,] 0.060605502 -0.036486084 -0.16525849 -0.047634827
## [5,] 0.108231130 -0.065157948 -0.29512359 -0.085067708
## [6,] -0.402867873 0.180121462 -0.04888575 -0.149976690
## [7,] -0.380116866 0.169949530 -0.04612504 -0.141507112
## [8,] 0.048582288 0.026355438 0.08066088 -0.047880140
## [9,] 0.192804979 0.104594902 0.32011296 -0.190018414
## [10,] 0.064268326 0.034864967 0.10670432 -0.063339471
## [11,] 0.045444569 0.024653255 0.07545135 -0.044787770
## [12,] 0.339505607 -0.006834682 0.18547310 -0.138624766
## [13,] 0.193547975 -0.003896368 0.10573593 -0.079028276
## [14,] 0.265705166 -0.005348985 0.14515566 -0.108491040
## [15,] 0.001274809 0.147651343 0.03113918 0.203537083
## [16,] 0.002263942 0.262215073 0.05530029 0.361462957
## [17,] 0.003553317 0.411553606 0.08679530 0.567325828
## [18,] -0.014979476 0.039641131 -0.09757277 0.045275326
## [19,] -0.038190320 0.101065449 -0.24876273 0.115429885
## [20,] -0.042368356 0.112122049 -0.27597747 0.128057960
## [21,] -0.287787038 -0.140246475 0.24579876 0.003146141
## [22,] -0.275535112 -0.134275777 0.23533439 0.003012200
## [23,] -0.444804534 -0.216765384 0.37990732 0.004862685
## [24,] -0.087362218 0.178940050 -0.10147731 -0.103449698
## [25,] -0.122479126 0.250868414 -0.14226805 -0.145033276
## [26,] -0.134756336 0.276015265 -0.15652888 -0.159571297
## [27,] -0.025197888 -0.265639098 -0.11407573 0.187748082
## [28,] -0.034732891 -0.366158227 -0.15724254 0.258792872
## [29,] -0.037936561 -0.399931697 -0.17174618 0.282663244
##
## $v
## [,1] [,2] [,3] [,4] [,5]
## [1,] -0.07882556 -0.019541763 -0.031138247 -0.008032471 0.148795253
## [2,] 0.14410956 -0.027646818 0.018190490 0.098036032 -0.327635393
## [3,] -0.01161402 0.031983610 0.016721973 -0.047036509 0.052513540
## [4,] 0.03849483 0.253604742 -0.371066817 -0.064285043 -0.171043689
## [5,] -0.02155571 -0.142009444 0.207783940 0.035997289 0.095778253
## [6,] -0.04084800 0.006121123 -0.051646460 0.011980066 0.378260493
## [7,] 0.04329286 -0.006487488 0.054737638 -0.012697105 -0.400900392
## [8,] -0.11724822 -0.100921104 0.048151040 0.112921493 0.198297865
## [9,] 0.05116979 -0.088114830 0.177303083 0.022903299 -0.073783761
## [10,] 0.03457317 0.221003230 -0.360867029 -0.056960172 -0.026010758
## [11,] -0.14064527 0.169182997 -0.293365856 -0.137334774 0.137833419
## [12,] 0.10142876 0.030149478 0.110962041 0.010936616 -0.384644202
## [13,] -0.04992697 0.250338453 -0.426316752 -0.028813666 0.147469525
## [14,] -0.09323255 -0.220877969 0.168760396 0.007014483 0.384058906
## [15,] 0.18186401 0.194298623 -0.086229437 0.494533612 -0.008202679
## [16,] 0.20844769 -0.107010977 -0.001238772 -0.416792803 -0.005834810
## [17,] -0.19805583 -0.001527290 0.031725434 0.088131419 0.006660400
## [18,] 0.13876011 0.186290515 0.140214069 0.511246444 -0.029928662
## [19,] 0.29410518 -0.153021028 -0.192137817 -0.108473693 0.086227497
## [20,] -0.31416193 0.072067648 0.123617529 -0.082976048 -0.067143036
## [21,] 0.16711616 0.361491850 0.243519662 -0.216087884 0.074835758
## [22,] 0.24347558 -0.311255792 -0.070706135 -0.205017625 -0.101414948
## [23,] -0.25894505 -0.041075952 -0.113757337 0.266806737 0.014403221
## [24,] 0.21231433 0.399573056 0.226947686 -0.155512038 0.120583700
## [25,] 0.23886494 -0.263429743 -0.183544505 0.172410763 0.095750367
## [26,] -0.35474562 -0.019612760 0.019692709 -0.055884890 -0.165200994
## [27,] 0.18731765 0.285217490 0.254412773 -0.011573323 0.187073881
## [28,] 0.23547334 -0.229180113 -0.177237857 0.115238901 0.043489044
## [29,] -0.34000654 0.020381649 -0.006713346 -0.097820065 -0.164073038
## [,6] [,7] [,8] [,9] [,10]
## [1,] -0.405257446 -0.471340122 -0.132207383 0.283300372 0.23571774
## [2,] -0.026195071 0.105154704 -0.590977051 -0.454928772 -0.15164754
## [3,] 0.362281419 0.346748376 0.438594228 0.007081592 -0.11891466
## [4,] 0.094147626 -0.127765466 0.045740335 -0.037535923 0.12958161
## [5,] -0.052719251 0.071544021 -0.025612926 0.021018753 -0.07256100
## [6,] -0.163834170 -0.056554354 0.177836360 -0.348240843 -0.06220738
## [7,] 0.173640082 0.059939282 -0.188480340 0.369083986 0.06593065
## [8,] 0.596827419 -0.007002939 -0.296337055 0.044383383 0.48772940
## [9,] -0.182856687 0.020693491 0.100781346 0.017699400 -0.11873868
## [10,] 0.282868574 -0.444772193 0.014879754 -0.144847540 -0.25295141
## [11,] -0.262276703 0.548694277 -0.131824551 0.082305327 0.34008820
## [12,] -0.035619380 -0.068075511 0.321148723 -0.103606569 0.28329012
## [13,] -0.092498707 0.153523667 -0.176017258 0.051665454 -0.10872623
## [14,] 0.112891733 -0.024847756 -0.282132295 0.094748881 -0.28277524
## [15,] 0.004215621 0.095273212 -0.055702321 0.182293750 -0.27697580
## [16,] 0.024954085 0.111736475 -0.014503005 0.215289170 -0.18374210
## [17,] -0.017411533 -0.105371949 0.029224453 -0.202568952 0.21643790
## [18,] -0.171343385 0.110298104 0.018936449 0.099459922 0.07070222
## [19,] 0.085269132 0.014721656 -0.004576809 -0.005673785 0.01603546
## [20,] -0.016281522 -0.052266190 -0.002569566 -0.030050111 -0.03945118
## [21,] 0.024908861 -0.014964404 -0.067367846 0.186519426 -0.10124991
## [22,] -0.147282803 0.030597119 -0.074831983 -0.204225628 0.14053669
## [23,] 0.075118695 -0.009271531 0.089941601 0.005830557 -0.02154740
## [24,] 0.011374106 -0.081779846 -0.080760042 0.044548407 0.11568634
## [25,] -0.011513468 0.083708361 0.085510411 -0.088205285 0.02628050
## [26,] 0.003090708 -0.023064282 -0.025363290 0.051288561 -0.09888535
## [27,] 0.066856175 0.024463082 -0.011745094 -0.326781760 0.14462059
## [28,] 0.015322333 -0.127323152 0.052167252 0.270003252 0.07771348
## [29,] -0.058435009 0.100322302 -0.039960604 -0.030149899 -0.16720933
## [,11] [,12] [,13] [,14] [,15]
## [1,] 0.003823382 0.11949583 0.16442323 -0.069359432 -0.09051934
## [2,] -0.153046089 -0.04080441 -0.15260551 0.207227990 -0.11346202
## [3,] 0.080911682 -0.08012733 -0.05718881 -0.054462385 0.14011904
## [4,] -0.229058876 0.06435310 -0.32132666 -0.462698679 -0.16118930
## [5,] 0.128264651 -0.03603540 0.17993126 0.259094454 0.09026015
## [6,] -0.347418541 0.02991949 -0.04232766 0.085313238 0.07546754
## [7,] 0.368212467 -0.03171025 0.04486108 -0.090419463 -0.07998447
## [8,] -0.324766753 0.07281497 0.20384240 0.066971254 0.09749522
## [9,] 0.026545541 0.09739507 -0.07099075 -0.035948377 -0.01243221
## [10,] 0.139958936 -0.30938908 0.16652982 0.051962233 0.03246183
## [11,] 0.036635245 -0.05351251 -0.15223715 0.007435069 -0.09738933
## [12,] -0.164607081 0.10302674 0.05156037 0.163524157 -0.05004117
## [13,] 0.172831672 -0.02950453 0.33103896 0.216323223 0.19544101
## [14,] 0.084431204 -0.11015071 -0.30702058 -0.366520122 -0.07842511
## [15,] -0.117346432 0.55990067 0.06546594 -0.103663180 0.20386348
## [16,] -0.384099147 -0.10795441 0.32632472 -0.086272835 -0.24875832
## [17,] 0.286822768 -0.13209169 -0.23139973 0.092158214 0.08535331
## [18,] -0.195178458 -0.63521267 0.13991443 -0.221940563 0.08315779
## [19,] 0.118145650 0.17397458 -0.15295871 0.077665509 0.06764412
## [20,] -0.037489044 0.06776302 0.08840790 0.008461095 -0.09037430
## [21,] -0.131135171 -0.06222611 -0.15266808 0.272267591 -0.06912568
## [22,] 0.058379307 -0.03078048 0.16591163 -0.350326601 0.50765312
## [23,] 0.048680829 0.05932712 -0.00399858 0.040854340 -0.26974272
## [24,] 0.052121174 0.01805011 -0.21707049 0.042085666 0.19144108
## [25,] 0.103537512 -0.02871275 0.12267094 0.043838301 -0.45250865
## [26,] -0.127894581 0.01439498 0.02923150 -0.067128375 0.28717125
## [27,] 0.288539426 0.15731297 0.29973043 -0.266092452 -0.19819623
## [28,] -0.077695337 -0.13275327 -0.28367861 0.268137800 0.13071104
## [29,] -0.120516995 0.01705347 0.06063819 -0.068752497 0.01197141
## [,16] [,17] [,18] [,19] [,20]
## [1,] -0.102374268 -0.044839101 0.041274542 0.026764924 0.000000e+00
## [2,] 0.040742292 0.043797699 -0.117346988 0.017240757 -9.123228e-17
## [3,] 0.065464435 0.014395691 0.029125015 -0.032459357 -8.497827e-18
## [4,] 0.236018409 -0.142553361 0.034047304 0.042616525 1.295601e-02
## [5,] -0.132161737 0.079824705 -0.019065254 -0.023863706 2.313724e-02
## [6,] -0.006782721 0.003311771 -0.009590865 0.007313406 1.193841e-02
## [7,] 0.007188685 -0.003509990 0.010164904 -0.007751133 1.126422e-02
## [8,] 0.010826561 -0.090668954 0.099808926 -0.039089491 1.199799e-01
## [9,] 0.177935519 -0.171317834 -0.056294220 0.004303291 4.761557e-01
## [10,] -0.331521914 0.314575127 0.078872810 -0.024264053 1.587186e-01
## [11,] -0.297647768 0.378892790 0.020592921 0.057845660 1.122310e-01
## [12,] -0.180624800 0.099590822 0.007381621 0.007268438 -1.111930e-01
## [13,] 0.402600790 -0.304983953 -0.066583898 -0.017810155 -6.338979e-02
## [14,] -0.062473137 0.094907391 0.039069910 0.003686205 -8.702232e-02
## [15,] -0.123960153 0.222798598 0.143783727 -0.039521525 2.123659e-01
## [16,] -0.015096318 0.043809675 -0.273102813 -0.040883044 3.771421e-01
## [17,] 0.054091047 -0.107845171 0.122418594 0.040226975 5.919347e-01
## [18,] -0.072314893 -0.134266031 -0.024453179 0.040365761 1.455341e-02
## [19,] -0.370303193 -0.366642379 -0.124861948 0.203578505 3.710406e-02
## [20,] 0.359353963 0.377957185 0.121194543 -0.197774636 4.116326e-02
## [21,] 0.047787223 -0.066073200 0.472259822 0.306846926 1.219759e-01
## [22,] 0.062977168 0.135556970 0.184064165 -0.124051066 1.167830e-01
## [23,] -0.069929513 -0.041221914 -0.419569455 -0.121685234 1.885263e-01
## [24,] -0.064902190 -0.030464951 -0.275810268 -0.565186286 6.083359e-02
## [25,] 0.082136077 -0.028453342 0.385705668 -0.143869404 8.528681e-02
## [26,] -0.032576989 0.045611407 -0.171758131 0.497170878 9.383589e-02
## [27,] 0.066061508 0.095980513 -0.176381699 0.323475126 1.174917e-01
## [28,] 0.275768592 0.280248493 -0.161911472 0.075326655 1.619511e-01
## [29,] -0.296359251 -0.320333370 0.265393050 -0.283821253 1.768890e-01
## [,21] [,22] [,23] [,24] [,25]
## [1,] -0.372869720 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [2,] -0.238960997 1.368484e-16 3.558059e-16 1.630777e-16 -1.186020e-16
## [3,] -0.434380078 1.847702e-16 1.086099e-16 1.852711e-16 4.490425e-18
## [4,] -0.297996693 -1.855394e-01 -1.861678e-01 1.000005e-01 1.122356e-01
## [5,] -0.532171468 -3.313418e-01 -3.324641e-01 1.785838e-01 2.004337e-01
## [6,] -0.173003334 2.665856e-01 -8.926922e-02 -3.091697e-01 1.273872e-02
## [7,] -0.163233381 2.515308e-01 -8.422795e-02 -2.917101e-01 1.201934e-02
## [8,] 0.021762542 -6.534326e-02 1.581130e-02 5.014467e-02 -6.108775e-02
## [9,] 0.086367411 -2.593230e-01 6.274914e-02 1.990055e-01 -2.424345e-01
## [10,] 0.028789137 -8.644101e-02 2.091638e-02 6.633516e-02 -8.081150e-02
## [11,] 0.020356994 -6.112302e-02 1.479011e-02 4.690604e-02 -5.714236e-02
## [12,] -0.087656769 7.166278e-02 4.894514e-01 3.148277e-01 3.341913e-01
## [13,] -0.049972047 4.085407e-02 2.790302e-01 1.794794e-01 1.905183e-01
## [14,] -0.068602273 5.608499e-02 3.830563e-01 2.463916e-01 2.615461e-01
## [15,] 0.006731931 1.919886e-02 1.379545e-02 -6.741122e-02 1.241475e-01
## [16,] 0.011955285 3.409538e-02 2.449943e-02 -1.197161e-01 2.204744e-01
## [17,] 0.018764141 5.351362e-02 3.845251e-02 -1.878976e-01 3.460405e-01
## [18,] -0.063606103 4.460132e-02 9.814101e-02 -1.195784e-01 -1.571627e-03
## [19,] -0.162164379 1.137115e-01 2.502115e-01 -3.048663e-01 -4.006877e-03
## [20,] -0.179905226 1.261516e-01 2.775847e-01 -3.382188e-01 -4.445231e-03
## [21,] 0.060954059 1.270275e-01 -1.184430e-01 1.437504e-01 1.483847e-01
## [22,] 0.058359068 1.216195e-01 -1.134005e-01 1.376306e-01 1.420675e-01
## [23,] 0.094210781 1.963340e-01 -1.830659e-01 2.221811e-01 2.293439e-01
## [24,] -0.084906389 3.015720e-01 -4.930120e-02 1.771025e-01 -1.546164e-01
## [25,] -0.119036131 4.227946e-01 -6.911875e-02 2.482923e-01 -2.167674e-01
## [26,] -0.130968218 4.651752e-01 -7.604716e-02 2.731809e-01 -2.384960e-01
## [27,] -0.093071411 -8.574229e-02 1.679844e-01 2.865217e-02 -2.207853e-01
## [28,] -0.128290087 -1.181876e-01 2.315505e-01 3.949430e-02 -3.043315e-01
## [29,] -0.140123226 -1.290889e-01 2.529082e-01 4.313714e-02 -3.324022e-01
## [,26] [,27] [,28] [,29]
## [1,] 0.000000e+00 0.000000e+00 -0.471442992 0.000000e+00
## [2,] 3.649291e-17 3.649291e-16 -0.302133644 -6.842421e-17
## [3,] -1.597457e-16 1.179474e-17 -0.549214465 -1.451019e-16
## [4,] -3.106752e-02 3.618337e-02 0.235689035 -1.535642e-02
## [5,] -5.548132e-02 6.461734e-02 0.420900575 -2.742395e-02
## [6,] 4.699934e-01 -7.494987e-02 0.136830339 2.809638e-01
## [7,] 4.434517e-01 -7.071726e-02 0.129103171 2.650971e-01
## [8,] 7.678519e-02 1.320592e-01 -0.017212246 4.843860e-02
## [9,] 3.047318e-01 5.240939e-01 -0.068308985 1.922347e-01
## [10,] 1.015773e-01 1.746980e-01 -0.022769662 6.407824e-02
## [11,] 7.182596e-02 1.235301e-01 -0.016100582 4.531016e-02
## [12,] 1.860533e-01 1.750713e-02 0.069328753 2.922549e-02
## [13,] 1.060667e-01 9.980603e-03 0.039523470 1.666109e-02
## [14,] 1.456097e-01 1.370150e-02 0.054258332 2.287256e-02
## [15,] 4.099085e-03 -6.244479e-02 -0.005324362 -1.194407e-01
## [16,] 7.279594e-03 -1.108962e-01 -0.009455573 -2.121156e-01
## [17,] 1.142552e-02 -1.740545e-01 -0.014840776 -3.329211e-01
## [18,] -1.273473e-01 1.189821e-01 0.050306803 3.783290e-02
## [19,] -3.246732e-01 3.033461e-01 0.128257685 9.645535e-02
## [20,] -3.601926e-01 3.365323e-01 0.142289126 1.070076e-01
## [21,] -1.734349e-01 -5.433043e-02 -0.048209271 3.247492e-01
## [22,] -1.660512e-01 -5.201742e-02 -0.046156863 3.109237e-01
## [23,] -2.680615e-01 -8.397327e-02 -0.074512397 5.019334e-01
## [24,] -1.909449e-02 4.734731e-02 0.067153446 -1.429098e-01
## [25,] -2.676988e-02 6.637946e-02 0.094147054 -2.003551e-01
## [26,] -2.945327e-02 7.303328e-02 0.103584280 -2.204385e-01
## [27,] -5.220971e-02 -2.620504e-01 0.073611256 9.554752e-02
## [28,] -7.196612e-02 -3.612115e-01 0.101466115 1.317032e-01
## [29,] -7.860409e-02 -3.945288e-01 0.110825081 1.438511e-01U <- gsvd$u
U## [,1] [,2] [,3] [,4] [,5]
## [1,] -0.07882556 -0.019541763 -0.031138247 -0.008032471 0.148795253
## [2,] 0.14410956 -0.027646818 0.018190490 0.098036032 -0.327635393
## [3,] -0.01161402 0.031983610 0.016721973 -0.047036509 0.052513540
## [4,] 0.03849483 0.253604742 -0.371066817 -0.064285043 -0.171043689
## [5,] -0.02155571 -0.142009444 0.207783940 0.035997289 0.095778253
## [6,] -0.04084800 0.006121123 -0.051646460 0.011980066 0.378260493
## [7,] 0.04329286 -0.006487488 0.054737638 -0.012697105 -0.400900392
## [8,] -0.11724822 -0.100921104 0.048151040 0.112921493 0.198297865
## [9,] 0.05116979 -0.088114830 0.177303083 0.022903299 -0.073783761
## [10,] 0.03457317 0.221003230 -0.360867029 -0.056960172 -0.026010758
## [11,] -0.14064527 0.169182997 -0.293365856 -0.137334774 0.137833419
## [12,] 0.10142876 0.030149478 0.110962041 0.010936616 -0.384644202
## [13,] -0.04992697 0.250338453 -0.426316752 -0.028813666 0.147469525
## [14,] -0.09323255 -0.220877969 0.168760396 0.007014483 0.384058906
## [15,] 0.18186401 0.194298623 -0.086229437 0.494533612 -0.008202679
## [16,] 0.20844769 -0.107010977 -0.001238772 -0.416792803 -0.005834810
## [17,] -0.19805583 -0.001527290 0.031725434 0.088131419 0.006660400
## [18,] 0.13876011 0.186290515 0.140214069 0.511246444 -0.029928662
## [19,] 0.29410518 -0.153021028 -0.192137817 -0.108473693 0.086227497
## [20,] -0.31416193 0.072067648 0.123617529 -0.082976048 -0.067143036
## [21,] 0.16711616 0.361491850 0.243519662 -0.216087884 0.074835758
## [22,] 0.24347558 -0.311255792 -0.070706135 -0.205017625 -0.101414948
## [23,] -0.25894505 -0.041075952 -0.113757337 0.266806737 0.014403221
## [24,] 0.21231433 0.399573056 0.226947686 -0.155512038 0.120583700
## [25,] 0.23886494 -0.263429743 -0.183544505 0.172410763 0.095750367
## [26,] -0.35474562 -0.019612760 0.019692709 -0.055884890 -0.165200994
## [27,] 0.18731765 0.285217490 0.254412773 -0.011573323 0.187073881
## [28,] 0.23547334 -0.229180113 -0.177237857 0.115238901 0.043489044
## [29,] -0.34000654 0.020381649 -0.006713346 -0.097820065 -0.164073038
## [,6] [,7] [,8] [,9] [,10]
## [1,] -0.405257446 -0.471340122 -0.132207383 0.283300372 0.23571774
## [2,] -0.026195071 0.105154704 -0.590977051 -0.454928772 -0.15164754
## [3,] 0.362281419 0.346748376 0.438594228 0.007081592 -0.11891466
## [4,] 0.094147626 -0.127765466 0.045740335 -0.037535923 0.12958161
## [5,] -0.052719251 0.071544021 -0.025612926 0.021018753 -0.07256100
## [6,] -0.163834170 -0.056554354 0.177836360 -0.348240843 -0.06220738
## [7,] 0.173640082 0.059939282 -0.188480340 0.369083986 0.06593065
## [8,] 0.596827419 -0.007002939 -0.296337055 0.044383383 0.48772940
## [9,] -0.182856687 0.020693491 0.100781346 0.017699400 -0.11873868
## [10,] 0.282868574 -0.444772193 0.014879754 -0.144847540 -0.25295141
## [11,] -0.262276703 0.548694277 -0.131824551 0.082305327 0.34008820
## [12,] -0.035619380 -0.068075511 0.321148723 -0.103606569 0.28329012
## [13,] -0.092498707 0.153523667 -0.176017258 0.051665454 -0.10872623
## [14,] 0.112891733 -0.024847756 -0.282132295 0.094748881 -0.28277524
## [15,] 0.004215621 0.095273212 -0.055702321 0.182293750 -0.27697580
## [16,] 0.024954085 0.111736475 -0.014503005 0.215289170 -0.18374210
## [17,] -0.017411533 -0.105371949 0.029224453 -0.202568952 0.21643790
## [18,] -0.171343385 0.110298104 0.018936449 0.099459922 0.07070222
## [19,] 0.085269132 0.014721656 -0.004576809 -0.005673785 0.01603546
## [20,] -0.016281522 -0.052266190 -0.002569566 -0.030050111 -0.03945118
## [21,] 0.024908861 -0.014964404 -0.067367846 0.186519426 -0.10124991
## [22,] -0.147282803 0.030597119 -0.074831983 -0.204225628 0.14053669
## [23,] 0.075118695 -0.009271531 0.089941601 0.005830557 -0.02154740
## [24,] 0.011374106 -0.081779846 -0.080760042 0.044548407 0.11568634
## [25,] -0.011513468 0.083708361 0.085510411 -0.088205285 0.02628050
## [26,] 0.003090708 -0.023064282 -0.025363290 0.051288561 -0.09888535
## [27,] 0.066856175 0.024463082 -0.011745094 -0.326781760 0.14462059
## [28,] 0.015322333 -0.127323152 0.052167252 0.270003252 0.07771348
## [29,] -0.058435009 0.100322302 -0.039960604 -0.030149899 -0.16720933
## [,11] [,12] [,13] [,14] [,15]
## [1,] 0.003823382 0.11949583 0.16442323 -0.069359432 -0.09051934
## [2,] -0.153046089 -0.04080441 -0.15260551 0.207227990 -0.11346202
## [3,] 0.080911682 -0.08012733 -0.05718881 -0.054462385 0.14011904
## [4,] -0.229058876 0.06435310 -0.32132666 -0.462698679 -0.16118930
## [5,] 0.128264651 -0.03603540 0.17993126 0.259094454 0.09026015
## [6,] -0.347418541 0.02991949 -0.04232766 0.085313238 0.07546754
## [7,] 0.368212467 -0.03171025 0.04486108 -0.090419463 -0.07998447
## [8,] -0.324766753 0.07281497 0.20384240 0.066971254 0.09749522
## [9,] 0.026545541 0.09739507 -0.07099075 -0.035948377 -0.01243221
## [10,] 0.139958936 -0.30938908 0.16652982 0.051962233 0.03246183
## [11,] 0.036635245 -0.05351251 -0.15223715 0.007435069 -0.09738933
## [12,] -0.164607081 0.10302674 0.05156037 0.163524157 -0.05004117
## [13,] 0.172831672 -0.02950453 0.33103896 0.216323223 0.19544101
## [14,] 0.084431204 -0.11015071 -0.30702058 -0.366520122 -0.07842511
## [15,] -0.117346432 0.55990067 0.06546594 -0.103663180 0.20386348
## [16,] -0.384099147 -0.10795441 0.32632472 -0.086272835 -0.24875832
## [17,] 0.286822768 -0.13209169 -0.23139973 0.092158214 0.08535331
## [18,] -0.195178458 -0.63521267 0.13991443 -0.221940563 0.08315779
## [19,] 0.118145650 0.17397458 -0.15295871 0.077665509 0.06764412
## [20,] -0.037489044 0.06776302 0.08840790 0.008461095 -0.09037430
## [21,] -0.131135171 -0.06222611 -0.15266808 0.272267591 -0.06912568
## [22,] 0.058379307 -0.03078048 0.16591163 -0.350326601 0.50765312
## [23,] 0.048680829 0.05932712 -0.00399858 0.040854340 -0.26974272
## [24,] 0.052121174 0.01805011 -0.21707049 0.042085666 0.19144108
## [25,] 0.103537512 -0.02871275 0.12267094 0.043838301 -0.45250865
## [26,] -0.127894581 0.01439498 0.02923150 -0.067128375 0.28717125
## [27,] 0.288539426 0.15731297 0.29973043 -0.266092452 -0.19819623
## [28,] -0.077695337 -0.13275327 -0.28367861 0.268137800 0.13071104
## [29,] -0.120516995 0.01705347 0.06063819 -0.068752497 0.01197141
## [,16] [,17] [,18] [,19] [,20]
## [1,] -0.102374268 -0.044839101 0.041274542 0.026764924 -0.13964423
## [2,] 0.040742292 0.043797699 -0.117346988 0.017240757 -0.08949379
## [3,] 0.065464435 0.014395691 0.029125015 -0.032459357 -0.16268060
## [4,] 0.236018409 -0.142553361 0.034047304 0.042616525 0.18517406
## [5,] -0.132161737 0.079824705 -0.019065254 -0.023863706 0.33068941
## [6,] -0.006782721 0.003311771 -0.009590865 0.007313406 0.15582999
## [7,] 0.007188685 -0.003509990 0.010164904 -0.007751133 0.14702986
## [8,] 0.010826561 -0.090668954 0.099808926 -0.039089491 0.13652642
## [9,] 0.177935519 -0.171317834 -0.056294220 0.004303291 0.54182244
## [10,] -0.331521914 0.314575127 0.078872810 -0.024264053 0.18060748
## [11,] -0.297647768 0.378892790 0.020592921 0.057845660 0.12770877
## [12,] -0.180624800 0.099590822 0.007381621 0.007268438 0.21138315
## [13,] 0.402600790 -0.304983953 -0.066583898 -0.017810155 0.12050693
## [14,] -0.062473137 0.094907391 0.039069910 0.003686205 0.16543348
## [15,] -0.123960153 0.222798598 0.143783727 -0.039521525 0.07892037
## [16,] -0.015096318 0.043809675 -0.273102813 -0.040883044 0.14015525
## [17,] 0.054091047 -0.107845171 0.122418594 0.040226975 0.21997743
## [18,] -0.072314893 -0.134266031 -0.024453179 0.040365761 0.02967690
## [19,] -0.370303193 -0.366642379 -0.124861948 0.203578505 0.07566154
## [20,] 0.359353963 0.377957185 0.121194543 -0.197774636 0.08393894
## [21,] 0.047787223 -0.066073200 0.472259822 0.306846926 0.09437515
## [22,] 0.062977168 0.135556970 0.184064165 -0.124051066 0.09035733
## [23,] -0.069929513 -0.041221914 -0.419569455 -0.121685234 0.14586652
## [24,] -0.064902190 -0.030464951 -0.275810268 -0.565186286 0.07530258
## [25,] 0.082136077 -0.028453342 0.385705668 -0.143869404 0.10557189
## [26,] -0.032576989 0.045611407 -0.171758131 0.497170878 0.11615434
## [27,] 0.066061508 0.095980513 -0.176381699 0.323475126 0.17163243
## [28,] 0.275768592 0.280248493 -0.161911472 0.075326655 0.23657898
## [29,] -0.296359251 -0.320333370 0.265393050 -0.283821253 0.25840040
## [,21] [,22] [,23] [,24] [,25]
## [1,] 0.48323398 -0.032886765 -0.004115260 -0.09966158 -0.02416642
## [2,] 0.30969013 -0.021076139 -0.002637346 -0.06387011 -0.01548753
## [3,] 0.56295055 -0.038311922 -0.004794133 -0.11610223 -0.02815303
## [4,] 0.20010738 0.225481054 0.238821344 0.14705845 0.01703075
## [5,] 0.35735778 0.402670855 0.426494348 0.26262142 0.03041402
## [6,] 0.15908833 -0.052587826 -0.258035336 0.23665071 -0.36668763
## [7,] 0.15010419 -0.049618053 -0.243463403 0.22328642 -0.34597981
## [8,] -0.01300254 0.050125236 -0.024372524 -0.12412555 -0.04936728
## [9,] -0.05160224 0.198928364 -0.096725458 -0.49260799 -0.19592033
## [10,] -0.01720075 0.066309455 -0.032241819 -0.16420266 -0.06530678
## [11,] -0.01216276 0.046887865 -0.022798409 -0.11610882 -0.04617886
## [12,] 0.06802278 -0.273154171 -0.197851073 0.38028811 0.19878114
## [13,] 0.03877895 -0.155721837 -0.112792466 0.21679758 0.11332268
## [14,] 0.05323625 -0.213776953 -0.154842957 0.29762252 0.15557085
## [15,] -0.08158278 0.003294253 0.049172547 0.06505911 -0.01121499
## [16,] -0.14488345 0.005850287 0.087325878 0.11553894 -0.01991679
## [17,] -0.22739847 0.009182183 0.137060313 0.18134148 -0.03125994
## [18,] 0.03449793 0.075613427 -0.156516206 -0.04024912 0.13131830
## [19,] 0.08795280 0.192777171 -0.399039593 -0.10261552 0.33479728
## [20,] 0.09757487 0.213867069 -0.442694681 -0.11384170 0.37142423
## [21,] -0.01976751 0.064339388 0.059954373 0.04717409 0.22379406
## [22,] -0.01892595 0.061600275 0.057401942 0.04516576 0.21426650
## [23,] -0.03055273 0.099443157 0.092665664 0.07291242 0.34589679
## [24,] 0.05672050 -0.241343134 0.149792958 -0.12885228 0.14237468
## [25,] 0.07952038 -0.338355606 0.210005092 -0.18064691 0.19960490
## [26,] 0.08749144 -0.372272105 0.231055836 -0.19875481 0.21961313
## [27,] 0.04209090 -0.180139943 -0.027367222 -0.06735719 -0.07156130
## [28,] 0.05801830 -0.248305776 -0.037723112 -0.09284549 -0.09864044
## [29,] 0.06336975 -0.271208845 -0.041202593 -0.10140931 -0.10773877
## [,26] [,27] [,28] [,29]
## [1,] 0.040791029 0.073248434 0.23032623 0.191260036
## [2,] 0.026141745 0.046942720 0.14760916 0.122572809
## [3,] 0.047520111 0.085331843 0.26832193 0.222811199
## [4,] 0.060605502 -0.036486084 -0.16525849 -0.047634827
## [5,] 0.108231130 -0.065157948 -0.29512359 -0.085067708
## [6,] -0.402867873 0.180121462 -0.04888575 -0.149976690
## [7,] -0.380116866 0.169949530 -0.04612504 -0.141507112
## [8,] 0.048582288 0.026355438 0.08066088 -0.047880140
## [9,] 0.192804979 0.104594902 0.32011296 -0.190018414
## [10,] 0.064268326 0.034864967 0.10670432 -0.063339471
## [11,] 0.045444569 0.024653255 0.07545135 -0.044787770
## [12,] 0.339505607 -0.006834682 0.18547310 -0.138624766
## [13,] 0.193547975 -0.003896368 0.10573593 -0.079028276
## [14,] 0.265705166 -0.005348985 0.14515566 -0.108491040
## [15,] 0.001274809 0.147651343 0.03113918 0.203537083
## [16,] 0.002263942 0.262215073 0.05530029 0.361462957
## [17,] 0.003553317 0.411553606 0.08679530 0.567325828
## [18,] -0.014979476 0.039641131 -0.09757277 0.045275326
## [19,] -0.038190320 0.101065449 -0.24876273 0.115429885
## [20,] -0.042368356 0.112122049 -0.27597747 0.128057960
## [21,] -0.287787038 -0.140246475 0.24579876 0.003146141
## [22,] -0.275535112 -0.134275777 0.23533439 0.003012200
## [23,] -0.444804534 -0.216765384 0.37990732 0.004862685
## [24,] -0.087362218 0.178940050 -0.10147731 -0.103449698
## [25,] -0.122479126 0.250868414 -0.14226805 -0.145033276
## [26,] -0.134756336 0.276015265 -0.15652888 -0.159571297
## [27,] -0.025197888 -0.265639098 -0.11407573 0.187748082
## [28,] -0.034732891 -0.366158227 -0.15724254 0.258792872
## [29,] -0.037936561 -0.399931697 -0.17174618 0.282663244delta <- gsvd$d
delta## [1] 3.282493e-01 2.335663e-01 2.083992e-01 1.492104e-01 1.228471e-01
## [6] 1.135759e-01 1.040998e-01 9.992164e-02 9.360854e-02 8.222335e-02
## [11] 7.829925e-02 5.619688e-02 5.244920e-02 4.759521e-02 4.010435e-02
## [16] 3.160285e-02 2.415433e-02 1.978171e-02 1.411473e-02 4.689150e-17
## [21] 4.592217e-17 2.450318e-17 2.450318e-17 2.450318e-17 2.450318e-17
## [26] 2.450318e-17 2.450318e-17 1.720956e-17 1.458751e-17V <- gsvd$v
V## [,1] [,2] [,3] [,4] [,5]
## [1,] -0.07882556 -0.019541763 -0.031138247 -0.008032471 0.148795253
## [2,] 0.14410956 -0.027646818 0.018190490 0.098036032 -0.327635393
## [3,] -0.01161402 0.031983610 0.016721973 -0.047036509 0.052513540
## [4,] 0.03849483 0.253604742 -0.371066817 -0.064285043 -0.171043689
## [5,] -0.02155571 -0.142009444 0.207783940 0.035997289 0.095778253
## [6,] -0.04084800 0.006121123 -0.051646460 0.011980066 0.378260493
## [7,] 0.04329286 -0.006487488 0.054737638 -0.012697105 -0.400900392
## [8,] -0.11724822 -0.100921104 0.048151040 0.112921493 0.198297865
## [9,] 0.05116979 -0.088114830 0.177303083 0.022903299 -0.073783761
## [10,] 0.03457317 0.221003230 -0.360867029 -0.056960172 -0.026010758
## [11,] -0.14064527 0.169182997 -0.293365856 -0.137334774 0.137833419
## [12,] 0.10142876 0.030149478 0.110962041 0.010936616 -0.384644202
## [13,] -0.04992697 0.250338453 -0.426316752 -0.028813666 0.147469525
## [14,] -0.09323255 -0.220877969 0.168760396 0.007014483 0.384058906
## [15,] 0.18186401 0.194298623 -0.086229437 0.494533612 -0.008202679
## [16,] 0.20844769 -0.107010977 -0.001238772 -0.416792803 -0.005834810
## [17,] -0.19805583 -0.001527290 0.031725434 0.088131419 0.006660400
## [18,] 0.13876011 0.186290515 0.140214069 0.511246444 -0.029928662
## [19,] 0.29410518 -0.153021028 -0.192137817 -0.108473693 0.086227497
## [20,] -0.31416193 0.072067648 0.123617529 -0.082976048 -0.067143036
## [21,] 0.16711616 0.361491850 0.243519662 -0.216087884 0.074835758
## [22,] 0.24347558 -0.311255792 -0.070706135 -0.205017625 -0.101414948
## [23,] -0.25894505 -0.041075952 -0.113757337 0.266806737 0.014403221
## [24,] 0.21231433 0.399573056 0.226947686 -0.155512038 0.120583700
## [25,] 0.23886494 -0.263429743 -0.183544505 0.172410763 0.095750367
## [26,] -0.35474562 -0.019612760 0.019692709 -0.055884890 -0.165200994
## [27,] 0.18731765 0.285217490 0.254412773 -0.011573323 0.187073881
## [28,] 0.23547334 -0.229180113 -0.177237857 0.115238901 0.043489044
## [29,] -0.34000654 0.020381649 -0.006713346 -0.097820065 -0.164073038
## [,6] [,7] [,8] [,9] [,10]
## [1,] -0.405257446 -0.471340122 -0.132207383 0.283300372 0.23571774
## [2,] -0.026195071 0.105154704 -0.590977051 -0.454928772 -0.15164754
## [3,] 0.362281419 0.346748376 0.438594228 0.007081592 -0.11891466
## [4,] 0.094147626 -0.127765466 0.045740335 -0.037535923 0.12958161
## [5,] -0.052719251 0.071544021 -0.025612926 0.021018753 -0.07256100
## [6,] -0.163834170 -0.056554354 0.177836360 -0.348240843 -0.06220738
## [7,] 0.173640082 0.059939282 -0.188480340 0.369083986 0.06593065
## [8,] 0.596827419 -0.007002939 -0.296337055 0.044383383 0.48772940
## [9,] -0.182856687 0.020693491 0.100781346 0.017699400 -0.11873868
## [10,] 0.282868574 -0.444772193 0.014879754 -0.144847540 -0.25295141
## [11,] -0.262276703 0.548694277 -0.131824551 0.082305327 0.34008820
## [12,] -0.035619380 -0.068075511 0.321148723 -0.103606569 0.28329012
## [13,] -0.092498707 0.153523667 -0.176017258 0.051665454 -0.10872623
## [14,] 0.112891733 -0.024847756 -0.282132295 0.094748881 -0.28277524
## [15,] 0.004215621 0.095273212 -0.055702321 0.182293750 -0.27697580
## [16,] 0.024954085 0.111736475 -0.014503005 0.215289170 -0.18374210
## [17,] -0.017411533 -0.105371949 0.029224453 -0.202568952 0.21643790
## [18,] -0.171343385 0.110298104 0.018936449 0.099459922 0.07070222
## [19,] 0.085269132 0.014721656 -0.004576809 -0.005673785 0.01603546
## [20,] -0.016281522 -0.052266190 -0.002569566 -0.030050111 -0.03945118
## [21,] 0.024908861 -0.014964404 -0.067367846 0.186519426 -0.10124991
## [22,] -0.147282803 0.030597119 -0.074831983 -0.204225628 0.14053669
## [23,] 0.075118695 -0.009271531 0.089941601 0.005830557 -0.02154740
## [24,] 0.011374106 -0.081779846 -0.080760042 0.044548407 0.11568634
## [25,] -0.011513468 0.083708361 0.085510411 -0.088205285 0.02628050
## [26,] 0.003090708 -0.023064282 -0.025363290 0.051288561 -0.09888535
## [27,] 0.066856175 0.024463082 -0.011745094 -0.326781760 0.14462059
## [28,] 0.015322333 -0.127323152 0.052167252 0.270003252 0.07771348
## [29,] -0.058435009 0.100322302 -0.039960604 -0.030149899 -0.16720933
## [,11] [,12] [,13] [,14] [,15]
## [1,] 0.003823382 0.11949583 0.16442323 -0.069359432 -0.09051934
## [2,] -0.153046089 -0.04080441 -0.15260551 0.207227990 -0.11346202
## [3,] 0.080911682 -0.08012733 -0.05718881 -0.054462385 0.14011904
## [4,] -0.229058876 0.06435310 -0.32132666 -0.462698679 -0.16118930
## [5,] 0.128264651 -0.03603540 0.17993126 0.259094454 0.09026015
## [6,] -0.347418541 0.02991949 -0.04232766 0.085313238 0.07546754
## [7,] 0.368212467 -0.03171025 0.04486108 -0.090419463 -0.07998447
## [8,] -0.324766753 0.07281497 0.20384240 0.066971254 0.09749522
## [9,] 0.026545541 0.09739507 -0.07099075 -0.035948377 -0.01243221
## [10,] 0.139958936 -0.30938908 0.16652982 0.051962233 0.03246183
## [11,] 0.036635245 -0.05351251 -0.15223715 0.007435069 -0.09738933
## [12,] -0.164607081 0.10302674 0.05156037 0.163524157 -0.05004117
## [13,] 0.172831672 -0.02950453 0.33103896 0.216323223 0.19544101
## [14,] 0.084431204 -0.11015071 -0.30702058 -0.366520122 -0.07842511
## [15,] -0.117346432 0.55990067 0.06546594 -0.103663180 0.20386348
## [16,] -0.384099147 -0.10795441 0.32632472 -0.086272835 -0.24875832
## [17,] 0.286822768 -0.13209169 -0.23139973 0.092158214 0.08535331
## [18,] -0.195178458 -0.63521267 0.13991443 -0.221940563 0.08315779
## [19,] 0.118145650 0.17397458 -0.15295871 0.077665509 0.06764412
## [20,] -0.037489044 0.06776302 0.08840790 0.008461095 -0.09037430
## [21,] -0.131135171 -0.06222611 -0.15266808 0.272267591 -0.06912568
## [22,] 0.058379307 -0.03078048 0.16591163 -0.350326601 0.50765312
## [23,] 0.048680829 0.05932712 -0.00399858 0.040854340 -0.26974272
## [24,] 0.052121174 0.01805011 -0.21707049 0.042085666 0.19144108
## [25,] 0.103537512 -0.02871275 0.12267094 0.043838301 -0.45250865
## [26,] -0.127894581 0.01439498 0.02923150 -0.067128375 0.28717125
## [27,] 0.288539426 0.15731297 0.29973043 -0.266092452 -0.19819623
## [28,] -0.077695337 -0.13275327 -0.28367861 0.268137800 0.13071104
## [29,] -0.120516995 0.01705347 0.06063819 -0.068752497 0.01197141
## [,16] [,17] [,18] [,19] [,20]
## [1,] -0.102374268 -0.044839101 0.041274542 0.026764924 0.000000e+00
## [2,] 0.040742292 0.043797699 -0.117346988 0.017240757 -9.123228e-17
## [3,] 0.065464435 0.014395691 0.029125015 -0.032459357 -8.497827e-18
## [4,] 0.236018409 -0.142553361 0.034047304 0.042616525 1.295601e-02
## [5,] -0.132161737 0.079824705 -0.019065254 -0.023863706 2.313724e-02
## [6,] -0.006782721 0.003311771 -0.009590865 0.007313406 1.193841e-02
## [7,] 0.007188685 -0.003509990 0.010164904 -0.007751133 1.126422e-02
## [8,] 0.010826561 -0.090668954 0.099808926 -0.039089491 1.199799e-01
## [9,] 0.177935519 -0.171317834 -0.056294220 0.004303291 4.761557e-01
## [10,] -0.331521914 0.314575127 0.078872810 -0.024264053 1.587186e-01
## [11,] -0.297647768 0.378892790 0.020592921 0.057845660 1.122310e-01
## [12,] -0.180624800 0.099590822 0.007381621 0.007268438 -1.111930e-01
## [13,] 0.402600790 -0.304983953 -0.066583898 -0.017810155 -6.338979e-02
## [14,] -0.062473137 0.094907391 0.039069910 0.003686205 -8.702232e-02
## [15,] -0.123960153 0.222798598 0.143783727 -0.039521525 2.123659e-01
## [16,] -0.015096318 0.043809675 -0.273102813 -0.040883044 3.771421e-01
## [17,] 0.054091047 -0.107845171 0.122418594 0.040226975 5.919347e-01
## [18,] -0.072314893 -0.134266031 -0.024453179 0.040365761 1.455341e-02
## [19,] -0.370303193 -0.366642379 -0.124861948 0.203578505 3.710406e-02
## [20,] 0.359353963 0.377957185 0.121194543 -0.197774636 4.116326e-02
## [21,] 0.047787223 -0.066073200 0.472259822 0.306846926 1.219759e-01
## [22,] 0.062977168 0.135556970 0.184064165 -0.124051066 1.167830e-01
## [23,] -0.069929513 -0.041221914 -0.419569455 -0.121685234 1.885263e-01
## [24,] -0.064902190 -0.030464951 -0.275810268 -0.565186286 6.083359e-02
## [25,] 0.082136077 -0.028453342 0.385705668 -0.143869404 8.528681e-02
## [26,] -0.032576989 0.045611407 -0.171758131 0.497170878 9.383589e-02
## [27,] 0.066061508 0.095980513 -0.176381699 0.323475126 1.174917e-01
## [28,] 0.275768592 0.280248493 -0.161911472 0.075326655 1.619511e-01
## [29,] -0.296359251 -0.320333370 0.265393050 -0.283821253 1.768890e-01
## [,21] [,22] [,23] [,24] [,25]
## [1,] -0.372869720 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [2,] -0.238960997 1.368484e-16 3.558059e-16 1.630777e-16 -1.186020e-16
## [3,] -0.434380078 1.847702e-16 1.086099e-16 1.852711e-16 4.490425e-18
## [4,] -0.297996693 -1.855394e-01 -1.861678e-01 1.000005e-01 1.122356e-01
## [5,] -0.532171468 -3.313418e-01 -3.324641e-01 1.785838e-01 2.004337e-01
## [6,] -0.173003334 2.665856e-01 -8.926922e-02 -3.091697e-01 1.273872e-02
## [7,] -0.163233381 2.515308e-01 -8.422795e-02 -2.917101e-01 1.201934e-02
## [8,] 0.021762542 -6.534326e-02 1.581130e-02 5.014467e-02 -6.108775e-02
## [9,] 0.086367411 -2.593230e-01 6.274914e-02 1.990055e-01 -2.424345e-01
## [10,] 0.028789137 -8.644101e-02 2.091638e-02 6.633516e-02 -8.081150e-02
## [11,] 0.020356994 -6.112302e-02 1.479011e-02 4.690604e-02 -5.714236e-02
## [12,] -0.087656769 7.166278e-02 4.894514e-01 3.148277e-01 3.341913e-01
## [13,] -0.049972047 4.085407e-02 2.790302e-01 1.794794e-01 1.905183e-01
## [14,] -0.068602273 5.608499e-02 3.830563e-01 2.463916e-01 2.615461e-01
## [15,] 0.006731931 1.919886e-02 1.379545e-02 -6.741122e-02 1.241475e-01
## [16,] 0.011955285 3.409538e-02 2.449943e-02 -1.197161e-01 2.204744e-01
## [17,] 0.018764141 5.351362e-02 3.845251e-02 -1.878976e-01 3.460405e-01
## [18,] -0.063606103 4.460132e-02 9.814101e-02 -1.195784e-01 -1.571627e-03
## [19,] -0.162164379 1.137115e-01 2.502115e-01 -3.048663e-01 -4.006877e-03
## [20,] -0.179905226 1.261516e-01 2.775847e-01 -3.382188e-01 -4.445231e-03
## [21,] 0.060954059 1.270275e-01 -1.184430e-01 1.437504e-01 1.483847e-01
## [22,] 0.058359068 1.216195e-01 -1.134005e-01 1.376306e-01 1.420675e-01
## [23,] 0.094210781 1.963340e-01 -1.830659e-01 2.221811e-01 2.293439e-01
## [24,] -0.084906389 3.015720e-01 -4.930120e-02 1.771025e-01 -1.546164e-01
## [25,] -0.119036131 4.227946e-01 -6.911875e-02 2.482923e-01 -2.167674e-01
## [26,] -0.130968218 4.651752e-01 -7.604716e-02 2.731809e-01 -2.384960e-01
## [27,] -0.093071411 -8.574229e-02 1.679844e-01 2.865217e-02 -2.207853e-01
## [28,] -0.128290087 -1.181876e-01 2.315505e-01 3.949430e-02 -3.043315e-01
## [29,] -0.140123226 -1.290889e-01 2.529082e-01 4.313714e-02 -3.324022e-01
## [,26] [,27] [,28] [,29]
## [1,] 0.000000e+00 0.000000e+00 -0.471442992 0.000000e+00
## [2,] 3.649291e-17 3.649291e-16 -0.302133644 -6.842421e-17
## [3,] -1.597457e-16 1.179474e-17 -0.549214465 -1.451019e-16
## [4,] -3.106752e-02 3.618337e-02 0.235689035 -1.535642e-02
## [5,] -5.548132e-02 6.461734e-02 0.420900575 -2.742395e-02
## [6,] 4.699934e-01 -7.494987e-02 0.136830339 2.809638e-01
## [7,] 4.434517e-01 -7.071726e-02 0.129103171 2.650971e-01
## [8,] 7.678519e-02 1.320592e-01 -0.017212246 4.843860e-02
## [9,] 3.047318e-01 5.240939e-01 -0.068308985 1.922347e-01
## [10,] 1.015773e-01 1.746980e-01 -0.022769662 6.407824e-02
## [11,] 7.182596e-02 1.235301e-01 -0.016100582 4.531016e-02
## [12,] 1.860533e-01 1.750713e-02 0.069328753 2.922549e-02
## [13,] 1.060667e-01 9.980603e-03 0.039523470 1.666109e-02
## [14,] 1.456097e-01 1.370150e-02 0.054258332 2.287256e-02
## [15,] 4.099085e-03 -6.244479e-02 -0.005324362 -1.194407e-01
## [16,] 7.279594e-03 -1.108962e-01 -0.009455573 -2.121156e-01
## [17,] 1.142552e-02 -1.740545e-01 -0.014840776 -3.329211e-01
## [18,] -1.273473e-01 1.189821e-01 0.050306803 3.783290e-02
## [19,] -3.246732e-01 3.033461e-01 0.128257685 9.645535e-02
## [20,] -3.601926e-01 3.365323e-01 0.142289126 1.070076e-01
## [21,] -1.734349e-01 -5.433043e-02 -0.048209271 3.247492e-01
## [22,] -1.660512e-01 -5.201742e-02 -0.046156863 3.109237e-01
## [23,] -2.680615e-01 -8.397327e-02 -0.074512397 5.019334e-01
## [24,] -1.909449e-02 4.734731e-02 0.067153446 -1.429098e-01
## [25,] -2.676988e-02 6.637946e-02 0.094147054 -2.003551e-01
## [26,] -2.945327e-02 7.303328e-02 0.103584280 -2.204385e-01
## [27,] -5.220971e-02 -2.620504e-01 0.073611256 9.554752e-02
## [28,] -7.196612e-02 -3.612115e-01 0.101466115 1.317032e-01
## [29,] -7.860409e-02 -3.945288e-01 0.110825081 1.438511e-01Delta <- diag(delta)
Delta## [,1] [,2] [,3] [,4] [,5] [,6] [,7]
## [1,] 0.3282493 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [2,] 0.0000000 0.2335663 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [3,] 0.0000000 0.0000000 0.2083992 0.0000000 0.0000000 0.0000000 0.0000000
## [4,] 0.0000000 0.0000000 0.0000000 0.1492104 0.0000000 0.0000000 0.0000000
## [5,] 0.0000000 0.0000000 0.0000000 0.0000000 0.1228471 0.0000000 0.0000000
## [6,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.1135759 0.0000000
## [7,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.1040998
## [8,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [9,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [10,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [11,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [12,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [13,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [14,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [15,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [16,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [17,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [18,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [19,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [20,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [21,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [22,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [23,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [24,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [25,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [26,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [27,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [28,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [29,] 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## [,8] [,9] [,10] [,11] [,12] [,13]
## [1,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [2,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [3,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [4,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [5,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [6,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [7,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [8,] 0.09992164 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [9,] 0.00000000 0.09360854 0.00000000 0.00000000 0.00000000 0.0000000
## [10,] 0.00000000 0.00000000 0.08222335 0.00000000 0.00000000 0.0000000
## [11,] 0.00000000 0.00000000 0.00000000 0.07829925 0.00000000 0.0000000
## [12,] 0.00000000 0.00000000 0.00000000 0.00000000 0.05619688 0.0000000
## [13,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0524492
## [14,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [15,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [16,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [17,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [18,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [19,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [20,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [21,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [22,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [23,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [24,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [25,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [26,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [27,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [28,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [29,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000
## [,14] [,15] [,16] [,17] [,18] [,19]
## [1,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [2,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [3,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [4,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [5,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [6,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [7,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [8,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [9,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [10,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [11,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [12,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [13,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [14,] 0.04759521 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [15,] 0.00000000 0.04010435 0.00000000 0.00000000 0.00000000 0.00000000
## [16,] 0.00000000 0.00000000 0.03160285 0.00000000 0.00000000 0.00000000
## [17,] 0.00000000 0.00000000 0.00000000 0.02415433 0.00000000 0.00000000
## [18,] 0.00000000 0.00000000 0.00000000 0.00000000 0.01978171 0.00000000
## [19,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.01411473
## [20,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [21,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [22,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [23,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [24,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [25,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [26,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [27,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [28,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [29,] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## [,20] [,21] [,22] [,23] [,24]
## [1,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [2,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [3,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [4,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [5,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [6,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [7,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [8,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [9,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [10,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [11,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [12,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [13,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [14,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [15,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [16,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [17,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [18,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [19,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [20,] 4.68915e-17 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [21,] 0.00000e+00 4.592217e-17 0.000000e+00 0.000000e+00 0.000000e+00
## [22,] 0.00000e+00 0.000000e+00 2.450318e-17 0.000000e+00 0.000000e+00
## [23,] 0.00000e+00 0.000000e+00 0.000000e+00 2.450318e-17 0.000000e+00
## [24,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 2.450318e-17
## [25,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [26,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [27,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [28,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [29,] 0.00000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [,25] [,26] [,27] [,28] [,29]
## [1,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [2,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [3,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [4,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [5,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [6,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [7,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [8,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [9,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [10,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [11,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [12,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [13,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [14,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [15,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [16,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [17,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [18,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [19,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [20,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [21,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [22,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [23,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [24,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [25,] 2.450318e-17 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## [26,] 0.000000e+00 2.450318e-17 0.000000e+00 0.000000e+00 0.000000e+00
## [27,] 0.000000e+00 0.000000e+00 2.450318e-17 0.000000e+00 0.000000e+00
## [28,] 0.000000e+00 0.000000e+00 0.000000e+00 1.720956e-17 0.000000e+00
## [29,] 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 1.458751e-17eigenvalues <- delta^2
idx_valid <- which(eigenvalues > 1e-10)
eigenvalues <- eigenvalues[idx_valid]
pct_var <- eigenvalues / sum(eigenvalues) * 100
cum_var <- cumsum(pct_var)
cat("\nNilai Singular (delta, 10 terbesar):\n")##
## Nilai Singular (delta, 10 terbesar):print(round(delta[1:min(10, length(delta))], 6))## [1] 0.328249 0.233566 0.208399 0.149210 0.122847 0.113576 0.104100 0.099922
## [9] 0.093609 0.082223tabel_eig <- data.frame(
Dimensi = paste0("Dim", seq_along(eigenvalues)),
Eigenvalue = round(eigenvalues, 6),
Pct_Var = round(pct_var, 2),
Kumulatif = round(cum_var, 2)
)
cat("\nTabel Eigenvalue (10 dimensi pertama):\n")##
## Tabel Eigenvalue (10 dimensi pertama):print(tabel_eig[1:min(10, nrow(tabel_eig)), ])## Dimensi Eigenvalue Pct_Var Kumulatif
## 1 Dim1 0.107748 34.71 34.71
## 2 Dim2 0.054553 17.57 52.28
## 3 Dim3 0.043430 13.99 66.28
## 4 Dim4 0.022264 7.17 73.45
## 5 Dim5 0.015091 4.86 78.31
## 6 Dim6 0.012899 4.16 82.47
## 7 Dim7 0.010837 3.49 85.96
## 8 Dim8 0.009984 3.22 89.17
## 9 Dim9 0.008763 2.82 92.00
## 10 Dim10 0.006761 2.18 94.1712.Perhitungan Koordinat Kategori
# Koordinat standar
Phi <- D_r_invsqrt %*% U
rownames(Phi) <- colnames(matriks_burt)
cat("\nKoordinat Standar (Phi = D_r^{-1/2} U) - Dim1 & Dim2:\n")##
## Koordinat Standar (Phi = D_r^{-1/2} U) - Dim1 & Dim2:print(round(Phi[, 1:2], 4))## [,1] [,2]
## Daily -0.4147 -0.1028
## Once a week 1.1830 -0.2270
## Several times a week -0.0524 0.1444
## Gen Y (1981 to 1996) 0.2492 1.6414
## Gen Z (1997 to 2012) -0.0781 -0.5147
## Female -0.1776 0.0266
## Male 0.1995 -0.0299
## Other -1.6320 -1.4048
## S1 0.1795 -0.3091
## S2 0.3638 2.3254
## S3 -2.0929 2.5175
## Employee 0.4465 0.1327
## Entrepreneur -0.3855 1.9329
## Student -0.5244 -1.2423
## PEOU_Rendah 1.9858 2.1216
## PEOU_Sedang 1.2817 -0.6580
## PEOU_Tinggi -0.7759 -0.0060
## PU_Rendah 1.7275 2.3193
## PU_Sedang 1.4362 -0.7472
## PU_Tinggi -1.3828 0.3172
## ATU_Rendah 1.0966 2.3720
## ATU_Sedang 1.6686 -2.1332
## ATU_Tinggi -1.0993 -0.1744
## BI_Rendah 1.5522 2.9212
## BI_Sedang 1.2456 -1.3737
## BI_Tinggi -1.6814 -0.0930
## AU_Rendah 1.3464 2.0501
## AU_Sedang 1.2279 -1.1951
## AU_Tinggi -1.6233 0.0973# Koordinat prinsipal = standar x nilai singular (untuk visualisasi)
F_prinsipal <- Phi %*% Delta
rownames(F_prinsipal) <- colnames(matriks_burt)
df_koordinat <- data.frame(
Kategori = colnames(matriks_burt),
Dim1 = F_prinsipal[, 1],
Dim2 = F_prinsipal[, 2]
)
cat("\nKoordinat Prinsipal (F = Phi x Delta) - Dim1 & Dim2:\n")##
## Koordinat Prinsipal (F = Phi x Delta) - Dim1 & Dim2:print(round(df_koordinat[, c("Dim1", "Dim2")], 4))## Dim1 Dim2
## frequency1 -0.1361 -0.0240
## frequency2 0.3883 -0.0530
## frequency3 -0.0172 0.0337
## age1 0.0818 0.3834
## age2 -0.0256 -0.1202
## gender1 -0.0583 0.0062
## gender2 0.0655 -0.0070
## education1 -0.5357 -0.3281
## education2 0.0589 -0.0722
## education3 0.1194 0.5431
## education4 -0.6870 0.5880
## occupation1 0.1465 0.0310
## occupation2 -0.1265 0.4515
## occupation3 -0.1721 -0.2902
## PEOU_cat1 0.6518 0.4955
## PEOU_cat2 0.4207 -0.1537
## PEOU_cat3 -0.2547 -0.0014
## PU_cat1 0.5671 0.5417
## PU_cat2 0.4714 -0.1745
## PU_cat3 -0.4539 0.0741
## ATU_cat1 0.3599 0.5540
## ATU_cat2 0.5477 -0.4982
## ATU_cat3 -0.3609 -0.0407
## BI_cat1 0.5095 0.6823
## BI_cat2 0.4089 -0.3209
## BI_cat3 -0.5519 -0.0217
## AU_cat1 0.4420 0.4788
## AU_cat2 0.4031 -0.2791
## AU_cat3 -0.5328 0.022713.Visualisasi dalam Peta Korespondensi
ggplot(df_koordinat, aes(x = Dim1, y = Dim2, label = Kategori)) +
geom_point(color = "steelblue", size = 2.5, shape = 17) +
geom_text_repel(size = 3, color = "steelblue", max.overlaps = 30) +
geom_hline(yintercept = 0, linetype = "dashed", color = "gray50") +
geom_vline(xintercept = 0, linetype = "dashed", color = "gray50") +
labs(
title = "Peta Korespondensi MCA - Pengguna QRIS Tap",
subtitle = paste0("Dim1: ", round(pct_var[1], 1),
"% | Dim2: ", round(pct_var[2], 1),
"% | Total: ", round(cum_var[2], 1), "%"),
x = paste0("Dim1 (", round(pct_var[1], 1), "%)"),
y = paste0("Dim2 (", round(pct_var[2], 1), "%)")
) +
theme_minimal(base_size = 11) +
theme(plot.title = element_text(face = "bold"))
14. Kontribusi Tiap Dimensi
# Massa kategori
mass <- r
# Koordinat prinsipal
F <- F_prinsipal
# Eigenvalue
eig <- eigenvalues
# Kontribusi (%)
CTR <- matrix(0, nrow(F), ncol(F))
for(i in 1:ncol(F)){
CTR[,i] <- (mass * F[,i]^2 / eig[i]) * 100
}
rownames(CTR) <- rownames(F)
colnames(CTR) <- paste0("Dim",1:ncol(F))
top <- 10
ctr1 <- sort(CTR[,1], decreasing = TRUE)[1:top]
par(mar = c(5, 18, 4, 2))
barplot(
rev(ctr1),
horiz = TRUE,
las = 1,
main = "Top 10 Kontributor Dimensi 1",
xlab = "Kontribusi (%)"
)
abline(h = 100/nrow(CTR), col = "red", lty = 2)
ctr2 <- sort(CTR[,2], decreasing = TRUE)[1:top]
par(mar = c(5, 18, 4, 2))
barplot(
rev(ctr2),
horiz = TRUE,
las = 1,
main = "Top 10 Kontributor Dimensi 2",
xlab = "Kontribusi (%)"
)
abline(h = 100/nrow(CTR), col = "red", lty = 2)