Pemetaan Tingkat Pembangunan Sosial Ekonomi Kabupaten/Kota di Jawa Timur Tahun 2021 Menggunakan Metode Multi Dimensional Scaling (MDS)
Yosafat Nastityo Manduapessy
2025-12-03
Pendahuluan
Latar Belakang Kasus
Pembangunan wilayah di Provinsi Jawa Timur memiliki dinamika sosial ekonomi yang tidak seragam antar kabupaten dan kota. Variasi ini tercermin melalui beragam indikator, seperti tingkat kemiskinan, PDB regional, angka harapan hidup, rata-rata lama sekolah, dan pengeluaran per kapita. Perbedaan capaian indikator tersebut mengindikasikan adanya ketimpangan dalam tingkat kesejahteraan dan perkembangan sosial ekonomi di setiap daerah. Oleh karena itu, diperlukan suatu pendekatan analisis yang mampu menilai pola kemiripan dan keberagaman antar wilayah secara komprehensif, dengan mempertimbangkan seluruh indikator secara bersamaan guna menggambarkan kondisi sosial ekonomi yang lebih akurat dan menyeluruh.
Data
Data yang digunakan dalam studi kasus ini berasal dari dataset publik berjudul Socio-Economic of Indonesia in 2021 yang diunggah pada platform Kaggle oleh Danny Theodore Dunrui. Dataset ini memuat berbagai indikator sosial ekonomi untuk seluruh kabupaten/kota di Indonesia pada tahun 2021. Untuk kebutuhan analisis ini, penelitian mengambil subset khusus Provinsi Jawa Timur yang terdiri dari 38 kabupaten/kota. Berikut adalah data yang digunakan dalam analisis MDS, hanya menampilkan 5 data teratas:
tabel_data <- data.frame(
Kabupaten_Kota = c("Pacitan", "Ponorogo", "Trenggalek", "Tulungagung", "Blitar"),
Persentase_Penduduk_Miskin = c(15.11, 10.26, 12.14, 7.51, 9.65),
PDB_regional = c(15.785, 20.513, 18.314, 36.226, 36.024),
Angka_Harapan_Hidup = c(72.020, 72.795, 73.800, 74.115, 73.560),
Rataan_Lama_Sekolah = c(7.61, 7.55, 7.56, 8.34, 7.50),
Pengeluaran_Per_Kapita = c(8887, 9851, 9743, 10807, 10757)
)
# Menampilkan tabel
tabel_data## Kabupaten_Kota Persentase_Penduduk_Miskin PDB_regional Angka_Harapan_Hidup
## 1 Pacitan 15.11 15.785 72.020
## 2 Ponorogo 10.26 20.513 72.795
## 3 Trenggalek 12.14 18.314 73.800
## 4 Tulungagung 7.51 36.226 74.115
## 5 Blitar 9.65 36.024 73.560
## Rataan_Lama_Sekolah Pengeluaran_Per_Kapita
## 1 7.61 8887
## 2 7.55 9851
## 3 7.56 9743
## 4 8.34 10807
## 5 7.50 10757Data dapat diakses melalui tautan berikut: https://www.kaggle.com/datasets/dannytheodore/socio-economic-of-indonesia-in-2021
Latar Belakang Metode dan Tinjauan Pustaka
Untuk memahami pola kedekatan antar kabupaten/kota berdasarkan karakteristik sosial ekonomi tersebut, penelitian ini menerapkan metode Multi Dimensional Scaling (MDS) sebagai pendekatan analisis utama. MDS merupakan teknik analisis multivariat yang bertujuan untuk memetakan objek-objek ke dalam ruang berdimensi rendah berdasarkan tingkat kemiripan atau jarak antar objek, sehingga pola hubungan antar wilayah dapat divisualisasikan secara lebih intuitif dan informatif. Analisis dilakukan dengan menggunakan lima variabel numerik, yaitu persentase penduduk miskin sebagai indikator tingkat kemiskinan, PDB regional sebagai ukuran perekonomian wilayah, angka harapan hidup untuk menggambarkan kondisi kesehatan penduduk, rata-rata lama sekolah sebagai indikator pendidikan, serta pengeluaran per kapita yang merepresentasikan tingkat kesejahteraan masyarakat. Variabel-variabel ini dipilih karena mampu memberikan gambaran komprehensif mengenai kondisi sosial ekonomi yang dapat divisualisasikan ke dalam ruang berdimensi rendah melalui MDS, sekaligus menunjukkan fleksibilitas MDS dalam analisis kondisi sosial-ekonomi yang bersifat multidimensi dan kompleks.
Tujuan
Berikut adalah tujuan yang ingin dicapai pada penelitian kali ini: 1. Memetakan kondisi sosial ekonomi kabupaten/kota di Jawa Timur. 2. Mengetahui pola kemiripan antar daerah. 3. Menunjukkan fleksibilitas MDS dalam analisis kondisi sosial ekonomi.
Source Code
library(knitr)
library(readxl)
tabel <- read_excel("D:/Semester 5/Anmul/Praktikum/Laprak 2 Anmul/Source Code R Markdown Laprak 2 Anmul.xlsx")
tabel## # A tibble: 11 × 2
## `Source Code` Penjelasan
## <chr> <chr>
## 1 "library(readxl)\r\nlibrary(MASS)\r\n" library(r…
## 2 "# Import Data\r\nData <- read_excel(\"D:/Semester 5/Anmul/Prakti… Data <- r…
## 3 "# Mengambil variabel numerik\r\ndata <- Data[,-1]\r\ndata\r\nsum… data <- D…
## 4 "# Menghitung Matriks Jarak\r\ndist_matrix <- as.matrix(dist(data… dist_matr…
## 5 "# Mencari Eigen\r\nA <- dist_matrix^2\r\nI<-diag(38)\r\nJ<-matri… Membangun…
## 6 "# Menghitung tingkat kumulatif variasi\r\ncumulative_variance <-… cumsum() …
## 7 "# Menghitung titik koordinat objek\r\nfit <- cmdscale(dist_matri… cmdscale(…
## 8 "# Menghitung disparities\r\ndisparities <- as.matrix(dist(fit))\… Menghitun…
## 9 "for (i in 1:38) {\r\n for (j in 1:38) {\r\n disparities[i, j… Menghitun…
## 10 "# Menghitung stress\r\nstress <- sqrt(sum((dist_matrix - dispari… Menghitun…
## 11 "# Menampilkan Visualisasi\r\nplot(fit, type='n', xlab = \"Kompon… Menampilk…knitr::kable(tabel,caption = "Source Code")| Source Code | Penjelasan |
|---|---|
| library(readxl) | |
| library(MASS) | library(readxl) digunakan untuk memanggil paket readxl, yaitu paket R yang berfungsi membaca file Excel sehingga data dapat diimpor dan diolah dalam R. library(MASS) digunakan untuk memanggil paket MASS yang menyediakan berbagai fungsi statistik lanjutan, termasuk fungsi isoMDS yang digunakan dalam analisis Multi Dimensional Scaling (MDS). |
| # Import Data |
Data <- read_excel(“D:/Semester 5/Anmul/Praktikum/Laprak 2 Anmul/Sosial Ekonomi Jatim 2021.xlsx”) head(Data) View(Data) |Data <- read_excel(…) digunakan untuk mengimpor dataset dari file Excel yang berisi data sosial ekonomi Jawa Timur tahun 2021 ke dalam R dan menyimpannya dalam objek bernama Data. head(Data) menam-pilkan enam baris pertama dari dataset untuk melihat struktur awal data. View(Data) membuka tampilan spreadsheet interaktif sehingga pengguna dapat memeriksa keseluruhan data dengan lebih mudah. | |# Mengambil variabel numerik data <- Data[,-1] data summary(data) data <- Data[, c(“persentase_penduduk_miskin”, “pdb_regional”, “angka_harapan_hidup”, “rata-rata_lama_sekolah”, “pengeluaran_per_kapita”)] |data <- Data[,-1] digunakan untuk mengambil seluruh kolom numerik dengan cara menghapus kolom pertama, yang biasanya berupa nama wilayah atau kategori nonnumerik. summary(data) kemudian memberikan ringkasan statistik deskriptif untuk setiap variabel, seperti nilai minimum, maksimum, rata-rata, dan kuartil. data <- Data[…] secara eksplisit memilih lima variabel numerik utama yang digunakan dalam analisis MDS, sehingga memastikan bahwa hanya variabel yang relevan dan bersifat kuantitatif yang dianalisis lebih lanjut. | |# Menghitung Matriks Jarak dist_matrix <- as.matrix(dist(data)) dist_matrix |dist_matrix <- as.matrix(dist(data)) digunakan untuk menghitung matriks jarak antar seluruh pasangan kabupaten/kota berdasarkan variabel numerik yang telah dipilih, menggunakan jarak Euclidean sebagai ukuran kedekatan. Fungsi as.matrix() mengubah hasil perhitungan jarak tersebut menjadi bentuk matriks sehingga lebih mudah dibaca, ditampilkan, dan digunakan pada tahap analisis selanjutnya seperti perhitungan eigen dan pemetaan MDS. | |# Mencari Eigen A <- dist_matrix^2 I<-diag(38) J<-matrix(rep(1,38), nrow=38, ncol=38) V<- I-(1/38)*J
aa <- V %% A BB <- aa %% V
B <-(-1/2) * BB eigen_result <- eigen(B) eigen_result eigenvalues
<- eigen_result\(values
eigenvalues
eigenvectors <- eigen_result\)vectors eigenvectors |Membangun
matriks pusat ganda dari matriks jarak kuadrat yang merupakan tahap inti
dalam perhitungan MDS klasik. Matriks V = I - 1/38 J berfungsi untuk
memusatkan data, kemudian matriks B = - 1/2 V AV dibentuk sebagai
matriks hasil transformasi jarak, yang selanjutnya dilakukan dekomposisi
eigen untuk memperoleh eigenvalues, yaitu besar keragaman yang
dijelaskan tiap dimensi dan eigenvectors, yaitu koordinat titik pada
ruang berdimensi baru untuk pemetaan MDS. | |# Menghitung tingkat
kumulatif variasi cumulative_variance <- cumsum(eigenvalues) /
sum(eigenvalues) print(cumulative_variance) |cumsum() menjumlahkan
eigenvalues secara bertahap, kemudian dibagi dengan total keseluruhan
eigenvalues menggunakan sum(eigenvalues) untuk mengetahui seberapa besar
informasi yang telah terwakili hingga dimensi tertentu. | |# Menghitung
titik koordinat objek fit <- cmdscale(dist_matrix, k=2) fit
|cmdscale(…) digunakan untuk melakukan Multi Dimensional Scaling dengan
mengambil 2 dimensi utama. Hasilnya disimpan dalam objek fit, yang
berisi koordinat setiap kabupaten/kota pada sumbu Dimensi 1 dan Dimensi
2 untuk keperluan visualisasi dan analisis kedekatan antar objek. | |#
Menghitung disparities disparities <- as.matrix(dist(fit))
disparities |Menghitung kembali matriks jarak Euclidean berdasarkan
koordinat hasil MDS yang tersimpan dalam objek fit. Hasilnya disimpan
dalam variabel disparities, yang merepresentasikan jarak antar objek
pada ruang hasil pemetaan MDS, kemudian ditampilkan dalam bentuk
matriks. | |for (i in 1:38) { for (j in 1:38) { disparities[i, j] <-
sqrt(sum((fit[i,] - fit[j,])^2)) } } |Menghitung jarak Euclidean secara
manual antara setiap pasangan objek berdasarkan koordinat hasil MDS yang
tersimpan dalam variabel fit. Dua buah perulangan for memastikan bahwa
jarak antara objek ke-i dan ke-j dihitung satu per satu, lalu disimpan
ke dalam matriks disparities. | |# Menghitung stress stress <-
sqrt(sum((dist_matrix - disparities)^2) / sum(dist_matrix^2)) cat(“Nilai
Stress:”, stress, “”) |Menghitung nilai stress pada analisis MDS, yaitu
ukuran seberapa baik hasil pemetaan MDS merepresentasikan jarak asli
pada data. Rumus tersebut membandingkan selisih antara matriks jarak
asli (dist_matrix) dan matriks jarak hasil pemetaan (disparities),
kemudian hasilnya ditampilkan ke layar menggunakan fungsi cat. | |#
Menampilkan Visualisasi plot(fit, type=‘n’, xlab = “Komponen Sosial
Ekonomi 1”, ylab = “Komponen Sosial Ekonomi 2”) text(fit, labels =
Data$‘kabupaten_atau_kota’) text(fit, labels = 1:nrow(data))
|Menampilkan visualisasi hasil MDS dalam bentuk plot dua dimensi tanpa
menampilkan titik terlebih dahulu (type = ‘n’), dengan sumbu diberi nama
Komponen Sosial Ekonomi 1 dan Komponen Sosial Ekonomi 2. Selanjutnya,
fungsi text() digunakan untuk memberi label setiap titik berdasarkan
nama kabupaten/kota serta nomor urut data, sehingga memudahkan
interpretasi posisi masing-masing wilayah pada peta MDS. |
Hasil dan Pembahasan
Berdasarkan hasil summary(data), kondisi sosial ekonomi kabupaten/kota
di Jawa Timur menunjukkan keragaman yang cukup besar. Persentase
penduduk miskin berada pada rentang 4,09% hingga 23,76% dengan rata-rata
11,32%, menunjukkan adanya daerah dengan tingkat kemiskinan rendah
hingga cukup tinggi. PDB regional memiliki variasi sangat besar, mulai
dari 6,7 triliun hingga 554,5 triliun rupiah, mencerminkan adanya
kesenjangan ekonomi antar wilayah. Angka harapan hidup berkisar antara
66,83 hingga 76,67 tahun dengan rata-rata 71,82 tahun, yang menunjukkan
kondisi kesehatan masyarakat yang relatif baik dan cukup merata.
Rata-rata lama sekolah penduduk berada pada kisaran 4,86 hingga 11,37
tahun dengan rata-rata 8,06 tahun, mengindikasikan bahwa sebagian besar
penduduk menempuh pendidikan sekitar jenjang SMP. Sementara itu,
pengeluaran per kapita berada pada rentang Rp 8.673–17.862 ribu dengan
rata-rata Rp 11.569 ribu, yang mencerminkan variasi tingkat
kesejahteraan antar kabupaten/kota. Keragaman nilai pada seluruh
variabel ini menjadi dasar yang kuat untuk menggunakan metode MDS dalam
memahami pola kemiripan dan perbedaan antar wilayah.
Hasil
menunjukkan bahwa hanya dua eigenvalue pertama yang bernilai positif
besar, yaitu sekitar 1,82×10⁸ dan 2,43×10⁵. Dua nilai ini mendominasi
total variasi dalam data sehingga dua dimensi utama sudah cukup untuk
merepresentasikan struktur jarak antarkabupaten/kota. Eigenvalue ke-3
hingga ke-5 masih positif, tetapi nilainya sangat kecil sehingga
kontribusinya terhadap representasi jarak relatif minimal. Sementara
itu, mulai dari eigenvalue ke-6 hingga akhir nilainya mendekati nol atau
bahkan negatif, yang merupakan hal wajar pada MDS klasik karena adanya
kesalahan pembulatan dalam komputasi. Nilai-nilai yang sangat kecil atau
negatif tersebut menunjukkan bahwa dimensi selain dua dimensi utama
tidak menambah informasi berarti, sehingga konfigurasi MDS 2-dimensi
sudah memadai untuk memvisualisasikan hubungan antar wilayah.
Nilai
cumulative variance menunjukkan bahwa empat dimensi pertama
pada analisis MDS sudah mampu menjelaskan hampir 100% variasi jarak
antar kabupaten/kota, dengan masing-masing kontribusi kumulatif sekitar
99,86624% pada dimensi pertama dan 99,99970% setelah dimensi kedua.
Walaupun cumulative variance pada dimensi ketiga dan keempat
terlihat masih meningkat sedikit sebelum mencapai 100%, peningkatan
tersebut hanya berasal dari eigenvalue yang sangat kecil sehingga tidak
merepresentasikan informasi tambahan yang berarti. Dengan demikian,
hanya dua dimensi pertama yang relevan dan mampu menggambarkan struktur
data secara akurat. Setelah dimensi, peningkatan nilai kumulatif menjadi
1 atau 100% pada semua dimensi berikutnya, yang berarti bahwa dimensi
tambahan tidak memberikan kontribusi informasi yang berarti. Kondisi ini
menegaskan bahwa konfigurasi MDS dua dimensi sudah sangat memadai dan
akurat dalam merepresentasikan pola kemiripan dan perbedaan sosial
ekonomi antar wilayah di Jawa Timur. Dimensi tambahan hanya mencerminkan
noise atau error komputasi, bukan informasi baru.
Output fit berisi koordinat tiap objek pada ruang dua dimensi
hasil pemetaan MDS. Setiap baris mewakili satu objek, sedangkan dua
kolom merupakan nilai koordinat pada Dimensi 1 dan Dimensi 2. Koordinat
ini tidak memiliki satuan, namun menggambarkan posisi relatif antar
objek berdasarkan kemiripan atau ketidakmiripan jarak yang digunakan
dalam analisis. Objek yang memiliki nilai koordinat yang berdekatan
dianggap memiliki karakteristik yang lebih mirip, sedangkan objek yang
jauh posisinya menunjukkan perbedaan yang lebih besar. Secara
keseluruhan, matriks ini digunakan untuk visualisasi peta persepsi atau
klastering berdasarkan jarak antar objek dalam bentuk plot dua
dimensi.
Output disparitities menunjukkan matriks ketidaksamaan yang
menggambarkan seberapa besar perbedaan atau jarak antarpasangan objek
dalam data. Setiap nilai merepresentasikan tingkat ketidakmiripan, yaitu
semakin kecil angkanya maka semakin mirip dua objek tersebut, sedangkan
angka yang besar menunjukkan objek yang sangat berbeda. Pola nilai
rendah yang berkelompok di area tertentu menandakan adanya kemungkinan
cluster alami, sehingga keduanya sangat mirip. Sementara objek yang
memiliki disparity sangat besar terhadap banyak objek lain, menandakan
posisi yang jauh atau karakteristik yang berbeda. Matriks ini biasanya
digunakan dalam analisis klaster hierarkis, terutama metode Ward atau
MDS, untuk melihat struktur kelompok berdasarkan tingkat kemiripan
antarobjek.
Nilai
stress yang diperoleh adalah 3.363634 × 10⁻⁵, atau sekitar 0.0000336,
yang merupakan nilai sangat kecil. Dalam analisis MDS, nilai stress
mengukur seberapa baik konfigurasi dua dimensi mampu merepresentasikan
jarak asli antar objek. Semakin kecil nilai stress, semakin akurat
representasi tersebut. Didapatkan nilai stress pada kasus ini yang
mendekati nol, hal tersebut menunjukkan bahwa hasil MDS sangat baik,
hampir tanpa distorsi, dan koordinat dua dimensi yang terbentuk mampu
menggambarkan struktur jarak sebenarnya secara hampir sempurna. Dengan
kata lain, visualisasi MDS yang dihasilkan sangat reliabel dan
akurat.
Plot MDS ini
menggambarkan pemetaan posisi kabupaten/kota di Jawa Timur berdasarkan
kemiripan indikator sosial ekonomi. Pada grafik, sumbu horizontal
menunjukkan Komponen Sosial Ekonomi 1, sedangkan sumbu vertikal
menunjukkan Komponen Sosial Ekonomi 2, yang keduanya merupakan kombinasi
dari seluruh variabel analisis. Daerah yang posisinya berdekatan berarti
memiliki karakteristik sosial ekonomi yang serupa, sementara daerah yang
berjauhan menunjukkan adanya perbedaan yang signifikan dalam struktur
sosial ekonomi. Kota Surabaya terlihat berada sangat jauh di sisi kanan
grafik, menunjukkan bahwa wilayah ini merupakan outlier dengan
karakteristik sosial ekonomi yang jauh lebih maju dibandingkan daerah
lain. Variabel seperti PDRB per kapita, tingkat urbanisasi,
infrastruktur, dan pelayanan publik yang sangat baik mendorong posisinya
keluar dari klaster sebagian besar daerah lain. Pemisahan ekstrem ini
menandakan adanya kesenjangan pembangunan antara Surabaya dan
kabupaten/kota lain di Jawa Timur. Di sisi kanan tengah, daerah seperti
Sidoarjo, Kota Malang, dan Kota Madiun menempati posisi yang lebih maju
dibandingkan klaster kabupaten lain, tetapi masih jauh di bawah
Surabaya. Sidoarjo memiliki nilai tinggi pada Komponen Sosial Ekonomi 2,
menunjukkan dimensi sosial tertentu yang lebih menonjol, seperti
aktivitas industri dan urbanisasi. Kota Malang dan Kota Madiun berada
sedikit lebih rendah, namun relatif dekat satu sama lain, menandakan
adanya kemiripan dalam struktur perekonomian perkotaan dan kualitas
layanan sosial mereka. Sebaliknya, sebagian besar kabupaten seperti
Sumenep, Sampang, Pamekasan, Situbondo, Bondowoso, Lumajang, dan
Probolinggo terkonsentrasi rapat di sisi kiri grafik. Klaster ini
menunjukkan kesamaan sosial ekonomi yang kuat, umumnya mencerminkan
tingkat pembangunan yang lebih rendah dan karakteristik wilayah
pedesaan. Beberapa daerah seperti Pasuruan, Jember, Banyuwangi, dan
Gresik berada di posisi transisi di bagian tengah, menandakan bahwa pada
daerah tersebut sedang berkembang dan bergerak menjauh dari klaster
kabupaten kurang berkembang. Secara keseluruhan, grafik MDS ini
mengungkapkan tiga pola besar, yaitu Kota Surabaya sebagai pusat
perkembangan, kelompok kota/kabupaten maju, dan klaster kabupaten dengan
pembangunan relatif rendah.
Penutup
Kesimpulan
Berdasarkan analisis MDS terhadap lima indikator sosial ekonomi, terlihat adanya ketimpangan yang cukup signifikan antar kabupaten/kota di Jawa Timur. Nilai stress yang sangat kecil menegaskan bahwa pemetaan MDS mampu menggambarkan struktur data dengan baik. Visualisasi menunjukkan pengelompokan daerah dengan karakteristik serupa, sementara wilayah yang berbeda posisinya tampak menjauh dari klaster lainnya. Secara umum, terdapat tiga kelompok besar kondisi sosial ekonomi. Surabaya tampak sebagai outlier dengan tingkat pembangunan paling tinggi. Kelompok kedua mencakup wilayah seperti Sidoarjo, Kota Malang, dan Kota Madiun yang berada pada tingkat menengah hingga maju. Sementara sebagian besar kabupaten lain, terutama wilayah tapal kuda dan Madura, membentuk klaster dengan indikator pembangunan yang relatif rendah. Hasil ini menunjukkan ketimpangan wilayah di Jawa Timur masih kuat, terutama antara pusat perkotaan dan daerah yang lebih tertinggal.
Saran
Hasil pemetaan menggunakan Multi Dimensional Scaling (MDS) menunjukkan adanya kelompok wilayah kabupaten/kota di Jawa Timur yang memiliki kesamaan karakteristik sosial ekonomi. Temuan ini menegaskan perlunya kebijakan pembangunan yang lebih spesifik berbasis wilayah, bukan kebijakan umum yang diterapkan secara seragam. Daerah dengan kemiskinan tinggi dan akses pendidikan rendah perlu menjadi prioritas dalam intervensi pembangunan guna mengurangi ketimpangan antarwilayah. Selain itu, MDS terbukti efektif dalam menggambarkan kondisi sosial ekonomi yang kompleks, sehingga dapat dimanfaatkan secara berkelanjutan sebagai alat pemantau perkembangan wilayah di Jawa Timur. Pada penelitian berikutnya, disarankan untuk menambah variabel seperti tingkat pengangguran, IPM, dan infrastruktur publik agar hasil pemetaan semakin komprehensif dan akurat.
Daftar Pustaka
Hafsah, S., Labibah, R. N., Fitrianto, A., Erfiani, & Jumansyah, L. M. R. D. (2024). Visualization and Mapping of Household Housing Conditions in West Java Using Multidimensional Scaling. Jurnal Statistika dan Aplikasinya, 8(2), 138–151.
Syntax
library(readxl)
library(MASS)
# Import Data
Data <- read_excel("D:/Semester 5/Anmul/Praktikum/Laprak 2 Anmul/Sosial Ekonomi Jatim 2021.xlsx")
head(Data)## # A tibble: 6 × 6
## kabupaten_atau_kota persentase_penduduk_mis…¹ pdb_regional angka_harapan_hidup
## <chr> <dbl> <dbl> <dbl>
## 1 Pacitan 15.1 15.8 72.0
## 2 Ponorogo 10.3 20.5 72.8
## 3 Trenggalek 12.1 18.3 73.8
## 4 Tulungagung 7.51 38.2 74.1
## 5 Blitar 9.65 36.0 73.6
## 6 Kediri 11.6 40.6 72.6
## # ℹ abbreviated name: ¹persentase_penduduk_miskin
## # ℹ 2 more variables: `rata-rata_lama_sekolah` <dbl>,
## # pengeluaran_per_kapita <dbl>View(Data)
# Mengambil variabel numerik
data <- Data[,-1]
data## # A tibble: 38 × 5
## persentase_penduduk_miskin pdb_regional angka_harapan_hidup
## <dbl> <dbl> <dbl>
## 1 15.1 15.8 72.0
## 2 10.3 20.5 72.8
## 3 12.1 18.3 73.8
## 4 7.51 38.2 74.1
## 5 9.65 36.0 73.6
## 6 11.6 40.6 72.6
## 7 10.5 102. 72.6
## 8 10.0 32.1 70.2
## 9 10.4 76.0 69.2
## 10 8.07 81.1 76.7
## # ℹ 28 more rows
## # ℹ 2 more variables: `rata-rata_lama_sekolah` <dbl>,
## # pengeluaran_per_kapita <dbl>summary(data)## persentase_penduduk_miskin pdb_regional angka_harapan_hidup
## Min. : 4.090 Min. : 6.708 Min. :66.83
## 1st Qu.: 7.785 1st Qu.: 18.808 1st Qu.:70.58
## Median :10.560 Median : 29.331 Median :72.44
## Mean :11.322 Mean : 60.171 Mean :71.82
## 3rd Qu.:13.713 3rd Qu.: 71.687 3rd Qu.:73.18
## Max. :23.760 Max. :554.509 Max. :76.67
## rata-rata_lama_sekolah pengeluaran_per_kapita
## Min. : 4.860 Min. : 8673
## 1st Qu.: 7.200 1st Qu.:10038
## Median : 7.695 Median :11260
## Mean : 8.061 Mean :11569
## 3rd Qu.: 9.220 3rd Qu.:12723
## Max. :11.370 Max. :17862data <- Data[, c("persentase_penduduk_miskin",
"pdb_regional",
"angka_harapan_hidup",
"rata-rata_lama_sekolah",
"pengeluaran_per_kapita")]
# Menghitung Matriks Jarak
dist_matrix <- as.matrix(dist(data))
dist_matrix## 1 2 3 4 5 6 7
## 1 0.00000 964.0241 856.0107 1920.14745 1870.11812 2240.1406 1278.91963
## 2 964.02410 0.0000 108.0434 956.16927 906.13330 1276.1594 322.47299
## 3 856.01072 108.0434 0.0000 1064.19671 1014.15773 1384.1806 428.26663
## 4 1920.14745 956.1693 1064.1967 0.00000 50.10431 320.0394 647.16220
## 5 1870.11812 906.1333 1014.1577 50.10431 0.00000 370.0357 597.65732
## 6 2240.14055 1276.1594 1384.1806 320.03942 370.03572 0.0000 965.95435
## 7 1278.91963 322.4730 428.2666 647.16220 597.65732 965.9543 0.00000
## 8 316.46625 648.1089 540.1920 1604.01958 1554.00902 1924.0218 962.54958
## 9 526.48920 444.4976 338.0035 1397.52447 1347.60182 1717.3696 753.45625
## 10 3330.65122 2366.7799 2474.8017 1410.65450 1460.69993 1090.7649 2054.11215
## 11 1803.01309 839.0349 947.0320 118.88853 69.43599 437.5436 533.40503
## 12 1109.01503 145.0680 253.0502 811.23679 761.18672 1131.1938 186.08391
## 13 2082.08657 1118.1258 1226.1334 162.62007 212.31069 158.4173 808.95092
## 14 1415.97406 463.2147 568.4493 521.19908 472.88104 836.6167 140.92554
## 15 5693.90069 4730.3057 4838.3146 3774.35226 3824.40274 3454.5579 4416.03038
## 16 3957.55570 2993.6305 3101.6535 2037.47203 2087.50585 1717.4974 2681.07552
## 17 2507.12112 1543.1218 1651.1430 587.01003 637.01357 267.0066 1232.56887
## 18 3285.01946 2321.0089 2429.0152 1365.05893 1415.03454 1045.0947 2010.41617
## 19 2771.00369 1807.0020 1915.0016 851.23472 901.16774 531.4450 1497.30951
## 20 2946.00502 1982.0010 2090.0011 1026.19038 1076.13955 706.3389 1672.07430
## 21 2572.00400 1608.0089 1716.0052 652.30024 702.20276 332.6478 1298.58615
## 22 1335.11310 373.3430 480.8202 586.90899 537.10772 906.4866 66.19449
## 23 1493.72577 530.6858 638.5363 427.77940 377.98053 747.3309 220.68162
## 24 2623.00255 1659.0046 1767.0016 703.28896 753.20139 383.6070 1349.55034
## 25 4394.59883 3430.8877 3538.9010 2474.86991 2524.91463 2155.0361 3117.16806
## 26 214.24345 1178.0616 1070.0605 2134.10357 2084.07633 2454.0834 1492.12267
## 27 97.59043 1061.1002 953.0934 2017.16142 1967.12672 2337.1305 1375.53127
## 28 83.12813 1047.0318 939.0272 2003.14099 1953.11202 2323.1308 1361.68780
## 29 114.56017 851.1672 743.2128 1807.05581 1757.03695 2127.0310 1165.04698
## 30 3473.96732 2510.4977 2618.4917 1554.85601 1604.90009 1235.4225 2196.21399
## 31 4929.01473 3965.0259 4073.0197 3009.16578 3059.14232 2689.2178 3654.24572
## 32 7776.21206 6812.1988 6920.2142 5856.09947 5906.11343 5536.0948 6500.07200
## 33 3358.01278 2394.0220 2502.0177 1438.26153 1488.21509 1118.4011 2083.98974
## 34 4467.01464 3503.0245 3611.0196 2547.18036 2597.15360 2227.2440 3192.38644
## 35 4723.01458 3759.0221 3867.0176 2803.15783 2853.13533 2483.2135 3448.27011
## 36 7208.00827 6244.0070 6352.0068 5288.05814 5338.04980 4968.0780 5932.66032
## 37 8991.16004 8028.7800 8136.6899 7073.86620 7123.89504 6754.5799 7712.28758
## 38 4000.01558 3036.0103 3144.0119 2080.12322 2130.10314 1760.1901 2725.36892
## 8 9 10 11 12 13 14
## 1 316.4663 526.4892 3330.65122 1803.01309 1109.0150 2082.0866 1415.9741
## 2 648.1089 444.4976 2366.77988 839.03485 145.0680 1118.1258 463.2147
## 3 540.1920 338.0035 2474.80166 947.03197 253.0502 1226.1334 568.4493
## 4 1604.0196 1397.5245 1410.65450 118.88853 811.2368 162.6201 521.1991
## 5 1554.0090 1347.6018 1460.69993 69.43599 761.1867 212.3107 472.8810
## 6 1924.0218 1717.3696 1090.76495 437.54356 1131.1938 158.4173 836.6167
## 7 962.5496 753.4563 2054.11215 533.40503 186.0839 808.9509 140.9255
## 8 0.0000 211.6226 3014.40670 1487.06074 793.0959 1766.0254 1099.8753
## 9 211.6226 0.0000 2807.01557 1281.23860 588.6737 1559.5986 889.7240
## 10 3014.4067 2807.0156 0.00000 1528.27150 2221.8566 1248.9818 1921.0943
## 11 1487.0607 1281.2386 1528.27150 0.00000 694.0075 279.3721 412.6466
## 12 793.0959 588.6737 2221.85663 694.00751 0.0000 973.1183 326.1503
## 13 1766.0254 1559.5986 1248.98182 279.37211 973.1183 0.0000 681.3177
## 14 1099.8753 889.7240 1921.09433 412.64660 326.1503 681.3177 0.0000
## 15 5377.5419 5169.4269 2363.85949 3892.06020 4585.4344 3612.7350 4281.3162
## 16 3641.3430 3434.0073 627.02057 2154.90542 2848.6760 1875.6472 2547.7968
## 17 2191.0159 1984.3334 824.04612 704.32521 1398.1482 425.1755 1102.0854
## 18 2969.0061 2762.4441 70.96549 1482.02644 2176.0116 1203.0503 1878.7737
## 19 2455.0365 2248.7276 562.48573 968.01752 1662.0025 689.2090 1366.8849
## 20 2630.0353 2423.6798 389.05700 1143.02494 1837.0055 864.1877 1541.2290
## 21 2256.0387 2049.7678 760.48631 769.02151 1463.0065 490.2231 1168.7551
## 22 1018.7228 811.0298 1996.04248 471.72140 230.5514 748.9268 107.0794
## 23 1177.4065 970.1179 1837.12172 312.92594 386.3457 589.7156 117.7634
## 24 2307.0407 2100.7758 709.74400 820.02266 1514.0049 541.2467 1219.5795
## 25 4078.2834 3870.4413 1064.34747 2592.53235 3285.9891 2313.2040 2983.0245
## 26 530.1982 738.9704 3544.50350 2017.01714 1323.0347 2296.0270 1628.6426
## 27 413.4176 622.6881 3427.59526 1900.02214 1206.0532 2179.0501 1512.3064
## 28 399.3346 608.9110 3413.62553 1886.00302 1192.0084 2165.0693 1498.5581
## 29 203.2821 412.3057 3217.37704 1690.07281 996.1284 1969.0051 1301.8596
## 30 3157.5999 2949.5460 151.03214 1672.82046 2365.6826 1393.5652 2062.0484
## 31 4613.0731 4406.5503 1600.73498 3126.04635 3820.0308 2847.1600 3521.7431
## 32 7460.1114 7253.0056 4446.01260 5973.24207 6667.2109 5694.1525 6366.4270
## 33 3042.0744 2835.7471 75.70619 1555.04909 2249.0253 1276.2591 1952.6409
## 34 4151.0718 3944.5893 1139.35840 2664.04442 3358.0283 2385.1744 3060.0949
## 35 4407.0668 4200.5474 1394.89451 2920.04471 3614.0280 2641.1597 3315.8361
## 36 6892.0282 6685.2949 3878.58962 5405.01813 6099.0108 5126.0631 5799.5021
## 37 8674.7499 8465.5362 5664.81794 7191.90632 7884.1426 6912.6639 7576.0467
## 38 3684.0419 3477.5283 673.19031 2197.03960 2891.0188 1918.1498 2593.2521
## 15 16 17 18 19 20 21
## 1 5693.9007 3957.55570 2507.12112 3285.01946 2771.0037 2946.0050 2572.00400
## 2 4730.3057 2993.63054 1543.12181 2321.00887 1807.0020 1982.0010 1608.00887
## 3 4838.3146 3101.65351 1651.14298 2429.01521 1915.0016 2090.0011 1716.00518
## 4 3774.3523 2037.47203 587.01003 1365.05893 851.2347 1026.1904 652.30024
## 5 3824.4027 2087.50585 637.01357 1415.03454 901.1677 1076.1395 702.20276
## 6 3454.5579 1717.49737 267.00656 1045.09470 531.4450 706.3389 332.64777
## 7 4416.0304 2681.07552 1232.56887 2010.41617 1497.3095 1672.0743 1298.58615
## 8 5377.5419 3641.34298 2191.01589 2969.00610 2455.0365 2630.0353 2256.03870
## 9 5169.4269 3434.00734 1984.33337 2762.44409 2248.7276 2423.6798 2049.76784
## 10 2363.8595 627.02057 824.04612 70.96549 562.4857 389.0570 760.48631
## 11 3892.0602 2154.90542 704.32521 1482.02644 968.0175 1143.0249 769.02151
## 12 4585.4344 2848.67598 1398.14820 2176.01162 1662.0025 1837.0055 1463.00655
## 13 3612.7350 1875.64719 425.17553 1203.05035 689.2090 864.1877 490.22307
## 14 4281.3162 2547.79675 1102.08545 1878.77366 1366.8849 1541.2290 1168.75511
## 15 0.0000 1737.83731 3187.89037 2412.05382 2925.4487 2750.8010 3124.03376
## 16 1737.8373 0.00000 1450.61032 674.27720 1187.6748 1012.9716 1386.38185
## 17 3187.8904 1450.61032 0.00000 778.11625 264.8400 439.5073 68.13116
## 18 2412.0538 674.27720 778.11625 0.00000 514.0574 339.0946 713.03845
## 19 2925.4487 1187.67484 264.83997 514.05745 0.0000 175.0091 199.04108
## 20 2750.8010 1012.97157 439.50730 339.09459 175.0091 0.0000 374.03693
## 21 3124.0338 1386.38185 68.13116 713.03845 199.0411 374.0369 0.00000
## 22 4358.8581 2623.02780 1173.39894 1951.48897 1437.9176 1612.8247 1239.01112
## 23 4200.1825 2464.08531 1014.26951 1792.36166 1278.7446 1453.6644 1079.81972
## 24 3073.1752 1335.48009 117.89695 662.04540 148.0165 323.0163 51.04656
## 25 1299.5441 439.13359 1888.36275 1113.22102 1626.0980 1451.6036 1824.56894
## 26 5907.5854 4171.42825 2721.07730 3499.01581 2985.0197 3160.0239 2786.00926
## 27 5790.7514 4054.50113 2604.11972 3382.03082 2868.0282 3043.0338 2669.01719
## 28 5776.8314 4040.53139 2590.11336 3368.01851 2854.0056 3029.0087 2655.00656
## 29 5580.4171 3844.31589 2394.03252 3172.02042 2658.0560 2833.0580 2459.04242
## 30 2219.9478 487.63138 969.43168 214.92348 710.1478 538.1471 906.99860
## 31 785.4622 974.91332 2422.22900 1644.12867 2158.0410 1983.0400 2357.05400
## 32 2088.7489 3819.01772 5269.10210 4491.23805 5005.2895 4830.2993 5204.27128
## 33 2340.4200 603.19007 851.49371 74.78284 587.0717 412.0914 786.10038
## 34 1238.5391 515.34045 1960.26118 1182.15708 1696.0430 1521.0432 1895.06066
## 35 986.2123 769.51838 2216.22475 1438.12680 1952.0378 1777.0357 2151.05393
## 36 1528.0555 3251.72055 4701.07589 3923.02865 4437.0098 4262.0076 4636.01825
## 37 3303.3766 5040.20630 6488.44401 5714.44176 6227.0807 6052.7590 6425.25795
## 38 1700.6959 79.06493 1493.20405 715.12433 1229.0300 1054.0248 1428.05427
## 22 23 24 25 26 27 28
## 1 1335.11310 1493.7258 2623.00255 4394.5988 214.2435 97.59043 83.12813
## 2 373.34302 530.6858 1659.00456 3430.8877 1178.0616 1061.10023 1047.03184
## 3 480.82024 638.5363 1767.00164 3538.9010 1070.0605 953.09339 939.02724
## 4 586.90899 427.7794 703.28896 2474.8699 2134.1036 2017.16142 2003.14099
## 5 537.10772 377.9805 753.20139 2524.9146 2084.0763 1967.12672 1953.11202
## 6 906.48664 747.3309 383.60703 2155.0361 2454.0834 2337.13051 2323.13084
## 7 66.19449 220.6816 1349.55034 3117.1681 1492.1227 1375.53127 1361.68780
## 8 1018.72280 1177.4065 2307.04069 4078.2834 530.1982 413.41764 399.33464
## 9 811.02984 970.1179 2100.77576 3870.4413 738.9704 622.68806 608.91100
## 10 1996.04248 1837.1217 709.74400 1064.3475 3544.5035 3427.59526 3413.62553
## 11 471.72140 312.9259 820.02266 2592.5324 2017.0171 1900.02214 1886.00302
## 12 230.55137 386.3457 1514.00490 3285.9891 1323.0347 1206.05322 1192.00844
## 13 748.92680 589.7156 541.24674 2313.2040 2296.0270 2179.05007 2165.06928
## 14 107.07940 117.7634 1219.57953 2983.0245 1628.6426 1512.30642 1498.55810
## 15 4358.85809 4200.1825 3073.17519 1299.5441 5907.5854 5790.75141 5776.83145
## 16 2623.02780 2464.0853 1335.48009 439.1336 4171.4282 4054.50113 4040.53139
## 17 1173.39894 1014.2695 117.89695 1888.3628 2721.0773 2604.11972 2590.11336
## 18 1951.48897 1792.3617 662.04540 1113.2210 3499.0158 3382.03082 3368.01851
## 19 1437.91762 1278.7446 148.01647 1626.0980 2985.0197 2868.02821 2854.00559
## 20 1612.82471 1453.6644 323.01629 1451.6036 3160.0239 3043.03383 3029.00873
## 21 1239.01112 1079.8197 51.04656 1824.5689 2786.0093 2669.01719 2655.00656
## 22 0.00000 159.2272 1290.01258 3059.6707 1548.7360 1431.93313 1418.01569
## 23 159.22716 0.0000 1130.82703 2900.8961 1707.4553 1590.59034 1576.66270
## 24 1290.01258 1130.8270 0.00000 1773.7396 2837.0151 2720.02353 2706.00603
## 25 3059.67068 2900.8961 1773.73961 0.0000 4608.3476 4491.47694 4477.54596
## 26 1548.73602 1707.4553 2837.01514 4608.3476 0.0000 117.09598 131.33739
## 27 1431.93313 1590.5903 2720.02353 4491.4769 117.0960 0.00000 16.74555
## 28 1418.01569 1576.6627 2706.00603 4477.5460 131.3374 16.74555 0.00000
## 29 1221.56804 1380.3027 2510.05222 4281.1896 327.1717 210.51651 196.84083
## 30 2138.91322 1980.2628 856.54399 921.0149 3687.6450 3570.81943 3556.89480
## 31 3595.56755 3436.4626 2306.04296 550.9903 5143.0481 5026.04853 5012.02076
## 32 6442.00701 6283.0197 5153.28138 3383.5792 7990.1693 7873.20084 7859.20523
## 33 2024.87460 1865.7263 735.07632 1042.3207 3572.0501 3455.05283 3441.01549
## 34 3133.62474 2974.5110 1844.04743 146.4237 4681.0493 4564.05000 4550.01864
## 35 3389.56987 3230.4644 2100.04154 353.1762 4937.0483 4820.05062 4806.02013
## 36 5874.27878 5715.2189 4585.01279 2817.5880 7422.0268 7305.03084 7291.01110
## 37 7656.33459 7498.1806 6374.52549 4601.2368 9204.3586 9087.76452 9073.95501
## 38 2666.57044 2507.4604 1377.03910 410.5188 4214.0447 4097.05407 4083.01935
## 29 30 31 32 33 34 35
## 1 114.5602 3473.9673 4929.0147 7776.212 3358.01278 4467.0146 4723.0146
## 2 851.1672 2510.4977 3965.0259 6812.199 2394.02199 3503.0245 3759.0221
## 3 743.2128 2618.4917 4073.0197 6920.214 2502.01774 3611.0196 3867.0176
## 4 1807.0558 1554.8560 3009.1658 5856.099 1438.26153 2547.1804 2803.1578
## 5 1757.0369 1604.9001 3059.1423 5906.113 1488.21509 2597.1536 2853.1353
## 6 2127.0310 1235.4225 2689.2178 5536.095 1118.40109 2227.2440 2483.2135
## 7 1165.0470 2196.2140 3654.2457 6500.072 2083.98974 3192.3864 3448.2701
## 8 203.2821 3157.5999 4613.0731 7460.111 3042.07437 4151.0718 4407.0668
## 9 412.3057 2949.5460 4406.5503 7253.006 2835.74707 3944.5893 4200.5474
## 10 3217.3770 151.0321 1600.7350 4446.013 75.70619 1139.3584 1394.8945
## 11 1690.0728 1672.8205 3126.0464 5973.242 1555.04909 2664.0444 2920.0447
## 12 996.1284 2365.6826 3820.0308 6667.211 2249.02534 3358.0283 3614.0280
## 13 1969.0051 1393.5652 2847.1600 5694.152 1276.25905 2385.1744 2641.1597
## 14 1301.8596 2062.0484 3521.7431 6366.427 1952.64086 3060.0949 3315.8361
## 15 5580.4171 2219.9478 785.4622 2088.749 2340.42003 1238.5391 986.2123
## 16 3844.3159 487.6314 974.9133 3819.018 603.19007 515.3404 769.5184
## 17 2394.0325 969.4317 2422.2290 5269.102 851.49371 1960.2612 2216.2248
## 18 3172.0204 214.9235 1644.1287 4491.238 74.78284 1182.1571 1438.1268
## 19 2658.0560 710.1478 2158.0410 5005.290 587.07165 1696.0430 1952.0378
## 20 2833.0580 538.1471 1983.0400 4830.299 412.09137 1521.0432 1777.0357
## 21 2459.0424 906.9986 2357.0540 5204.271 786.10038 1895.0607 2151.0539
## 22 1221.5680 2138.9132 3595.5676 6442.007 2024.87460 3133.6247 3389.5699
## 23 1380.3027 1980.2628 3436.4626 6283.020 1865.72631 2974.5110 3230.4644
## 24 2510.0522 856.5440 2306.0430 5153.281 735.07632 1844.0474 2100.0415
## 25 4281.1896 921.0149 550.9903 3383.579 1042.32067 146.4237 353.1762
## 26 327.1717 3687.6450 5143.0481 7990.169 3572.05009 4681.0493 4937.0483
## 27 210.5165 3570.8194 5026.0485 7873.201 3455.05283 4564.0500 4820.0506
## 28 196.8408 3556.8948 5012.0208 7859.205 3441.01549 4550.0186 4806.0201
## 29 0.0000 3360.4763 4816.0950 7663.114 3245.10719 4354.0985 4610.0929
## 30 3360.4763 0.0000 1462.4121 4304.423 166.53081 1002.7450 1257.1135
## 31 4816.0950 1462.4121 0.0000 2847.754 1571.01069 462.0097 206.0146
## 32 7663.1143 4304.4228 2847.7543 0.000 4418.42449 3309.6225 3053.6624
## 33 3245.1072 166.5308 1571.0107 4418.424 0.00000 1109.0051 1365.0069
## 34 4354.0985 1002.7450 462.0097 3309.623 1109.00505 0.0000 256.0098
## 35 4610.0929 1257.1135 206.0146 3053.662 1365.00691 256.0098 0.0000
## 36 7095.0471 3737.8845 2279.0131 570.995 3850.00324 2741.0076 2485.0060
## 37 8877.3022 5519.1654 4082.9167 1292.385 5643.22882 4541.0016 4286.9028
## 38 3887.0772 540.7122 929.0548 3776.419 642.03127 467.0758 723.0421
## 36 37 38
## 1 7208.008 8991.160 4000.01558
## 2 6244.007 8028.780 3036.01026
## 3 6352.007 8136.690 3144.01194
## 4 5288.058 7073.866 2080.12322
## 5 5338.050 7123.895 2130.10314
## 6 4968.078 6754.580 1760.19007
## 7 5932.660 7712.288 2725.36892
## 8 6892.028 8674.750 3684.04195
## 9 6685.295 8465.536 3477.52830
## 10 3878.590 5664.818 673.19031
## 11 5405.018 7191.906 2197.03960
## 12 6099.011 7884.143 2891.01882
## 13 5126.063 6912.664 1918.14979
## 14 5799.502 7576.047 2593.25210
## 15 1528.055 3303.377 1700.69595
## 16 3251.721 5040.206 79.06493
## 17 4701.076 6488.444 1493.20405
## 18 3923.029 5714.442 715.12433
## 19 4437.010 6227.081 1229.02998
## 20 4262.008 6052.759 1054.02477
## 21 4636.018 6425.258 1428.05427
## 22 5874.279 7656.335 2666.57044
## 23 5715.219 7498.181 2507.46038
## 24 4585.013 6374.525 1377.03910
## 25 2817.588 4601.237 410.51875
## 26 7422.027 9204.359 4214.04474
## 27 7305.031 9087.765 4097.05407
## 28 7291.011 9073.955 4083.01935
## 29 7095.047 8877.302 3887.07722
## 30 3737.885 5519.165 540.71225
## 31 2279.013 4082.917 929.05477
## 32 570.995 1292.385 3776.41915
## 33 3850.003 5643.229 642.03127
## 34 2741.008 4541.002 467.07585
## 35 2485.006 4286.903 723.04210
## 36 0.000 1847.888 3208.00154
## 37 1847.888 0.000 5004.06948
## 38 3208.002 5004.069 0.00000# Mencari Eigen
A <- dist_matrix^2
I<-diag(38)
J<-matrix(rep(1,38), nrow=38, ncol=38)
V<- I-(1/38)*J
aa <- V %*% A
BB <- aa %*% V
B <-(-1/2) * BB
eigen_result <- eigen(B)
eigen_result## eigen() decomposition
## $values
## [1] 1.818117e+08 2.429591e+05 4.415957e+02 1.006997e+02 1.195686e+01
## [6] 5.780651e-08 1.084601e-08 1.004426e-08 8.593020e-09 8.128468e-09
## [11] 6.786715e-09 6.098843e-09 5.179293e-09 4.171603e-09 4.136952e-09
## [16] 4.020731e-09 3.768806e-09 2.088752e-09 4.694825e-10 -9.110538e-11
## [21] -1.262103e-10 -3.050199e-10 -5.785922e-10 -1.031792e-09 -2.178284e-09
## [26] -2.436713e-09 -2.771327e-09 -3.242210e-09 -4.113903e-09 -4.329498e-09
## [31] -4.800941e-09 -5.725940e-09 -6.127939e-09 -8.800539e-09 -9.409072e-09
## [36] -9.513827e-09 -1.140402e-08 -2.056749e-08
##
## $vectors
## [,1] [,2] [,3] [,4] [,5]
## [1,] -0.198896119 0.025144958 -0.0412015028 0.14606725 -0.280942569
## [2,] -0.127410832 -0.006698315 -0.1915973235 0.07152869 0.026198470
## [3,] -0.135422288 -0.006503250 -0.1281896245 0.22222835 -0.001825409
## [4,] -0.056498505 -0.011845202 -0.2630243154 0.11747651 0.045120840
## [5,] -0.060209588 -0.014142663 -0.1570489872 0.11836849 0.193656313
## [6,] -0.032768359 -0.020679678 -0.0282956372 0.08722833 -0.026972457
## [7,] -0.104149149 0.145243901 -0.1673203165 0.03846179 0.037442826
## [8,] -0.175439789 0.044548126 -0.2169219241 -0.19134179 0.087134358
## [9,] -0.160022477 0.124863027 -0.1787912061 -0.28096041 0.090193966
## [10,] 0.048115475 0.014593300 -0.1570224503 0.35097381 0.548092963
## [11,] -0.065203549 -0.043854756 0.1689806537 -0.38592010 0.209464098
## [12,] -0.116660755 -0.013859572 -0.0188413641 -0.21260968 0.089507474
## [13,] -0.044495450 -0.027837335 0.3708975686 -0.21982557 0.083775693
## [14,] -0.094145100 0.227840452 -0.1702635946 -0.21611775 -0.038717882
## [15,] 0.223358188 0.148742402 -0.0684747464 0.03888502 -0.211833273
## [16,] 0.094606316 -0.010617697 0.0562757221 0.04297393 0.031052467
## [17,] -0.012972212 -0.033694201 -0.0814241844 0.02936304 -0.085728558
## [18,] 0.044692713 -0.093996223 0.0860276487 -0.01112583 0.145925788
## [19,] 0.006569300 -0.087511672 0.0487364408 -0.01393457 0.069483080
## [20,] 0.019544928 -0.095331667 -0.0118142256 0.06283572 0.021458736
## [21,] -0.008184143 -0.076184579 0.1896071158 0.17203685 0.134201120
## [22,] -0.099898873 0.078340162 -0.0189264254 0.04034970 -0.041253567
## [23,] -0.088122383 0.055444192 0.1368799923 0.11156828 -0.055799326
## [24,] -0.004404167 -0.080626120 0.1104597645 0.13850598 -0.027684368
## [25,] 0.127016231 0.076810029 0.1561795806 0.10198355 -0.254409947
## [26,] -0.214752564 0.049617884 0.2673108133 0.13837244 -0.108082258
## [27,] -0.206083199 0.037623999 0.4120723905 -0.01292984 0.068283556
## [28,] -0.205048920 0.030754724 0.0239573543 -0.27534581 -0.221770289
## [29,] -0.190490046 0.056786106 0.2269942919 0.23066805 0.024820436
## [30,] 0.058724909 0.112534497 -0.1529781477 0.10858273 -0.341511484
## [31,] 0.166559084 -0.204977440 0.0004663168 0.11002909 -0.162370547
## [32,] 0.377757505 -0.194487791 0.0808545028 -0.05657776 0.211898526
## [33,] 0.050081534 -0.128668158 -0.0956006304 -0.24367473 -0.093632242
## [34,] 0.132305455 -0.182432108 -0.0474933904 -0.14220580 0.005518259
## [35,] 0.151287998 -0.192333686 -0.0795115623 0.02413955 -0.198789951
## [36,] 0.335550535 -0.288540583 0.0673907335 -0.06884367 -0.135275452
## [37,] 0.467416585 0.732375736 0.0994428830 -0.04952227 0.088502222
## [38,] 0.097691710 -0.146440799 -0.2277922144 -0.12169157 0.074868389
## [,6] [,7] [,8] [,9] [,10]
## [1,] -3.781975e-01 0.000000000 0.000000000 0.000000000 0.0000000000
## [2,] 7.240015e-01 0.469824092 0.017181430 0.041685079 0.0416554016
## [3,] 8.615467e-02 -0.245637160 -0.057916092 0.058659334 -0.0036217600
## [4,] -3.810200e-02 -0.024119319 -0.200924013 -0.082985246 0.0846766749
## [5,] 1.595743e-02 -0.318697426 0.309044108 0.072501996 -0.0006159419
## [6,] -3.105185e-02 0.151321773 0.082613767 -0.123430620 0.1586940041
## [7,] 5.478526e-02 -0.082449003 -0.089811399 -0.090590424 -0.0313178711
## [8,] 1.123939e-02 -0.058503449 -0.193633018 -0.131575938 0.0757298731
## [9,] -3.857321e-03 -0.039744492 -0.526968123 0.055369427 -0.0658130387
## [10,] -5.182809e-02 -0.144199918 -0.096943990 -0.107141465 0.0012237770
## [11,] -6.281194e-03 0.025756937 -0.003746731 -0.054269526 -0.0772525137
## [12,] 8.276079e-02 -0.221082423 0.372865406 -0.039881632 0.4056632653
## [13,] 3.413735e-03 0.066321566 -0.021647218 0.100653292 0.2115565131
## [14,] 1.075408e-01 -0.204250373 -0.046402570 0.150453850 0.1093641310
## [15,] 1.039467e-01 -0.112251804 -0.071259306 0.018871771 -0.2071256980
## [16,] -1.469293e-01 0.194932624 -0.009606392 -0.287287394 -0.3488061756
## [17,] 5.682410e-02 -0.097732126 -0.035754600 0.080406485 -0.0659936969
## [18,] -5.492374e-02 0.051576396 -0.096529590 0.144743613 0.0324448969
## [19,] -6.041574e-02 0.014966323 -0.029500607 -0.169942320 0.0951705669
## [20,] -2.803281e-02 -0.025270709 -0.035569187 0.722637954 -0.0166191090
## [21,] -3.001801e-02 0.002635346 -0.251000361 0.117639512 0.0256935957
## [22,] 9.230720e-02 -0.080100797 -0.059042926 -0.196481965 -0.0860643031
## [23,] 1.782676e-01 -0.158200483 -0.149263222 -0.006884164 -0.2083686966
## [24,] -3.163313e-02 0.108855428 -0.194876682 0.112686207 0.2078895661
## [25,] -1.570847e-02 0.179730105 -0.102392126 -0.086971474 0.3459862648
## [26,] 8.673722e-02 -0.085643478 -0.314837981 0.072387397 0.1020061560
## [27,] 1.216188e-01 -0.166747181 0.129077589 0.058013306 -0.4516609752
## [28,] 4.688897e-02 -0.150035183 -0.098965757 -0.093324637 -0.0354638029
## [29,] 1.006657e-01 -0.152893122 -0.010106544 -0.122975426 0.2177674743
## [30,] 6.478556e-02 -0.047402185 0.122834621 0.050647202 -0.0690718092
## [31,] 5.477031e-02 -0.288521475 -0.078775115 0.072832336 0.1388522290
## [32,] 1.440727e-01 -0.011457196 -0.163319955 -0.056952026 0.0087784842
## [33,] -4.160774e-02 -0.020832732 0.013307166 0.093818214 -0.0156012375
## [34,] -6.577453e-02 -0.203059108 -0.165989194 -0.158041542 0.1413504460
## [35,] -8.041928e-02 -0.001137881 -0.144813526 -0.077903424 -0.0461461047
## [36,] 3.494479e-01 -0.308757525 -0.026201097 -0.117363279 -0.0490469452
## [37,] -8.681753e-05 -0.059464471 -0.028974322 0.072225099 0.0875122210
## [38,] -1.250548e-01 0.138445681 0.018029764 0.231388246 -0.1193979686
## [,11] [,12] [,13] [,14] [,15]
## [1,] 0.00000000 0.000000000 0.0000000000 0.000000000 0.000000000
## [2,] 0.17468779 0.044473153 0.0739309479 -0.064978873 0.065881666
## [3,] -0.01109465 0.187634437 0.0644891165 0.014167233 0.256021963
## [4,] -0.08057662 0.046790612 -0.0548656561 -0.074442487 0.042604922
## [5,] -0.06022001 0.027393773 0.3325540413 0.134296235 -0.124900082
## [6,] -0.12085372 -0.264519325 0.1914304406 0.263510428 -0.083224422
## [7,] -0.04498680 0.004998759 0.0005192473 -0.012618458 -0.074256264
## [8,] 0.04100464 0.065238950 0.0980884210 0.139396609 -0.065262320
## [9,] 0.01365807 -0.171449041 0.1485265557 0.061319357 -0.008037856
## [10,] -0.09122278 -0.056787498 -0.0638296955 -0.006870454 0.013470024
## [11,] 0.24378542 -0.148647567 -0.0263623505 -0.095189560 -0.126457122
## [12,] 0.06784666 0.266882900 0.2173922269 -0.076333287 0.146159196
## [13,] -0.35624115 -0.179771098 0.2017270860 -0.062035648 0.175802141
## [14,] -0.05253823 0.168646509 -0.4895611720 0.091252712 0.020219893
## [15,] -0.03934251 -0.090362119 0.1652560716 -0.030852766 -0.057375306
## [16,] 0.09095411 0.273411571 0.0223987437 -0.127457805 0.265733087
## [17,] 0.05982411 -0.055122425 0.0426441270 0.007666429 -0.197657026
## [18,] -0.04537978 0.168115796 -0.0042451752 -0.261663304 -0.512959881
## [19,] 0.07621720 0.297991903 -0.0042045698 -0.160997848 -0.400122380
## [20,] 0.06571082 -0.030675343 -0.1135840191 -0.017009921 -0.040096938
## [21,] 0.19936204 0.020650047 -0.0617783746 0.336138415 0.048839262
## [22,] 0.07398794 -0.211060693 0.0194271289 -0.104668337 -0.131436337
## [23,] -0.30308317 0.386831150 0.1059176104 -0.031954922 -0.153430150
## [24,] -0.28530662 -0.049485248 0.0320023531 -0.403260419 0.124587376
## [25,] 0.08976143 0.334981534 -0.0944837539 0.304138391 -0.179130539
## [26,] 0.08317346 0.129090358 0.2665821256 0.005394857 0.131187985
## [27,] 0.19406887 0.062234043 -0.0113997760 0.067564726 0.032435249
## [28,] -0.13037857 0.067357381 0.1162392805 -0.111446525 -0.022474760
## [29,] 0.25427577 -0.297467244 0.0185879252 -0.038270300 -0.286245013
## [30,] 0.09855710 -0.153050803 0.0119999837 -0.330683480 -0.133157653
## [31,] 0.36922205 -0.010994485 0.0932437664 -0.133326273 0.181431890
## [32,] 0.04893459 0.068835943 0.0517981963 0.006575914 0.015151319
## [33,] 0.10952845 0.034566737 0.0291376845 0.268636377 -0.051321672
## [34,] 0.26768805 -0.002326756 -0.1254629337 -0.278754835 0.163691878
## [35,] 0.06067692 -0.043929714 0.3026316079 0.197970972 -0.032380836
## [36,] -0.33628313 -0.112258329 -0.1440778197 0.144862644 -0.082547819
## [37,] 0.09110603 0.016086792 0.1824329553 -0.029751852 0.024618472
## [38,] 0.05664818 0.166893012 0.3864347280 -0.059163541 -0.094783531
## [,16] [,17] [,18] [,19] [,20]
## [1,] 0.000000000 0.000000000 0.00000000 0.000000000 0.0000000000
## [2,] -0.027969895 -0.064327063 -0.07169211 -0.024224642 -0.0064498060
## [3,] 0.172536793 0.013025754 0.13692073 -0.067238355 0.0704495477
## [4,] 0.135759658 -0.327392582 0.05599747 -0.187128162 -0.5890598878
## [5,] 0.015653263 -0.096058796 0.00816572 0.066849608 -0.0648624290
## [6,] -0.104808767 -0.286025244 -0.30287506 0.410822074 0.0161262052
## [7,] 0.030043969 0.006173971 -0.01240129 -0.129265424 -0.0580193492
## [8,] 0.009082399 -0.025534746 0.01649876 0.054547482 0.1650197650
## [9,] -0.249662577 0.266129713 0.02485928 0.124125359 0.0490901004
## [10,] -0.092958832 -0.186313397 0.02391781 -0.075279575 0.1759129758
## [11,] 0.359229092 -0.109306317 -0.01510348 -0.002661662 -0.1604739450
## [12,] 0.013145939 0.012069505 -0.09181882 -0.060462599 0.0392803612
## [13,] 0.213486828 -0.142462018 -0.06440821 -0.216457435 0.1433987830
## [14,] 0.042064497 -0.193541478 -0.16016471 0.019339347 -0.0005174026
## [15,] -0.054289968 -0.395323115 0.02469858 0.003015885 0.1985683664
## [16,] 0.011701218 -0.061505501 -0.18311723 -0.113443297 -0.0253047304
## [17,] 0.252223597 -0.123380742 0.06315114 0.116968937 -0.0269077905
## [18,] -0.034897483 -0.107392902 -0.08451571 -0.248082938 0.1053574390
## [19,] -0.341372842 -0.039797954 -0.16310952 0.121409782 0.0204294327
## [20,] 0.016018286 -0.049136260 0.04996587 0.046339102 0.1102325489
## [21,] 0.238944315 -0.099980543 -0.54133569 0.041921360 -0.0305453026
## [22,] 0.236295086 -0.146561423 0.24208710 -0.158113227 0.3487122479
## [23,] 0.280955883 0.284109828 -0.23920722 0.072669514 0.0445876083
## [24,] -0.147810964 -0.183224467 0.01565303 0.076091123 -0.1751531827
## [25,] 0.139869280 -0.177525096 0.37870526 0.097125806 0.0825664969
## [26,] -0.134259508 0.020081580 0.13065142 -0.020098574 -0.1074378352
## [27,] -0.219539677 -0.298791628 0.16357661 0.139068223 -0.1568296532
## [28,] -0.089966539 -0.293531165 -0.10199977 0.040848544 0.0563770131
## [29,] 0.018850966 0.218316161 0.03571203 -0.109982805 -0.2452985026
## [30,] 0.113785159 0.035146850 -0.27602299 -0.030540709 -0.0043345573
## [31,] -0.196990996 -0.025891079 -0.15085515 -0.063231750 0.1543830737
## [32,] 0.010165869 -0.027670753 0.11939333 -0.023877667 0.1339969878
## [33,] -0.248192523 -0.091289199 -0.06225023 -0.504762995 -0.1482792616
## [34,] 0.178407437 -0.051504781 0.01233365 0.342755859 -0.0110749202
## [35,] 0.143307920 -0.013400445 -0.08577186 -0.249904972 -0.0034424520
## [36,] -0.070318086 0.119464626 0.04355826 0.081124340 -0.2489190092
## [37,] -0.020866222 0.031725070 -0.05934986 -0.003393591 -0.1685315675
## [38,] 0.165538812 0.026020621 0.16936019 0.249810320 -0.2268578145
## [,21] [,22] [,23] [,24] [,25]
## [1,] 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000
## [2,] -0.044513875 0.056176594 0.088613299 -0.038087755 -0.073858300
## [3,] -0.067767164 0.004293450 -0.019890811 0.037809425 -0.049019798
## [4,] 0.088284065 0.049298247 0.113843186 -0.253285050 0.070900985
## [5,] -0.040917884 -0.072739010 0.323544329 -0.114065265 0.201103823
## [6,] 0.393973687 0.025685027 -0.195264089 -0.004992366 0.109943813
## [7,] 0.094480586 -0.012911803 0.083761418 -0.060860857 0.087118839
## [8,] -0.117158913 0.063821262 -0.016900578 0.049478794 0.316551737
## [9,] 0.020134289 -0.321877825 0.118219199 -0.087602858 -0.038213928
## [10,] -0.223315274 -0.090890227 -0.254804284 0.261948789 -0.074090028
## [11,] 0.100172720 -0.256731829 -0.026862783 0.223671282 0.273051524
## [12,] 0.073899090 -0.150204457 -0.120791214 -0.016790003 0.039625571
## [13,] -0.197376891 -0.146995348 0.090668944 -0.129267288 -0.202951516
## [14,] 0.128668177 -0.179059769 0.063264688 0.288901014 -0.228709578
## [15,] -0.068527682 -0.403540939 0.001064431 -0.284474810 -0.076416366
## [16,] 0.175118086 -0.202839847 0.090426965 0.164099807 0.218551963
## [17,] 0.048074253 0.002646162 -0.171627391 0.061709255 -0.053134944
## [18,] 0.179901387 0.070250546 0.210240196 -0.142818251 -0.007958519
## [19,] -0.211750352 0.004517888 0.026728144 -0.008750746 -0.130100832
## [20,] 0.072505932 0.114792596 0.027725486 0.015443347 0.339020052
## [21,] -0.214584118 0.078447123 0.024105956 -0.058741831 -0.115040638
## [22,] 0.284387446 0.239157484 -0.138032789 0.042461875 -0.150296823
## [23,] 0.250907139 -0.048237650 -0.243436779 -0.135330888 -0.022102749
## [24,] 0.112575405 -0.117564086 -0.111785562 0.214829009 0.022394913
## [25,] -0.088851216 -0.250742128 0.038350178 0.046629278 0.086459519
## [26,] -0.033941814 0.052714690 -0.178474225 0.048700989 0.217630528
## [27,] -0.052490697 -0.017000043 0.015882237 -0.052771095 -0.117751197
## [28,] -0.196086695 0.442401587 0.080302404 0.286127121 0.061374019
## [29,] 0.008840157 -0.110809664 -0.004827780 0.116202704 -0.104348277
## [30,] -0.416881249 -0.195202387 -0.217671656 0.078562211 0.244982906
## [31,] 0.344985685 -0.105315196 0.163709112 0.141629897 -0.133335951
## [32,] -0.008191988 0.070860308 -0.124491206 0.032511679 0.264569032
## [33,] 0.032495850 0.017171258 -0.543513424 -0.156391304 -0.044047430
## [34,] -0.094458427 0.168018225 -0.073825809 -0.423221171 -0.086800262
## [35,] -0.057367865 0.079526532 0.298100011 0.250333752 -0.102675157
## [36,] -0.037948045 -0.007202750 0.048093318 0.143377617 0.062388623
## [37,] 0.051021633 0.253080401 0.004528291 0.049738950 -0.019965767
## [38,] -0.040092223 -0.038254295 -0.160478311 0.256212505 -0.411815143
## [,26] [,27] [,28] [,29] [,30]
## [1,] 0.0000000000 0.000000000 0.000000000 0.000000000 0.000000000
## [2,] 0.0349172102 -0.037859186 -0.107726108 -0.078808506 0.056814085
## [3,] 0.0854960167 -0.238433936 -0.194950093 0.077767729 -0.164320578
## [4,] -0.0231846224 -0.047410437 0.144277905 0.183338057 -0.068691233
## [5,] -0.1002742448 -0.095396900 -0.168199308 -0.118199996 0.130088165
## [6,] -0.0511144264 0.002805101 -0.019861187 0.078790649 0.159572933
## [7,] -0.2001866674 0.027575502 0.122005292 0.023838259 -0.001560205
## [8,] 0.6619280339 -0.011960176 0.339452445 0.113466463 0.081698650
## [9,] -0.2166528623 0.058790551 -0.051211772 -0.053244662 -0.050291326
## [10,] 0.0082354837 0.104317854 -0.136937075 -0.054143392 0.074186684
## [11,] 0.0541898304 -0.210998082 -0.332161622 0.097364767 -0.138832144
## [12,] -0.1210210020 0.258336686 0.071799494 -0.034301411 -0.081362143
## [13,] 0.0907078059 -0.129978251 0.141174604 -0.060593712 0.152910695
## [14,] -0.1213547394 0.007846764 0.085612599 -0.029691078 0.351658973
## [15,] 0.0416118133 0.072452838 -0.127486526 0.048701106 -0.179290031
## [16,] 0.0364107322 0.167319854 -0.061187431 -0.288922520 0.097639870
## [17,] -0.0274520982 -0.169613982 0.367186898 -0.735869265 -0.234483569
## [18,] 0.1060510059 0.402180231 0.023119845 -0.055607358 0.027632749
## [19,] 0.0175900606 -0.469043610 -0.111899421 -0.049572715 0.024389216
## [20,] 0.0011493661 -0.066560078 -0.151973070 -0.002202146 0.113924352
## [21,] -0.0005725574 0.187793817 -0.011760114 0.043825816 -0.254970371
## [22,] 0.0015264528 0.063169658 -0.133539377 0.090835397 0.099757797
## [23,] -0.0039871879 -0.172385472 -0.036066654 0.169509549 0.067660570
## [24,] 0.0886247085 -0.149395363 -0.009812004 -0.009789440 -0.017775346
## [25,] -0.0415955650 0.058218250 -0.095558456 0.061930545 -0.028854905
## [26,] -0.0357727985 0.215551952 -0.099402615 -0.206271611 0.227895127
## [27,] 0.0497133070 -0.007888864 0.253850316 0.142463415 0.186076938
## [28,] -0.2356303624 0.099890722 -0.144802464 0.049843849 -0.294558752
## [29,] -0.0414217689 0.050646569 0.035572946 0.039874852 0.027970436
## [30,] -0.0597496234 0.093735999 0.143348411 0.166651448 0.182748751
## [31,] 0.1729167055 -0.103916156 0.137494970 0.135199252 -0.188455502
## [32,] -0.4616869282 -0.114079661 0.401216092 0.206247305 0.007242521
## [33,] 0.0362993801 -0.100790605 -0.163888856 -0.062658334 0.048305253
## [34,] 0.0043855514 0.058474885 -0.189037335 -0.131990102 0.329515212
## [35,] -0.0834174258 -0.172239468 -0.020611943 -0.035608141 0.434292332
## [36,] 0.2279872292 0.221944789 -0.151076674 -0.085298727 -0.020437320
## [37,] 0.1302437157 -0.077508351 -0.054202992 -0.054037371 0.007164539
## [38,] 0.0517381116 0.232050945 0.037629723 0.188331441 0.016258590
## [,31] [,32] [,33] [,34] [,35]
## [1,] 0.0000000000 0.000000000 0.00000000 0.000000000 0.000000000
## [2,] 0.0582200206 -0.045416377 -0.02801907 0.023540189 -0.062293346
## [3,] 0.0429030189 0.141634636 0.47278335 -0.499910619 0.056308795
## [4,] -0.0416952000 -0.150234412 -0.09726882 -0.030791943 0.243987687
## [5,] -0.2456278391 0.146400032 -0.13133202 0.057551557 -0.409490333
## [6,] 0.0740963476 -0.013520464 0.15804995 -0.210012034 0.143044425
## [7,] -0.0565229016 0.004248466 -0.21327339 0.055811538 0.043210556
## [8,] 0.0860295716 0.125127047 -0.07315543 -0.009544059 -0.091673964
## [9,] -0.0811227411 -0.271337221 0.03290907 -0.235535308 -0.075090033
## [10,] 0.1864952382 -0.275924949 -0.07008150 0.157660013 0.071984959
## [11,] -0.0291922620 -0.031123751 0.16397890 0.200133931 0.080195508
## [12,] 0.0427219575 -0.238950146 0.03309844 -0.070694697 0.160014730
## [13,] -0.0358098796 -0.001924791 -0.21012615 -0.170576481 0.123101465
## [14,] -0.0503236066 0.272312231 0.05060112 0.030086727 -0.011952483
## [15,] 0.2206231149 0.308964308 -0.01387192 0.150723584 0.139870542
## [16,] 0.0478083447 0.108123226 -0.26387455 -0.360888722 -0.016053110
## [17,] 0.0235626010 -0.103754637 0.04626354 -0.003206211 0.013038957
## [18,] 0.0557603797 -0.012888202 0.38267574 -0.089219332 -0.071674435
## [19,] -0.2240525427 0.068929583 -0.12388316 -0.138137318 0.313715239
## [20,] 0.1649820345 -0.091747565 -0.31456736 -0.201970375 0.208057415
## [21,] -0.2557703502 0.046937693 -0.03542249 -0.033478312 -0.133277699
## [22,] -0.4515963038 -0.047802679 -0.18424967 -0.167012520 -0.004247728
## [23,] 0.1896836951 -0.142653965 -0.13834210 0.160778840 -0.082430932
## [24,] -0.0887458378 0.007484734 0.06525202 0.027935803 -0.484044911
## [25,] 0.0043481012 -0.251448258 -0.12275212 -0.078880394 -0.174662501
## [26,] -0.2357221419 0.244259633 0.10899383 0.301474032 0.297181836
## [27,] 0.0170092693 -0.277443571 0.09828954 -0.099408852 -0.084830849
## [28,] 0.2593781866 -0.015156403 -0.14707962 -0.023841631 -0.099075456
## [29,] 0.3987250497 0.289319972 -0.20373783 -0.237455572 -0.072870225
## [30,] -0.2013903704 -0.178855269 0.08301232 -0.128761678 -0.025465704
## [31,] -0.0679724354 -0.135314116 -0.14596379 0.154292784 0.008351931
## [32,] -0.0099573633 0.255771490 0.06830347 -0.091681745 -0.060950069
## [33,] 0.0172181066 0.020096180 -0.05330917 -0.080070595 -0.252651235
## [34,] 0.1746749648 -0.012051207 -0.03146227 -0.010708888 -0.151648455
## [35,] 0.2057009785 -0.200113415 0.19726810 0.114128673 0.042141841
## [36,] -0.1382293616 -0.072984771 -0.04967637 -0.154340499 0.120324691
## [37,] -0.0007900339 -0.084645420 0.03389660 -0.081396525 -0.020741717
## [38,] -0.0621597367 0.165184867 -0.14897963 -0.058284565 0.045250407
## [,36] [,37] [,38]
## [1,] 0.845466028 0.0000000000 0.000000000
## [2,] 0.281100153 0.0449483202 -0.004111042
## [3,] -0.038372553 0.0866474335 0.162115514
## [4,] -0.048103256 0.0593993603 -0.266440615
## [5,] 0.029641773 0.1552753663 -0.110231300
## [6,] -0.046395686 0.1458121251 0.087581520
## [7,] -0.006670803 -0.1074527466 0.855727281
## [8,] 0.013870770 -0.1012154546 -0.016587580
## [9,] 0.026713810 0.0068859710 -0.131721568
## [10,] 0.101540549 0.1303632876 -0.003379271
## [11,] 0.127667329 0.0510703550 0.081719913
## [12,] 0.075544761 -0.4086161596 -0.073477252
## [13,] 0.075778415 0.2679246125 0.080339275
## [14,] 0.035356403 0.0516301046 -0.088697403
## [15,] 0.014173555 -0.2518129148 -0.048508794
## [16,] -0.037516549 0.0328738820 -0.048801526
## [17,] -0.014158735 0.0260633227 -0.020453709
## [18,] 0.043345412 0.1477679878 0.054778052
## [19,] 0.004993883 -0.1239424568 0.006972334
## [20,] -0.009407532 -0.1661995249 -0.004407419
## [21,] 0.011024788 -0.2239496976 0.011750132
## [22,] -0.006141535 -0.2018952131 -0.155499234
## [23,] 0.026217267 0.0532616429 -0.107527606
## [24,] -0.040533854 -0.3610359151 0.062080376
## [25,] -0.073977498 0.1354638226 0.062793774
## [26,] -0.059990908 0.1119342832 -0.010531361
## [27,] 0.049808154 -0.0734007707 0.075486793
## [28,] -0.053132945 0.1538935823 -0.038591711
## [29,] -0.022013328 -0.0458051437 -0.085827113
## [30,] -0.100247916 0.1587193259 -0.007913276
## [31,] -0.003161732 0.3319857376 0.048572819
## [32,] 0.243226355 0.0026952616 -0.085848066
## [33,] 0.003322619 0.0878101758 0.059875899
## [34,] 0.031215513 0.0332979504 0.115002253
## [35,] -0.068764565 -0.3010710207 -0.004557123
## [36,] 0.214063151 -0.0489190363 0.070214712
## [37,] 0.130949995 0.0005229333 0.008233492
## [38,] 0.006198740 0.0728548937 0.091649723eigenvalues <- eigen_result$values
eigenvalues## [1] 1.818117e+08 2.429591e+05 4.415957e+02 1.006997e+02 1.195686e+01
## [6] 5.780651e-08 1.084601e-08 1.004426e-08 8.593020e-09 8.128468e-09
## [11] 6.786715e-09 6.098843e-09 5.179293e-09 4.171603e-09 4.136952e-09
## [16] 4.020731e-09 3.768806e-09 2.088752e-09 4.694825e-10 -9.110538e-11
## [21] -1.262103e-10 -3.050199e-10 -5.785922e-10 -1.031792e-09 -2.178284e-09
## [26] -2.436713e-09 -2.771327e-09 -3.242210e-09 -4.113903e-09 -4.329498e-09
## [31] -4.800941e-09 -5.725940e-09 -6.127939e-09 -8.800539e-09 -9.409072e-09
## [36] -9.513827e-09 -1.140402e-08 -2.056749e-08eigenvectors <- eigen_result$vectors
eigenvectors## [,1] [,2] [,3] [,4] [,5]
## [1,] -0.198896119 0.025144958 -0.0412015028 0.14606725 -0.280942569
## [2,] -0.127410832 -0.006698315 -0.1915973235 0.07152869 0.026198470
## [3,] -0.135422288 -0.006503250 -0.1281896245 0.22222835 -0.001825409
## [4,] -0.056498505 -0.011845202 -0.2630243154 0.11747651 0.045120840
## [5,] -0.060209588 -0.014142663 -0.1570489872 0.11836849 0.193656313
## [6,] -0.032768359 -0.020679678 -0.0282956372 0.08722833 -0.026972457
## [7,] -0.104149149 0.145243901 -0.1673203165 0.03846179 0.037442826
## [8,] -0.175439789 0.044548126 -0.2169219241 -0.19134179 0.087134358
## [9,] -0.160022477 0.124863027 -0.1787912061 -0.28096041 0.090193966
## [10,] 0.048115475 0.014593300 -0.1570224503 0.35097381 0.548092963
## [11,] -0.065203549 -0.043854756 0.1689806537 -0.38592010 0.209464098
## [12,] -0.116660755 -0.013859572 -0.0188413641 -0.21260968 0.089507474
## [13,] -0.044495450 -0.027837335 0.3708975686 -0.21982557 0.083775693
## [14,] -0.094145100 0.227840452 -0.1702635946 -0.21611775 -0.038717882
## [15,] 0.223358188 0.148742402 -0.0684747464 0.03888502 -0.211833273
## [16,] 0.094606316 -0.010617697 0.0562757221 0.04297393 0.031052467
## [17,] -0.012972212 -0.033694201 -0.0814241844 0.02936304 -0.085728558
## [18,] 0.044692713 -0.093996223 0.0860276487 -0.01112583 0.145925788
## [19,] 0.006569300 -0.087511672 0.0487364408 -0.01393457 0.069483080
## [20,] 0.019544928 -0.095331667 -0.0118142256 0.06283572 0.021458736
## [21,] -0.008184143 -0.076184579 0.1896071158 0.17203685 0.134201120
## [22,] -0.099898873 0.078340162 -0.0189264254 0.04034970 -0.041253567
## [23,] -0.088122383 0.055444192 0.1368799923 0.11156828 -0.055799326
## [24,] -0.004404167 -0.080626120 0.1104597645 0.13850598 -0.027684368
## [25,] 0.127016231 0.076810029 0.1561795806 0.10198355 -0.254409947
## [26,] -0.214752564 0.049617884 0.2673108133 0.13837244 -0.108082258
## [27,] -0.206083199 0.037623999 0.4120723905 -0.01292984 0.068283556
## [28,] -0.205048920 0.030754724 0.0239573543 -0.27534581 -0.221770289
## [29,] -0.190490046 0.056786106 0.2269942919 0.23066805 0.024820436
## [30,] 0.058724909 0.112534497 -0.1529781477 0.10858273 -0.341511484
## [31,] 0.166559084 -0.204977440 0.0004663168 0.11002909 -0.162370547
## [32,] 0.377757505 -0.194487791 0.0808545028 -0.05657776 0.211898526
## [33,] 0.050081534 -0.128668158 -0.0956006304 -0.24367473 -0.093632242
## [34,] 0.132305455 -0.182432108 -0.0474933904 -0.14220580 0.005518259
## [35,] 0.151287998 -0.192333686 -0.0795115623 0.02413955 -0.198789951
## [36,] 0.335550535 -0.288540583 0.0673907335 -0.06884367 -0.135275452
## [37,] 0.467416585 0.732375736 0.0994428830 -0.04952227 0.088502222
## [38,] 0.097691710 -0.146440799 -0.2277922144 -0.12169157 0.074868389
## [,6] [,7] [,8] [,9] [,10]
## [1,] -3.781975e-01 0.000000000 0.000000000 0.000000000 0.0000000000
## [2,] 7.240015e-01 0.469824092 0.017181430 0.041685079 0.0416554016
## [3,] 8.615467e-02 -0.245637160 -0.057916092 0.058659334 -0.0036217600
## [4,] -3.810200e-02 -0.024119319 -0.200924013 -0.082985246 0.0846766749
## [5,] 1.595743e-02 -0.318697426 0.309044108 0.072501996 -0.0006159419
## [6,] -3.105185e-02 0.151321773 0.082613767 -0.123430620 0.1586940041
## [7,] 5.478526e-02 -0.082449003 -0.089811399 -0.090590424 -0.0313178711
## [8,] 1.123939e-02 -0.058503449 -0.193633018 -0.131575938 0.0757298731
## [9,] -3.857321e-03 -0.039744492 -0.526968123 0.055369427 -0.0658130387
## [10,] -5.182809e-02 -0.144199918 -0.096943990 -0.107141465 0.0012237770
## [11,] -6.281194e-03 0.025756937 -0.003746731 -0.054269526 -0.0772525137
## [12,] 8.276079e-02 -0.221082423 0.372865406 -0.039881632 0.4056632653
## [13,] 3.413735e-03 0.066321566 -0.021647218 0.100653292 0.2115565131
## [14,] 1.075408e-01 -0.204250373 -0.046402570 0.150453850 0.1093641310
## [15,] 1.039467e-01 -0.112251804 -0.071259306 0.018871771 -0.2071256980
## [16,] -1.469293e-01 0.194932624 -0.009606392 -0.287287394 -0.3488061756
## [17,] 5.682410e-02 -0.097732126 -0.035754600 0.080406485 -0.0659936969
## [18,] -5.492374e-02 0.051576396 -0.096529590 0.144743613 0.0324448969
## [19,] -6.041574e-02 0.014966323 -0.029500607 -0.169942320 0.0951705669
## [20,] -2.803281e-02 -0.025270709 -0.035569187 0.722637954 -0.0166191090
## [21,] -3.001801e-02 0.002635346 -0.251000361 0.117639512 0.0256935957
## [22,] 9.230720e-02 -0.080100797 -0.059042926 -0.196481965 -0.0860643031
## [23,] 1.782676e-01 -0.158200483 -0.149263222 -0.006884164 -0.2083686966
## [24,] -3.163313e-02 0.108855428 -0.194876682 0.112686207 0.2078895661
## [25,] -1.570847e-02 0.179730105 -0.102392126 -0.086971474 0.3459862648
## [26,] 8.673722e-02 -0.085643478 -0.314837981 0.072387397 0.1020061560
## [27,] 1.216188e-01 -0.166747181 0.129077589 0.058013306 -0.4516609752
## [28,] 4.688897e-02 -0.150035183 -0.098965757 -0.093324637 -0.0354638029
## [29,] 1.006657e-01 -0.152893122 -0.010106544 -0.122975426 0.2177674743
## [30,] 6.478556e-02 -0.047402185 0.122834621 0.050647202 -0.0690718092
## [31,] 5.477031e-02 -0.288521475 -0.078775115 0.072832336 0.1388522290
## [32,] 1.440727e-01 -0.011457196 -0.163319955 -0.056952026 0.0087784842
## [33,] -4.160774e-02 -0.020832732 0.013307166 0.093818214 -0.0156012375
## [34,] -6.577453e-02 -0.203059108 -0.165989194 -0.158041542 0.1413504460
## [35,] -8.041928e-02 -0.001137881 -0.144813526 -0.077903424 -0.0461461047
## [36,] 3.494479e-01 -0.308757525 -0.026201097 -0.117363279 -0.0490469452
## [37,] -8.681753e-05 -0.059464471 -0.028974322 0.072225099 0.0875122210
## [38,] -1.250548e-01 0.138445681 0.018029764 0.231388246 -0.1193979686
## [,11] [,12] [,13] [,14] [,15]
## [1,] 0.00000000 0.000000000 0.0000000000 0.000000000 0.000000000
## [2,] 0.17468779 0.044473153 0.0739309479 -0.064978873 0.065881666
## [3,] -0.01109465 0.187634437 0.0644891165 0.014167233 0.256021963
## [4,] -0.08057662 0.046790612 -0.0548656561 -0.074442487 0.042604922
## [5,] -0.06022001 0.027393773 0.3325540413 0.134296235 -0.124900082
## [6,] -0.12085372 -0.264519325 0.1914304406 0.263510428 -0.083224422
## [7,] -0.04498680 0.004998759 0.0005192473 -0.012618458 -0.074256264
## [8,] 0.04100464 0.065238950 0.0980884210 0.139396609 -0.065262320
## [9,] 0.01365807 -0.171449041 0.1485265557 0.061319357 -0.008037856
## [10,] -0.09122278 -0.056787498 -0.0638296955 -0.006870454 0.013470024
## [11,] 0.24378542 -0.148647567 -0.0263623505 -0.095189560 -0.126457122
## [12,] 0.06784666 0.266882900 0.2173922269 -0.076333287 0.146159196
## [13,] -0.35624115 -0.179771098 0.2017270860 -0.062035648 0.175802141
## [14,] -0.05253823 0.168646509 -0.4895611720 0.091252712 0.020219893
## [15,] -0.03934251 -0.090362119 0.1652560716 -0.030852766 -0.057375306
## [16,] 0.09095411 0.273411571 0.0223987437 -0.127457805 0.265733087
## [17,] 0.05982411 -0.055122425 0.0426441270 0.007666429 -0.197657026
## [18,] -0.04537978 0.168115796 -0.0042451752 -0.261663304 -0.512959881
## [19,] 0.07621720 0.297991903 -0.0042045698 -0.160997848 -0.400122380
## [20,] 0.06571082 -0.030675343 -0.1135840191 -0.017009921 -0.040096938
## [21,] 0.19936204 0.020650047 -0.0617783746 0.336138415 0.048839262
## [22,] 0.07398794 -0.211060693 0.0194271289 -0.104668337 -0.131436337
## [23,] -0.30308317 0.386831150 0.1059176104 -0.031954922 -0.153430150
## [24,] -0.28530662 -0.049485248 0.0320023531 -0.403260419 0.124587376
## [25,] 0.08976143 0.334981534 -0.0944837539 0.304138391 -0.179130539
## [26,] 0.08317346 0.129090358 0.2665821256 0.005394857 0.131187985
## [27,] 0.19406887 0.062234043 -0.0113997760 0.067564726 0.032435249
## [28,] -0.13037857 0.067357381 0.1162392805 -0.111446525 -0.022474760
## [29,] 0.25427577 -0.297467244 0.0185879252 -0.038270300 -0.286245013
## [30,] 0.09855710 -0.153050803 0.0119999837 -0.330683480 -0.133157653
## [31,] 0.36922205 -0.010994485 0.0932437664 -0.133326273 0.181431890
## [32,] 0.04893459 0.068835943 0.0517981963 0.006575914 0.015151319
## [33,] 0.10952845 0.034566737 0.0291376845 0.268636377 -0.051321672
## [34,] 0.26768805 -0.002326756 -0.1254629337 -0.278754835 0.163691878
## [35,] 0.06067692 -0.043929714 0.3026316079 0.197970972 -0.032380836
## [36,] -0.33628313 -0.112258329 -0.1440778197 0.144862644 -0.082547819
## [37,] 0.09110603 0.016086792 0.1824329553 -0.029751852 0.024618472
## [38,] 0.05664818 0.166893012 0.3864347280 -0.059163541 -0.094783531
## [,16] [,17] [,18] [,19] [,20]
## [1,] 0.000000000 0.000000000 0.00000000 0.000000000 0.0000000000
## [2,] -0.027969895 -0.064327063 -0.07169211 -0.024224642 -0.0064498060
## [3,] 0.172536793 0.013025754 0.13692073 -0.067238355 0.0704495477
## [4,] 0.135759658 -0.327392582 0.05599747 -0.187128162 -0.5890598878
## [5,] 0.015653263 -0.096058796 0.00816572 0.066849608 -0.0648624290
## [6,] -0.104808767 -0.286025244 -0.30287506 0.410822074 0.0161262052
## [7,] 0.030043969 0.006173971 -0.01240129 -0.129265424 -0.0580193492
## [8,] 0.009082399 -0.025534746 0.01649876 0.054547482 0.1650197650
## [9,] -0.249662577 0.266129713 0.02485928 0.124125359 0.0490901004
## [10,] -0.092958832 -0.186313397 0.02391781 -0.075279575 0.1759129758
## [11,] 0.359229092 -0.109306317 -0.01510348 -0.002661662 -0.1604739450
## [12,] 0.013145939 0.012069505 -0.09181882 -0.060462599 0.0392803612
## [13,] 0.213486828 -0.142462018 -0.06440821 -0.216457435 0.1433987830
## [14,] 0.042064497 -0.193541478 -0.16016471 0.019339347 -0.0005174026
## [15,] -0.054289968 -0.395323115 0.02469858 0.003015885 0.1985683664
## [16,] 0.011701218 -0.061505501 -0.18311723 -0.113443297 -0.0253047304
## [17,] 0.252223597 -0.123380742 0.06315114 0.116968937 -0.0269077905
## [18,] -0.034897483 -0.107392902 -0.08451571 -0.248082938 0.1053574390
## [19,] -0.341372842 -0.039797954 -0.16310952 0.121409782 0.0204294327
## [20,] 0.016018286 -0.049136260 0.04996587 0.046339102 0.1102325489
## [21,] 0.238944315 -0.099980543 -0.54133569 0.041921360 -0.0305453026
## [22,] 0.236295086 -0.146561423 0.24208710 -0.158113227 0.3487122479
## [23,] 0.280955883 0.284109828 -0.23920722 0.072669514 0.0445876083
## [24,] -0.147810964 -0.183224467 0.01565303 0.076091123 -0.1751531827
## [25,] 0.139869280 -0.177525096 0.37870526 0.097125806 0.0825664969
## [26,] -0.134259508 0.020081580 0.13065142 -0.020098574 -0.1074378352
## [27,] -0.219539677 -0.298791628 0.16357661 0.139068223 -0.1568296532
## [28,] -0.089966539 -0.293531165 -0.10199977 0.040848544 0.0563770131
## [29,] 0.018850966 0.218316161 0.03571203 -0.109982805 -0.2452985026
## [30,] 0.113785159 0.035146850 -0.27602299 -0.030540709 -0.0043345573
## [31,] -0.196990996 -0.025891079 -0.15085515 -0.063231750 0.1543830737
## [32,] 0.010165869 -0.027670753 0.11939333 -0.023877667 0.1339969878
## [33,] -0.248192523 -0.091289199 -0.06225023 -0.504762995 -0.1482792616
## [34,] 0.178407437 -0.051504781 0.01233365 0.342755859 -0.0110749202
## [35,] 0.143307920 -0.013400445 -0.08577186 -0.249904972 -0.0034424520
## [36,] -0.070318086 0.119464626 0.04355826 0.081124340 -0.2489190092
## [37,] -0.020866222 0.031725070 -0.05934986 -0.003393591 -0.1685315675
## [38,] 0.165538812 0.026020621 0.16936019 0.249810320 -0.2268578145
## [,21] [,22] [,23] [,24] [,25]
## [1,] 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000
## [2,] -0.044513875 0.056176594 0.088613299 -0.038087755 -0.073858300
## [3,] -0.067767164 0.004293450 -0.019890811 0.037809425 -0.049019798
## [4,] 0.088284065 0.049298247 0.113843186 -0.253285050 0.070900985
## [5,] -0.040917884 -0.072739010 0.323544329 -0.114065265 0.201103823
## [6,] 0.393973687 0.025685027 -0.195264089 -0.004992366 0.109943813
## [7,] 0.094480586 -0.012911803 0.083761418 -0.060860857 0.087118839
## [8,] -0.117158913 0.063821262 -0.016900578 0.049478794 0.316551737
## [9,] 0.020134289 -0.321877825 0.118219199 -0.087602858 -0.038213928
## [10,] -0.223315274 -0.090890227 -0.254804284 0.261948789 -0.074090028
## [11,] 0.100172720 -0.256731829 -0.026862783 0.223671282 0.273051524
## [12,] 0.073899090 -0.150204457 -0.120791214 -0.016790003 0.039625571
## [13,] -0.197376891 -0.146995348 0.090668944 -0.129267288 -0.202951516
## [14,] 0.128668177 -0.179059769 0.063264688 0.288901014 -0.228709578
## [15,] -0.068527682 -0.403540939 0.001064431 -0.284474810 -0.076416366
## [16,] 0.175118086 -0.202839847 0.090426965 0.164099807 0.218551963
## [17,] 0.048074253 0.002646162 -0.171627391 0.061709255 -0.053134944
## [18,] 0.179901387 0.070250546 0.210240196 -0.142818251 -0.007958519
## [19,] -0.211750352 0.004517888 0.026728144 -0.008750746 -0.130100832
## [20,] 0.072505932 0.114792596 0.027725486 0.015443347 0.339020052
## [21,] -0.214584118 0.078447123 0.024105956 -0.058741831 -0.115040638
## [22,] 0.284387446 0.239157484 -0.138032789 0.042461875 -0.150296823
## [23,] 0.250907139 -0.048237650 -0.243436779 -0.135330888 -0.022102749
## [24,] 0.112575405 -0.117564086 -0.111785562 0.214829009 0.022394913
## [25,] -0.088851216 -0.250742128 0.038350178 0.046629278 0.086459519
## [26,] -0.033941814 0.052714690 -0.178474225 0.048700989 0.217630528
## [27,] -0.052490697 -0.017000043 0.015882237 -0.052771095 -0.117751197
## [28,] -0.196086695 0.442401587 0.080302404 0.286127121 0.061374019
## [29,] 0.008840157 -0.110809664 -0.004827780 0.116202704 -0.104348277
## [30,] -0.416881249 -0.195202387 -0.217671656 0.078562211 0.244982906
## [31,] 0.344985685 -0.105315196 0.163709112 0.141629897 -0.133335951
## [32,] -0.008191988 0.070860308 -0.124491206 0.032511679 0.264569032
## [33,] 0.032495850 0.017171258 -0.543513424 -0.156391304 -0.044047430
## [34,] -0.094458427 0.168018225 -0.073825809 -0.423221171 -0.086800262
## [35,] -0.057367865 0.079526532 0.298100011 0.250333752 -0.102675157
## [36,] -0.037948045 -0.007202750 0.048093318 0.143377617 0.062388623
## [37,] 0.051021633 0.253080401 0.004528291 0.049738950 -0.019965767
## [38,] -0.040092223 -0.038254295 -0.160478311 0.256212505 -0.411815143
## [,26] [,27] [,28] [,29] [,30]
## [1,] 0.0000000000 0.000000000 0.000000000 0.000000000 0.000000000
## [2,] 0.0349172102 -0.037859186 -0.107726108 -0.078808506 0.056814085
## [3,] 0.0854960167 -0.238433936 -0.194950093 0.077767729 -0.164320578
## [4,] -0.0231846224 -0.047410437 0.144277905 0.183338057 -0.068691233
## [5,] -0.1002742448 -0.095396900 -0.168199308 -0.118199996 0.130088165
## [6,] -0.0511144264 0.002805101 -0.019861187 0.078790649 0.159572933
## [7,] -0.2001866674 0.027575502 0.122005292 0.023838259 -0.001560205
## [8,] 0.6619280339 -0.011960176 0.339452445 0.113466463 0.081698650
## [9,] -0.2166528623 0.058790551 -0.051211772 -0.053244662 -0.050291326
## [10,] 0.0082354837 0.104317854 -0.136937075 -0.054143392 0.074186684
## [11,] 0.0541898304 -0.210998082 -0.332161622 0.097364767 -0.138832144
## [12,] -0.1210210020 0.258336686 0.071799494 -0.034301411 -0.081362143
## [13,] 0.0907078059 -0.129978251 0.141174604 -0.060593712 0.152910695
## [14,] -0.1213547394 0.007846764 0.085612599 -0.029691078 0.351658973
## [15,] 0.0416118133 0.072452838 -0.127486526 0.048701106 -0.179290031
## [16,] 0.0364107322 0.167319854 -0.061187431 -0.288922520 0.097639870
## [17,] -0.0274520982 -0.169613982 0.367186898 -0.735869265 -0.234483569
## [18,] 0.1060510059 0.402180231 0.023119845 -0.055607358 0.027632749
## [19,] 0.0175900606 -0.469043610 -0.111899421 -0.049572715 0.024389216
## [20,] 0.0011493661 -0.066560078 -0.151973070 -0.002202146 0.113924352
## [21,] -0.0005725574 0.187793817 -0.011760114 0.043825816 -0.254970371
## [22,] 0.0015264528 0.063169658 -0.133539377 0.090835397 0.099757797
## [23,] -0.0039871879 -0.172385472 -0.036066654 0.169509549 0.067660570
## [24,] 0.0886247085 -0.149395363 -0.009812004 -0.009789440 -0.017775346
## [25,] -0.0415955650 0.058218250 -0.095558456 0.061930545 -0.028854905
## [26,] -0.0357727985 0.215551952 -0.099402615 -0.206271611 0.227895127
## [27,] 0.0497133070 -0.007888864 0.253850316 0.142463415 0.186076938
## [28,] -0.2356303624 0.099890722 -0.144802464 0.049843849 -0.294558752
## [29,] -0.0414217689 0.050646569 0.035572946 0.039874852 0.027970436
## [30,] -0.0597496234 0.093735999 0.143348411 0.166651448 0.182748751
## [31,] 0.1729167055 -0.103916156 0.137494970 0.135199252 -0.188455502
## [32,] -0.4616869282 -0.114079661 0.401216092 0.206247305 0.007242521
## [33,] 0.0362993801 -0.100790605 -0.163888856 -0.062658334 0.048305253
## [34,] 0.0043855514 0.058474885 -0.189037335 -0.131990102 0.329515212
## [35,] -0.0834174258 -0.172239468 -0.020611943 -0.035608141 0.434292332
## [36,] 0.2279872292 0.221944789 -0.151076674 -0.085298727 -0.020437320
## [37,] 0.1302437157 -0.077508351 -0.054202992 -0.054037371 0.007164539
## [38,] 0.0517381116 0.232050945 0.037629723 0.188331441 0.016258590
## [,31] [,32] [,33] [,34] [,35]
## [1,] 0.0000000000 0.000000000 0.00000000 0.000000000 0.000000000
## [2,] 0.0582200206 -0.045416377 -0.02801907 0.023540189 -0.062293346
## [3,] 0.0429030189 0.141634636 0.47278335 -0.499910619 0.056308795
## [4,] -0.0416952000 -0.150234412 -0.09726882 -0.030791943 0.243987687
## [5,] -0.2456278391 0.146400032 -0.13133202 0.057551557 -0.409490333
## [6,] 0.0740963476 -0.013520464 0.15804995 -0.210012034 0.143044425
## [7,] -0.0565229016 0.004248466 -0.21327339 0.055811538 0.043210556
## [8,] 0.0860295716 0.125127047 -0.07315543 -0.009544059 -0.091673964
## [9,] -0.0811227411 -0.271337221 0.03290907 -0.235535308 -0.075090033
## [10,] 0.1864952382 -0.275924949 -0.07008150 0.157660013 0.071984959
## [11,] -0.0291922620 -0.031123751 0.16397890 0.200133931 0.080195508
## [12,] 0.0427219575 -0.238950146 0.03309844 -0.070694697 0.160014730
## [13,] -0.0358098796 -0.001924791 -0.21012615 -0.170576481 0.123101465
## [14,] -0.0503236066 0.272312231 0.05060112 0.030086727 -0.011952483
## [15,] 0.2206231149 0.308964308 -0.01387192 0.150723584 0.139870542
## [16,] 0.0478083447 0.108123226 -0.26387455 -0.360888722 -0.016053110
## [17,] 0.0235626010 -0.103754637 0.04626354 -0.003206211 0.013038957
## [18,] 0.0557603797 -0.012888202 0.38267574 -0.089219332 -0.071674435
## [19,] -0.2240525427 0.068929583 -0.12388316 -0.138137318 0.313715239
## [20,] 0.1649820345 -0.091747565 -0.31456736 -0.201970375 0.208057415
## [21,] -0.2557703502 0.046937693 -0.03542249 -0.033478312 -0.133277699
## [22,] -0.4515963038 -0.047802679 -0.18424967 -0.167012520 -0.004247728
## [23,] 0.1896836951 -0.142653965 -0.13834210 0.160778840 -0.082430932
## [24,] -0.0887458378 0.007484734 0.06525202 0.027935803 -0.484044911
## [25,] 0.0043481012 -0.251448258 -0.12275212 -0.078880394 -0.174662501
## [26,] -0.2357221419 0.244259633 0.10899383 0.301474032 0.297181836
## [27,] 0.0170092693 -0.277443571 0.09828954 -0.099408852 -0.084830849
## [28,] 0.2593781866 -0.015156403 -0.14707962 -0.023841631 -0.099075456
## [29,] 0.3987250497 0.289319972 -0.20373783 -0.237455572 -0.072870225
## [30,] -0.2013903704 -0.178855269 0.08301232 -0.128761678 -0.025465704
## [31,] -0.0679724354 -0.135314116 -0.14596379 0.154292784 0.008351931
## [32,] -0.0099573633 0.255771490 0.06830347 -0.091681745 -0.060950069
## [33,] 0.0172181066 0.020096180 -0.05330917 -0.080070595 -0.252651235
## [34,] 0.1746749648 -0.012051207 -0.03146227 -0.010708888 -0.151648455
## [35,] 0.2057009785 -0.200113415 0.19726810 0.114128673 0.042141841
## [36,] -0.1382293616 -0.072984771 -0.04967637 -0.154340499 0.120324691
## [37,] -0.0007900339 -0.084645420 0.03389660 -0.081396525 -0.020741717
## [38,] -0.0621597367 0.165184867 -0.14897963 -0.058284565 0.045250407
## [,36] [,37] [,38]
## [1,] 0.845466028 0.0000000000 0.000000000
## [2,] 0.281100153 0.0449483202 -0.004111042
## [3,] -0.038372553 0.0866474335 0.162115514
## [4,] -0.048103256 0.0593993603 -0.266440615
## [5,] 0.029641773 0.1552753663 -0.110231300
## [6,] -0.046395686 0.1458121251 0.087581520
## [7,] -0.006670803 -0.1074527466 0.855727281
## [8,] 0.013870770 -0.1012154546 -0.016587580
## [9,] 0.026713810 0.0068859710 -0.131721568
## [10,] 0.101540549 0.1303632876 -0.003379271
## [11,] 0.127667329 0.0510703550 0.081719913
## [12,] 0.075544761 -0.4086161596 -0.073477252
## [13,] 0.075778415 0.2679246125 0.080339275
## [14,] 0.035356403 0.0516301046 -0.088697403
## [15,] 0.014173555 -0.2518129148 -0.048508794
## [16,] -0.037516549 0.0328738820 -0.048801526
## [17,] -0.014158735 0.0260633227 -0.020453709
## [18,] 0.043345412 0.1477679878 0.054778052
## [19,] 0.004993883 -0.1239424568 0.006972334
## [20,] -0.009407532 -0.1661995249 -0.004407419
## [21,] 0.011024788 -0.2239496976 0.011750132
## [22,] -0.006141535 -0.2018952131 -0.155499234
## [23,] 0.026217267 0.0532616429 -0.107527606
## [24,] -0.040533854 -0.3610359151 0.062080376
## [25,] -0.073977498 0.1354638226 0.062793774
## [26,] -0.059990908 0.1119342832 -0.010531361
## [27,] 0.049808154 -0.0734007707 0.075486793
## [28,] -0.053132945 0.1538935823 -0.038591711
## [29,] -0.022013328 -0.0458051437 -0.085827113
## [30,] -0.100247916 0.1587193259 -0.007913276
## [31,] -0.003161732 0.3319857376 0.048572819
## [32,] 0.243226355 0.0026952616 -0.085848066
## [33,] 0.003322619 0.0878101758 0.059875899
## [34,] 0.031215513 0.0332979504 0.115002253
## [35,] -0.068764565 -0.3010710207 -0.004557123
## [36,] 0.214063151 -0.0489190363 0.070214712
## [37,] 0.130949995 0.0005229333 0.008233492
## [38,] 0.006198740 0.0728548937 0.091649723# Menghitung tingkat kumulatif variasi
cumulative_variance <- cumsum(eigenvalues) / sum(eigenvalues)
print(cumulative_variance)## [1] 0.9986624 0.9999970 0.9999994 0.9999999 1.0000000 1.0000000 1.0000000
## [8] 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000
## [15] 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000
## [22] 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000
## [29] 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000
## [36] 1.0000000 1.0000000 1.0000000# Menghitung titik koordinat objek
fit <- cmdscale(dist_matrix, k=2)
fit## [,1] [,2]
## 1 -2681.86701 12.394173
## 2 -1717.97675 -3.301659
## 3 -1826.00128 -3.205510
## 4 -761.81214 -5.838605
## 5 -811.85148 -6.971044
## 6 -441.84060 -10.193196
## 7 -1404.32185 71.592005
## 8 -2365.58755 21.958166
## 9 -2157.70425 61.546091
## 10 648.77739 7.193167
## 11 -879.18884 -21.616398
## 12 -1573.02532 -6.831506
## 13 -599.96586 -13.721269
## 14 -1269.42969 112.304576
## 15 3011.70761 73.316447
## 16 1275.64862 -5.233557
## 17 -174.91415 -16.608170
## 18 602.62570 -46.331570
## 19 88.57885 -43.135278
## 20 263.53907 -46.989823
## 21 -110.35300 -37.552053
## 22 -1347.01217 38.614559
## 23 -1188.22083 27.328933
## 24 -59.38473 -39.741329
## 25 1712.65605 37.860343
## 26 -2895.67147 24.457094
## 27 -2778.77586 18.545202
## 28 -2764.82990 15.159276
## 29 -2568.52157 27.990374
## 30 791.83243 55.469250
## 31 2245.84228 -101.035195
## 32 5093.59056 -95.864754
## 33 675.28726 -63.421674
## 34 1783.97465 -89.922401
## 35 2039.93066 -94.802977
## 36 4524.48201 -142.224208
## 37 6302.53183 360.994485
## 38 1317.25132 -72.181967# Menghitung disparities
disparities <- as.matrix(dist(fit))
disparities## 1 2 3 4 5 6 7
## 1 0.00000 964.0180 856.0079 1920.14144 1870.11579 2240.1403 1278.91595
## 2 964.01804 0.0000 108.0246 956.16798 906.13270 1276.1548 322.47241
## 3 856.00788 108.0246 0.0000 1064.19240 1014.15679 1384.1783 428.26184
## 4 1920.14144 956.1680 1064.1924 0.00000 50.05216 320.0012 647.15859
## 5 1870.11579 906.1327 1014.1568 50.05216 0.00000 370.0249 597.65650
## 6 2240.14029 1276.1548 1384.1783 320.00116 370.02491 0.0000 965.94978
## 7 1278.91595 322.4724 428.2618 647.15859 597.65650 965.9498 0.00000
## 8 316.42403 648.1032 540.1727 1604.01628 1554.00536 1924.0156 962.54623
## 9 526.46226 444.4834 337.9639 1397.51762 1347.59574 1717.3627 753.44937
## 10 3330.64847 2366.7774 2474.8005 1410.64973 1460.69755 1090.7566 2054.10899
## 11 1802.99898 838.9878 946.9914 118.43238 68.91158 437.4974 533.34088
## 12 1109.00835 144.9944 253.0020 811.21379 761.17385 1131.1897 186.04060
## 13 2082.06494 1118.0594 1226.0805 162.03813 211.99312 158.1646 808.86768
## 14 1415.96655 463.2054 568.4316 521.18461 472.86837 836.6059 140.90213
## 15 5693.90055 4730.3049 4838.3141 3774.34985 3824.40195 3454.5577 4416.02981
## 16 3957.55488 2993.6260 3101.6506 2037.46084 2087.50082 1717.4964 2681.07141
## 17 2507.12061 1543.1200 1651.1415 586.99678 637.01023 267.0035 1232.56747
## 18 3285.01766 2321.0014 2429.0099 1365.03856 1415.02471 1045.0913 2010.40902
## 19 2771.00231 1806.9947 1914.9965 851.20848 901.15628 531.4414 1497.30253
## 20 2946.00466 1981.9974 2089.9990 1026.17665 1076.13491 706.3388 1672.07108
## 21 2571.99901 1607.9886 1715.9920 652.23059 702.16473 332.6147 1298.56375
## 22 1335.11234 373.3252 480.8113 586.88599 537.09870 906.4865 66.12043
## 23 1493.72084 530.6407 638.5110 427.69670 377.92906 747.3228 220.58756
## 24 2623.00047 1658.9923 1766.9943 703.24509 753.18000 383.5956 1349.53732
## 25 4394.59685 3430.8797 3538.8956 2474.85401 2524.90557 2155.0325 3117.16042
## 26 214.14449 1178.0218 1070.0278 2134.07439 2084.05698 2454.0755 1492.09430
## 27 97.10386 1061.0240 953.0228 2017.11111 1967.08987 2337.1120 1375.47729
## 28 83.00895 1047.0159 939.0082 2003.12782 1953.10380 2323.1276 1361.67793
## 29 114.41342 851.1202 743.1753 1807.02611 1757.01795 2127.0237 1165.01591
## 30 3473.96650 2510.4972 2618.4912 1554.85372 1604.89902 1235.4192 2196.21346
## 31 4929.01462 3965.0237 4073.0186 3009.16060 3059.14028 2689.2176 3654.24389
## 32 7776.21118 6812.1962 6920.2122 5856.09472 5906.11105 5536.0941 6500.06981
## 33 3358.01025 2394.0190 2502.0133 1438.25258 1488.20977 1118.3952 2083.98723
## 34 4467.01359 3503.0225 3611.0173 2547.17500 2597.15118 2227.2428 3192.38493
## 35 4723.01434 3759.0212 3867.0169 2803.15489 2853.13439 2483.2131 3448.26952
## 36 7208.00757 6244.0044 6352.0047 5288.05322 5338.04726 4968.0773 5932.65814
## 37 8991.15925 8028.7776 8136.6880 7073.86190 7123.89279 6754.5792 7712.28549
## 38 4000.01257 3036.0095 3144.0093 2080.12170 2130.10122 1760.1838 2725.36814
## 8 9 10 11 12 13 14
## 1 316.4240 526.4623 3330.64847 1802.99898 1109.0084 2082.0649 1415.9665
## 2 648.1032 444.4834 2366.77741 838.98784 144.9944 1118.0594 463.2054
## 3 540.1727 337.9639 2474.80052 946.99143 253.0020 1226.0805 568.4316
## 4 1604.0163 1397.5176 1410.64973 118.43238 811.2138 162.0381 521.1846
## 5 1554.0054 1347.5957 1460.69755 68.91158 761.1738 211.9931 472.8684
## 6 1924.0156 1717.3627 1090.75657 437.49739 1131.1897 158.1646 836.6059
## 7 962.5462 753.4494 2054.10899 533.34088 186.0406 808.8677 140.9021
## 8 0.0000 211.6192 3014.40110 1487.03728 793.0849 1765.9822 1099.8748
## 9 211.6192 0.0000 2807.00792 1281.21726 588.6637 1559.5557 889.7236
## 10 3014.4011 2807.0079 0.00000 1528.23781 2221.8470 1248.9184 1921.0848
## 11 1487.0373 1281.2173 1528.23781 0.00000 693.9940 279.3346 412.5806
## 12 793.0849 588.6637 2221.84697 693.99399 0.0000 973.0839 326.1345
## 13 1765.9822 1559.5557 1248.91838 279.33458 973.0839 0.0000 681.2227
## 14 1099.8748 889.7236 1921.08481 412.58060 326.1345 681.2227 0.0000
## 15 5377.5404 5169.4253 2363.85522 3892.05440 4585.4334 3612.7221 4281.3148
## 16 3641.3377 3434.0022 626.99438 2154.89973 2848.6744 1875.6337 2547.7910
## 17 2191.0128 1984.3298 824.03536 704.29249 1398.1453 425.0615 1102.0811
## 18 2968.9987 2762.4372 70.67444 1482.02063 2176.0096 1203.0336 1878.7647
## 19 2455.0295 2248.7210 562.45476 968.00690 1662.0007 689.1727 1366.8755
## 20 2630.0305 2423.6747 389.03003 1143.00957 1837.0034 864.1456 1541.2229
## 21 2256.0196 2049.7482 760.44796 769.00096 1462.9949 490.1925 1168.7240
## 22 1018.7116 811.0163 1996.03690 471.68468 230.5370 748.8773 107.0012
## 23 1177.3790 970.0871 1837.10858 312.88404 386.3178 589.6855 117.5404
## 24 2307.0280 2100.7627 709.71574 820.00445 1513.9983 541.2070 1219.5601
## 25 4078.2746 3870.4328 1064.32057 2592.52722 3285.9853 2313.1971 2983.0148
## 26 530.0898 738.8986 3544.49091 2017.00892 1323.0162 2296.0231 1628.6128
## 27 413.2024 622.5584 3427.57205 1900.01153 1206.0176 2179.0489 1512.2555
## 28 399.3002 608.8951 3413.61659 1885.99965 1192.0074 2165.0567 1498.5523
## 29 203.0237 412.1855 3217.36618 1690.06092 996.1051 1968.9976 1301.8251
## 30 3157.5978 2949.5429 150.98120 1672.79833 2365.6782 1393.5171 2062.0455
## 31 4613.0697 4406.5468 1600.72785 3126.04012 3820.0293 2847.1473 3521.7398
## 32 7460.1086 7253.0031 4446.00776 5973.24087 6667.2104 5694.1489 6366.4245
## 33 3042.0732 2835.7464 75.42698 1555.03814 2249.0247 1276.2212 1952.6402
## 34 4151.0702 3944.5881 1139.34378 2664.03932 3358.0281 2385.1581 3060.0938
## 35 4407.0652 4200.5457 1394.88732 2920.03680 3614.0268 2641.1414 3315.8347
## 36 6892.0254 6685.2925 3878.58374 5405.01664 6099.0103 5126.0588 5799.4998
## 37 8674.7472 8465.5339 5664.81373 7191.90536 7884.1421 6912.6613 7576.0443
## 38 3684.0419 3477.5278 673.16997 2197.02213 2891.0153 1918.1083 2593.2516
## 15 16 17 18 19 20 21
## 1 5693.9006 3957.55488 2507.12061 3285.01766 2771.0023 2946.0047 2571.99901
## 2 4730.3049 2993.62599 1543.11997 2321.00136 1806.9947 1981.9974 1607.98856
## 3 4838.3141 3101.65056 1651.14152 2429.00985 1914.9965 2089.9990 1715.99205
## 4 3774.3499 2037.46084 586.99678 1365.03856 851.2085 1026.1766 652.23059
## 5 3824.4019 2087.50082 637.01023 1415.02471 901.1563 1076.1349 702.16473
## 6 3454.5577 1717.49638 267.00352 1045.09130 531.4414 706.3388 332.61469
## 7 4416.0298 2681.07141 1232.56747 2010.40902 1497.3025 1672.0711 1298.56375
## 8 5377.5404 3641.33769 2191.01284 2968.99871 2455.0295 2630.0305 2256.01957
## 9 5169.4253 3434.00225 1984.32978 2762.43715 2248.7210 2423.6747 2049.74817
## 10 2363.8552 626.99438 824.03536 70.67444 562.4548 389.0300 760.44796
## 11 3892.0544 2154.89973 704.29249 1482.02063 968.0069 1143.0096 769.00096
## 12 4585.4334 2848.67438 1398.14534 2176.00956 1662.0007 1837.0034 1462.99489
## 13 3612.7221 1875.63368 425.06150 1203.03361 689.1727 864.1456 490.19246
## 14 4281.3148 2547.79097 1102.08110 1878.76470 1366.8755 1541.2229 1168.72400
## 15 0.0000 1737.83513 3187.89033 2412.05127 2925.4474 2750.8006 3124.02854
## 16 1737.8351 0.00000 1450.60737 674.27657 1187.6747 1012.9705 1386.37837
## 17 3187.8903 1450.60737 0.00000 778.10777 264.8249 439.5046 67.87333
## 18 2412.0513 674.27657 778.10777 0.00000 514.0568 339.0873 713.03275
## 19 2925.4474 1187.67469 264.82495 514.05678 0.0000 175.0027 199.01019
## 20 2750.8006 1012.97054 439.50458 339.08727 175.0027 0.0000 374.01117
## 21 3124.0285 1386.37837 67.87333 713.03275 199.0102 374.0112 0.00000
## 22 4358.8579 2623.02731 1173.39819 1951.48755 1437.9168 1612.8247 1239.00252
## 23 4200.1802 2464.08461 1014.25879 1792.36078 1278.7426 1453.6609 1079.81878
## 24 3073.1727 1335.47924 117.82271 662.04323 148.0025 323.0051 51.01527
## 25 1299.5353 439.12707 1888.35592 1113.21860 1626.0956 1451.5990 1824.56818
## 26 5907.5811 4171.42575 2721.06721 3499.01331 2985.0157 3160.0183 2786.00864
## 27 5790.7425 4054.49420 2604.09898 3382.02387 2868.0180 3043.0207 2669.01244
## 28 5776.8303 4040.52997 2590.11056 3368.01697 2854.0042 3029.0066 2655.00020
## 29 5580.4133 3844.31375 2394.02286 3172.01808 2658.0522 2833.0530 2459.04219
## 30 2219.9469 487.60941 969.42978 214.85482 710.1327 538.1373 906.96831
## 31 785.4605 974.91215 2422.22824 1644.12689 2158.0403 1983.0398 2357.05035
## 32 2088.7458 3819.01750 5269.10083 4491.23802 5005.2895 4830.2988 5204.27026
## 33 2340.4182 603.17461 851.48925 74.64432 587.0590 412.0759 786.06607
## 34 1238.5375 515.33248 1960.26027 1182.15292 1696.0413 1521.0416 1895.05143
## 35 986.2122 769.51266 2216.22472 1438.12205 1952.0357 1777.0349 2151.04568
## 36 1528.0524 3251.72029 4701.07474 3923.02847 4437.0097 4262.0071 4636.01681
## 37 3303.3744 5040.20613 6488.44282 5714.44174 6227.0806 6052.7584 6425.25729
## 38 1700.6916 78.82179 1493.20001 715.09302 1229.0158 1054.0134 1428.02428
## 22 23 24 25 26 27 28
## 1 1335.11234 1493.7208 2623.00047 4394.5968 214.1445 97.10386 83.00895
## 2 373.32518 530.6407 1658.99227 3430.8797 1178.0218 1061.02404 1047.01591
## 3 480.81128 638.5110 1766.99432 3538.8956 1070.0278 953.02281 939.00822
## 4 586.88599 427.6967 703.24509 2474.8540 2134.0744 2017.11111 2003.12782
## 5 537.09870 377.9291 753.18000 2524.9056 2084.0570 1967.08987 1953.10380
## 6 906.48650 747.3228 383.59561 2155.0325 2454.0755 2337.11195 2323.12764
## 7 66.12043 220.5876 1349.53732 3117.1604 1492.0943 1375.47729 1361.67793
## 8 1018.71156 1177.3790 2307.02802 4078.2746 530.0898 413.20240 399.30024
## 9 811.01634 970.0871 2100.76271 3870.4328 738.8986 622.55844 608.89513
## 10 1996.03690 1837.1086 709.71574 1064.3206 3544.4909 3427.57205 3413.61659
## 11 471.68468 312.8840 820.00445 2592.5272 2017.0089 1900.01153 1885.99965
## 12 230.53695 386.3178 1513.99831 3285.9853 1323.0162 1206.01755 1192.00745
## 13 748.87732 589.6855 541.20699 2313.1971 2296.0231 2179.04891 2165.05667
## 14 107.00121 117.5404 1219.56008 2983.0148 1628.6128 1512.25549 1498.55230
## 15 4358.85792 4200.1802 3073.17266 1299.5353 5907.5811 5790.74250 5776.83026
## 16 2623.02731 2464.0846 1335.47924 439.1271 4171.4258 4054.49420 4040.52997
## 17 1173.39819 1014.2588 117.82271 1888.3559 2721.0672 2604.09898 2590.11056
## 18 1951.48755 1792.3608 662.04323 1113.2186 3499.0133 3382.02387 3368.01697
## 19 1437.91677 1278.7426 148.00250 1626.0956 2985.0157 2868.01805 2854.00416
## 20 1612.82467 1453.6609 323.00514 1451.5990 3160.0183 3043.02069 3029.00662
## 21 1239.00252 1079.8188 51.01527 1824.5682 2786.0086 2669.01244 2655.00020
## 22 0.00000 159.1919 1290.00933 3059.6683 1548.7240 1431.90434 1418.01173
## 23 159.19188 0.0000 1130.82686 2900.8960 1707.4531 1590.57927 1576.65603
## 24 1290.00933 1130.8269 0.00000 1773.7391 2837.0132 2720.01570 2706.00215
## 25 3059.66831 2900.8960 1773.73914 0.0000 4608.3470 4491.47344 4477.54349
## 26 1548.72401 1707.4531 2837.01321 4608.3470 0.0000 117.04502 131.17152
## 27 1431.90434 1590.5793 2720.01570 4491.4734 117.0450 0.00000 14.35111
## 28 1418.01173 1576.6560 2706.00215 4477.5435 131.1715 14.35111 0.00000
## 29 1221.55560 1380.3009 2510.05085 4281.1890 327.1690 210.46633 196.72722
## 30 2138.91101 1980.2532 856.52536 920.9920 3687.6343 3570.79919 3556.89075
## 31 3595.56744 3436.4614 2306.04174 550.9805 5143.0450 5026.04088 5012.01924
## 32 6442.00653 6283.0193 5153.28091 3383.5781 7990.1680 7873.19773 7859.20469
## 33 2024.87194 1865.7165 735.05353 1042.3013 3572.0399 3455.03554 3441.01453
## 34 3133.62414 2974.5073 1844.04228 146.3379 4681.0437 4564.03959 4550.01813
## 35 3389.56959 3230.4610 2100.03735 353.1405 4937.0428 4820.03945 4806.01870
## 36 5874.27839 5715.2185 4585.01221 2817.5869 7422.0254 7305.02719 7291.01074
## 37 7656.33412 7498.1803 6374.52519 4601.2363 9204.3577 9087.76214 9073.95452
## 38 2666.56630 2507.4475 1377.01823 410.4317 4214.0310 4097.03186 4083.01550
## 29 30 31 32 33 34 35
## 1 114.4134 3473.9665 4929.0146 7776.2112 3358.01025 4467.0136 4723.0143
## 2 851.1202 2510.4972 3965.0237 6812.1962 2394.01901 3503.0225 3759.0212
## 3 743.1753 2618.4912 4073.0186 6920.2122 2502.01326 3611.0173 3867.0169
## 4 1807.0261 1554.8537 3009.1606 5856.0947 1438.25258 2547.1750 2803.1549
## 5 1757.0180 1604.8990 3059.1403 5906.1111 1488.20977 2597.1512 2853.1344
## 6 2127.0237 1235.4192 2689.2176 5536.0941 1118.39525 2227.2428 2483.2131
## 7 1165.0159 2196.2135 3654.2439 6500.0698 2083.98723 3192.3849 3448.2695
## 8 203.0237 3157.5978 4613.0697 7460.1086 3042.07319 4151.0702 4407.0652
## 9 412.1855 2949.5429 4406.5468 7253.0031 2835.74644 3944.5881 4200.5457
## 10 3217.3662 150.9812 1600.7278 4446.0078 75.42698 1139.3438 1394.8873
## 11 1690.0609 1672.7983 3126.0401 5973.2409 1555.03814 2664.0393 2920.0368
## 12 996.1051 2365.6782 3820.0293 6667.2104 2249.02465 3358.0281 3614.0268
## 13 1968.9976 1393.5171 2847.1473 5694.1489 1276.22123 2385.1581 2641.1414
## 14 1301.8251 2062.0455 3521.7398 6366.4245 1952.64020 3060.0938 3315.8347
## 15 5580.4133 2219.9469 785.4605 2088.7458 2340.41821 1238.5375 986.2122
## 16 3844.3138 487.6094 974.9122 3819.0175 603.17461 515.3325 769.5127
## 17 2394.0229 969.4298 2422.2282 5269.1008 851.48925 1960.2603 2216.2247
## 18 3172.0181 214.8548 1644.1269 4491.2380 74.64432 1182.1529 1438.1221
## 19 2658.0522 710.1327 2158.0403 5005.2895 587.05902 1696.0413 1952.0357
## 20 2833.0530 538.1373 1983.0398 4830.2988 412.07594 1521.0416 1777.0349
## 21 2459.0422 906.9683 2357.0503 5204.2703 786.06607 1895.0514 2151.0457
## 22 1221.5556 2138.9110 3595.5674 6442.0065 2024.87194 3133.6241 3389.5696
## 23 1380.3009 1980.2532 3436.4614 6283.0193 1865.71651 2974.5073 3230.4610
## 24 2510.0509 856.5254 2306.0417 5153.2809 735.05353 1844.0423 2100.0374
## 25 4281.1890 920.9920 550.9805 3383.5781 1042.30132 146.3379 353.1405
## 26 327.1690 3687.6343 5143.0450 7990.1680 3572.03989 4681.0437 4937.0428
## 27 210.4663 3570.7992 5026.0409 7873.1977 3455.03554 4564.0396 4820.0395
## 28 196.7272 3556.8907 5012.0192 7859.2047 3441.01453 4550.0181 4806.0187
## 29 0.0000 3360.4663 4816.0925 7663.1131 3245.09659 4354.0931 4610.0879
## 30 3360.4663 0.0000 1462.4084 4304.4192 166.48672 1002.7387 1257.1121
## 31 4816.0925 1462.4084 0.0000 2847.7530 1571.00537 462.0013 206.0059
## 32 7663.1131 4304.4192 2847.7530 0.0000 4418.42241 3309.6212 3053.6601
## 33 3245.0966 166.4867 1571.0054 4418.4224 0.00000 1109.0041 1365.0042
## 34 4354.0931 1002.7387 462.0013 3309.6212 1109.00407 0.0000 256.0025
## 35 4610.0879 1257.1121 206.0059 3053.6601 1365.00418 256.0025 0.0000
## 36 7095.0457 3737.8812 2279.0120 570.9936 3850.00131 2741.0064 2485.0039
## 37 8877.3014 5519.1624 4082.9158 1292.3851 5643.22696 4541.0004 4286.9010
## 38 3887.0639 540.7031 929.0391 3776.4135 642.02383 467.0604 723.0333
## 36 37 38
## 1 7208.0076 8991.159 4000.01257
## 2 6244.0044 8028.778 3036.00955
## 3 6352.0047 8136.688 3144.00933
## 4 5288.0532 7073.862 2080.12170
## 5 5338.0473 7123.893 2130.10122
## 6 4968.0773 6754.579 1760.18380
## 7 5932.6581 7712.285 2725.36814
## 8 6892.0254 8674.747 3684.04187
## 9 6685.2925 8465.534 3477.52778
## 10 3878.5837 5664.814 673.16997
## 11 5405.0166 7191.905 2197.02213
## 12 6099.0103 7884.142 2891.01535
## 13 5126.0588 6912.661 1918.10828
## 14 5799.4998 7576.044 2593.25162
## 15 1528.0524 3303.374 1700.69160
## 16 3251.7203 5040.206 78.82179
## 17 4701.0747 6488.443 1493.20001
## 18 3923.0285 5714.442 715.09302
## 19 4437.0097 6227.081 1229.01576
## 20 4262.0071 6052.758 1054.01336
## 21 4636.0168 6425.257 1428.02428
## 22 5874.2784 7656.334 2666.56630
## 23 5715.2185 7498.180 2507.44754
## 24 4585.0122 6374.525 1377.01823
## 25 2817.5869 4601.236 410.43173
## 26 7422.0254 9204.358 4214.03104
## 27 7305.0272 9087.762 4097.03186
## 28 7291.0107 9073.955 4083.01550
## 29 7095.0457 8877.301 3887.06386
## 30 3737.8812 5519.162 540.70311
## 31 2279.0120 4082.916 929.03912
## 32 570.9936 1292.385 3776.41350
## 33 3850.0013 5643.227 642.02383
## 34 2741.0064 4541.000 467.06037
## 35 2485.0039 4286.901 723.03329
## 36 0.0000 1847.888 3207.99542
## 37 1847.8880 0.000 5004.06470
## 38 3207.9954 5004.065 0.00000for (i in 1:38) {
for (j in 1:38) {
disparities[i, j] <- sqrt(sum((fit[i,] - fit[j,])^2))
}
}
# Menghitung stress
stress <- sqrt(sum((dist_matrix - disparities)^2) / sum(dist_matrix^2))
cat("Nilai Stress:", stress, "\n")## Nilai Stress: 3.363634e-05# Menampilkan Visualisasi
plot(fit, type='n', xlab = "Komponen Sosial Ekonomi 1", ylab = "Komponen Sosial Ekonomi 2")
text(fit, labels = Data$'kabupaten_atau_kota')
text(fit, labels = 1:nrow(data))