Analisis Multivariat (Clustering)
Elvira Rizki Berliananda.P (062)
Aryanti Indah
Lestary (196)
2026-04-03
Analisis Clustering pada Data Parkinsons Menggunakan Metode K-Means, K-Median, DBSCAN, Mean Shift, dan Fuzzy C-Means
Link Dataset : https://www.kaggle.com/datasets/sagarbapodara/parkinson-csv
Pada tugas ini dilakukan analisis clustering menggunakan metode unsupervised learning untuk mengelompokkan data berdasarkan kemiripan karakteristik. Dataset yang digunakan adalah dataset Parkinson’s Disease yang memiliki 23 fitur numerik. Dua kolom yaitu name dan status tidak digunakan dalam proses clustering, karena name bukan variabel numerik dan status merupakan label. Tahapan yang dilakukan meliputi eksplorasi data, preprocessing, serta penerapan lima metode clustering yaitu K-Means, K-Medians, DBSCAN, Mean Shift, dan Fuzzy C-Means. Hasil clustering kemudian dievaluasi menggunakan metrik internal seperti Silhouette, Dunn Index, dan Ari score.
library(flexclust)
library(dbscan)##
## Attaching package: 'dbscan'## The following object is masked from 'package:stats':
##
## as.dendrogramlibrary(meanShiftR)
library(e1071)##
## Attaching package: 'e1071'## The following object is masked from 'package:flexclust':
##
## bclustlibrary(cluster)
library(fpc)##
## Attaching package: 'fpc'## The following object is masked from 'package:dbscan':
##
## dbscanlibrary(mclust)## Package 'mclust' version 6.1.2
## Type 'citation("mclust")' for citing this R package in publications.library(dplyr)##
## Attaching package: 'dplyr'## The following object is masked from 'package:mclust':
##
## count## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(psych)##
## Attaching package: 'psych'## The following object is masked from 'package:mclust':
##
## simlibrary(factoextra)## Loading required package: ggplot2##
## Attaching package: 'ggplot2'## The following objects are masked from 'package:psych':
##
## %+%, alpha## The following object is masked from 'package:e1071':
##
## element## Welcome to factoextra!## Want to learn more? See two factoextra-related books at https://www.datanovia.com/en/product/practical-guide-to-principal-component-methods-in-r/Load Data dan Eksplorasi Data
data <- read.csv("parkinsons.csv")
str(data)## 'data.frame': 195 obs. of 24 variables:
## $ name : chr "phon_R01_S01_1" "phon_R01_S01_2" "phon_R01_S01_3" "phon_R01_S01_4" ...
## $ MDVP.Fo.Hz. : num 120 122 117 117 116 ...
## $ MDVP.Fhi.Hz. : num 157 149 131 138 142 ...
## $ MDVP.Flo.Hz. : num 75 114 112 111 111 ...
## $ MDVP.Jitter... : num 0.00784 0.00968 0.0105 0.00997 0.01284 ...
## $ MDVP.Jitter.Abs.: num 0.00007 0.00008 0.00009 0.00009 0.00011 0.00008 0.00003 0.00003 0.00006 0.00006 ...
## $ MDVP.RAP : num 0.0037 0.00465 0.00544 0.00502 0.00655 0.00463 0.00155 0.00144 0.00293 0.00268 ...
## $ MDVP.PPQ : num 0.00554 0.00696 0.00781 0.00698 0.00908 0.0075 0.00202 0.00182 0.00332 0.00332 ...
## $ Jitter.DDP : num 0.0111 0.0139 0.0163 0.015 0.0197 ...
## $ MDVP.Shimmer : num 0.0437 0.0613 0.0523 0.0549 0.0643 ...
## $ MDVP.Shimmer.dB.: num 0.426 0.626 0.482 0.517 0.584 0.456 0.14 0.134 0.191 0.255 ...
## $ Shimmer.APQ3 : num 0.0218 0.0313 0.0276 0.0292 0.0349 ...
## $ Shimmer.APQ5 : num 0.0313 0.0452 0.0386 0.0401 0.0483 ...
## $ MDVP.APQ : num 0.0297 0.0437 0.0359 0.0377 0.0447 ...
## $ Shimmer.DDA : num 0.0654 0.094 0.0827 0.0877 0.1047 ...
## $ NHR : num 0.0221 0.0193 0.0131 0.0135 0.0177 ...
## $ HNR : num 21 19.1 20.7 20.6 19.6 ...
## $ status : int 1 1 1 1 1 1 1 1 1 1 ...
## $ RPDE : num 0.415 0.458 0.43 0.435 0.417 ...
## $ DFA : num 0.815 0.82 0.825 0.819 0.823 ...
## $ spread1 : num -4.81 -4.08 -4.44 -4.12 -3.75 ...
## $ spread2 : num 0.266 0.336 0.311 0.334 0.235 ...
## $ D2 : num 2.3 2.49 2.34 2.41 2.33 ...
## $ PPE : num 0.285 0.369 0.333 0.369 0.41 ...data_numeric <- data[sapply(data, is.numeric)]label <- data_numeric$status
data_clustering <- data_numeric[, colnames(data_numeric) != "status"]colSums(is.na(data_numeric))## MDVP.Fo.Hz. MDVP.Fhi.Hz. MDVP.Flo.Hz. MDVP.Jitter...
## 0 0 0 0
## MDVP.Jitter.Abs. MDVP.RAP MDVP.PPQ Jitter.DDP
## 0 0 0 0
## MDVP.Shimmer MDVP.Shimmer.dB. Shimmer.APQ3 Shimmer.APQ5
## 0 0 0 0
## MDVP.APQ Shimmer.DDA NHR HNR
## 0 0 0 0
## status RPDE DFA spread1
## 0 0 0 0
## spread2 D2 PPE
## 0 0 0sum(duplicated(data_numeric))## [1] 0describe(data_clustering)## vars n mean sd median trimmed mad min max
## MDVP.Fo.Hz. 1 195 154.23 41.39 148.79 150.80 47.13 88.33 260.10
## MDVP.Fhi.Hz. 2 195 197.10 91.49 175.83 180.97 62.99 102.14 592.03
## MDVP.Flo.Hz. 3 195 116.32 43.52 104.32 109.94 35.11 65.48 239.17
## MDVP.Jitter... 4 195 0.01 0.00 0.00 0.01 0.00 0.00 0.03
## MDVP.Jitter.Abs. 5 195 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## MDVP.RAP 6 195 0.00 0.00 0.00 0.00 0.00 0.00 0.02
## MDVP.PPQ 7 195 0.00 0.00 0.00 0.00 0.00 0.00 0.02
## Jitter.DDP 8 195 0.01 0.01 0.01 0.01 0.00 0.00 0.06
## MDVP.Shimmer 9 195 0.03 0.02 0.02 0.03 0.01 0.01 0.12
## MDVP.Shimmer.dB. 10 195 0.28 0.19 0.22 0.25 0.13 0.09 1.30
## Shimmer.APQ3 11 195 0.02 0.01 0.01 0.01 0.01 0.00 0.06
## Shimmer.APQ5 12 195 0.02 0.01 0.01 0.02 0.01 0.01 0.08
## MDVP.APQ 13 195 0.02 0.02 0.02 0.02 0.01 0.01 0.14
## Shimmer.DDA 14 195 0.05 0.03 0.04 0.04 0.02 0.01 0.17
## NHR 15 195 0.02 0.04 0.01 0.02 0.01 0.00 0.31
## HNR 16 195 21.89 4.43 22.09 22.17 4.37 8.44 33.05
## RPDE 17 195 0.50 0.10 0.50 0.50 0.12 0.26 0.69
## DFA 18 195 0.72 0.06 0.72 0.72 0.06 0.57 0.83
## spread1 19 195 -5.68 1.09 -5.72 -5.74 1.07 -7.96 -2.43
## spread2 20 195 0.23 0.08 0.22 0.23 0.07 0.01 0.45
## D2 21 195 2.38 0.38 2.36 2.36 0.40 1.42 3.67
## PPE 22 195 0.21 0.09 0.19 0.20 0.09 0.04 0.53
## range skew kurtosis se
## MDVP.Fo.Hz. 171.77 0.58 -0.67 2.96
## MDVP.Fhi.Hz. 489.88 2.50 7.30 6.55
## MDVP.Flo.Hz. 173.69 1.20 0.57 3.12
## MDVP.Jitter... 0.03 3.04 11.54 0.00
## MDVP.Jitter.Abs. 0.00 2.61 10.42 0.00
## MDVP.RAP 0.02 3.31 13.65 0.00
## MDVP.PPQ 0.02 3.03 11.48 0.00
## Jitter.DDP 0.06 3.31 13.66 0.00
## MDVP.Shimmer 0.11 1.64 3.06 0.00
## MDVP.Shimmer.dB. 1.22 1.97 4.89 0.01
## Shimmer.APQ3 0.05 1.56 2.56 0.00
## Shimmer.APQ5 0.07 1.77 3.68 0.00
## MDVP.APQ 0.13 2.58 10.71 0.00
## Shimmer.DDA 0.16 1.56 2.56 0.00
## NHR 0.31 4.16 21.15 0.00
## HNR 24.61 -0.51 0.53 0.32
## RPDE 0.43 -0.14 -0.95 0.01
## DFA 0.25 -0.03 -0.72 0.00
## spread1 5.53 0.43 -0.11 0.08
## spread2 0.44 0.14 -0.14 0.01
## D2 2.25 0.42 0.15 0.03
## PPE 0.48 0.79 0.45 0.01cor(data_clustering)## MDVP.Fo.Hz. MDVP.Fhi.Hz. MDVP.Flo.Hz. MDVP.Jitter...
## MDVP.Fo.Hz. 1.00000000 0.400984676 0.59654552 -0.11800263
## MDVP.Fhi.Hz. 0.40098468 1.000000000 0.08495125 0.10208635
## MDVP.Flo.Hz. 0.59654552 0.084951251 1.00000000 -0.13991889
## MDVP.Jitter... -0.11800263 0.102086349 -0.13991889 1.00000000
## MDVP.Jitter.Abs. -0.38202665 -0.029198333 -0.27781524 0.93571398
## MDVP.RAP -0.07619381 0.097176619 -0.10051932 0.99027559
## MDVP.PPQ -0.11216543 0.091126194 -0.09582837 0.97425639
## Jitter.DDP -0.07621269 0.097149867 -0.10048768 0.99027622
## MDVP.Shimmer -0.09837375 0.002281231 -0.14454332 0.76906323
## MDVP.Shimmer.dB. -0.07374246 0.043465164 -0.11908865 0.80428928
## Shimmer.APQ3 -0.09471706 -0.003743251 -0.15074650 0.74662520
## Shimmer.APQ5 -0.07068178 -0.009996776 -0.10109462 0.72556100
## MDVP.APQ -0.07777382 0.004936985 -0.10729342 0.75825526
## Shimmer.DDA -0.09473157 -0.003732893 -0.15073674 0.74663517
## NHR -0.02198078 0.163766404 -0.10867045 0.90695860
## HNR 0.05914439 -0.024893140 0.21085090 -0.72816507
## RPDE -0.38389390 -0.112403513 -0.40014307 0.36067348
## DFA -0.44601329 -0.343096724 -0.05040631 0.09857244
## spread1 -0.41373817 -0.076657801 -0.39485736 0.69357671
## spread2 -0.24945005 -0.002953614 -0.24382940 0.38512347
## D2 0.17797951 0.176322818 -0.10062909 0.43343402
## PPE -0.37235638 -0.069543002 -0.34007134 0.72154293
## MDVP.Jitter.Abs. MDVP.RAP MDVP.PPQ Jitter.DDP
## MDVP.Fo.Hz. -0.38202665 -0.07619381 -0.11216543 -0.07621269
## MDVP.Fhi.Hz. -0.02919833 0.09717662 0.09112619 0.09714987
## MDVP.Flo.Hz. -0.27781524 -0.10051932 -0.09582837 -0.10048768
## MDVP.Jitter... 0.93571398 0.99027559 0.97425639 0.99027622
## MDVP.Jitter.Abs. 1.00000000 0.92291097 0.89777790 0.92291303
## MDVP.RAP 0.92291097 1.00000000 0.95731689 0.99999960
## MDVP.PPQ 0.89777790 0.95731689 1.00000000 0.95731916
## Jitter.DDP 0.92291303 0.99999960 0.95731916 1.00000000
## MDVP.Shimmer 0.70332237 0.75958052 0.79782603 0.75955470
## MDVP.Shimmer.dB. 0.71660128 0.79065155 0.83923894 0.79062060
## Shimmer.APQ3 0.69715303 0.74491236 0.76357992 0.74489376
## Shimmer.APQ5 0.64896070 0.70992682 0.78678047 0.70990709
## MDVP.APQ 0.64879344 0.73745467 0.80413930 0.73743867
## Shimmer.DDA 0.69716971 0.74491923 0.76359216 0.74490062
## NHR 0.83497218 0.91952071 0.84460353 0.91954818
## HNR -0.65680959 -0.72154316 -0.73151047 -0.72149437
## RPDE 0.44183856 0.34213980 0.33327415 0.34207948
## DFA 0.17503599 0.06408302 0.19630142 0.06402640
## spread1 0.73577923 0.64832777 0.71648864 0.64832755
## spread2 0.38854284 0.32440718 0.40760548 0.32437685
## D2 0.31069445 0.42660538 0.41252368 0.42655576
## PPE 0.74816165 0.67099905 0.76964729 0.67100525
## MDVP.Shimmer MDVP.Shimmer.dB. Shimmer.APQ3 Shimmer.APQ5
## MDVP.Fo.Hz. -0.098373748 -0.07374246 -0.094717062 -0.070681785
## MDVP.Fhi.Hz. 0.002281231 0.04346516 -0.003743251 -0.009996776
## MDVP.Flo.Hz. -0.144543324 -0.11908865 -0.150746503 -0.101094616
## MDVP.Jitter... 0.769063235 0.80428928 0.746625201 0.725561003
## MDVP.Jitter.Abs. 0.703322372 0.71660128 0.697153027 0.648960696
## MDVP.RAP 0.759580521 0.79065155 0.744912357 0.709926823
## MDVP.PPQ 0.797826025 0.83923894 0.763579916 0.786780474
## Jitter.DDP 0.759554700 0.79062060 0.744893765 0.709907085
## MDVP.Shimmer 1.000000000 0.98725781 0.987625052 0.982835448
## MDVP.Shimmer.dB. 0.987257815 1.00000000 0.963198085 0.973750561
## Shimmer.APQ3 0.987625052 0.96319809 1.000000000 0.960069764
## Shimmer.APQ5 0.982835448 0.97375056 0.960069764 1.000000000
## MDVP.APQ 0.950082893 0.96097672 0.896644519 0.949146111
## Shimmer.DDA 0.987625653 0.96320170 0.999999964 0.960071593
## NHR 0.722194454 0.74447728 0.716206735 0.658079759
## HNR -0.835270676 -0.82780535 -0.827123311 -0.813752789
## RPDE 0.447423645 0.41068380 0.435242425 0.399902849
## DFA 0.159953618 0.16515658 0.151124464 0.213873102
## spread1 0.654734300 0.65254666 0.610967362 0.646808933
## spread2 0.452024826 0.45431437 0.402242954 0.457194945
## D2 0.507088281 0.51223317 0.467265430 0.502174433
## PPE 0.693770720 0.69505813 0.645376686 0.702455664
## MDVP.APQ Shimmer.DDA NHR HNR RPDE
## MDVP.Fo.Hz. -0.077773819 -0.094731567 -0.02198078 0.059144387 -0.3838939
## MDVP.Fhi.Hz. 0.004936985 -0.003732893 0.16376640 -0.024893140 -0.1124035
## MDVP.Flo.Hz. -0.107293423 -0.150736736 -0.10867045 0.210850898 -0.4001431
## MDVP.Jitter... 0.758255255 0.746635172 0.90695860 -0.728165074 0.3606735
## MDVP.Jitter.Abs. 0.648793442 0.697169706 0.83497218 -0.656809593 0.4418386
## MDVP.RAP 0.737454666 0.744919228 0.91952071 -0.721543160 0.3421398
## MDVP.PPQ 0.804139303 0.763592161 0.84460353 -0.731510466 0.3332741
## Jitter.DDP 0.737438675 0.744900620 0.91954818 -0.721494370 0.3420795
## MDVP.Shimmer 0.950082893 0.987625653 0.72219445 -0.835270676 0.4474236
## MDVP.Shimmer.dB. 0.960976723 0.963201704 0.74447728 -0.827805346 0.4106838
## Shimmer.APQ3 0.896644519 0.999999964 0.71620674 -0.827123311 0.4352424
## Shimmer.APQ5 0.949146111 0.960071593 0.65807976 -0.813752789 0.3999028
## MDVP.APQ 1.000000000 0.896646766 0.69401905 -0.800406561 0.4513791
## Shimmer.DDA 0.896646766 1.000000000 0.71621454 -0.827130202 0.4352373
## NHR 0.694019049 0.716214539 1.00000000 -0.714072430 0.3708905
## HNR -0.800406561 -0.827130202 -0.71407243 1.000000000 -0.5987363
## RPDE 0.451379050 0.435237302 0.37089049 -0.598736337 1.0000000
## DFA 0.157275784 0.151132394 -0.13188174 -0.008664939 -0.1109500
## spread1 0.673158141 0.610971213 0.54086514 -0.673209818 0.5911170
## spread2 0.502187886 0.402223092 0.31809896 -0.431563748 0.4799045
## D2 0.536869028 0.467261374 0.47094876 -0.601401006 0.2369314
## PPE 0.721693953 0.645388954 0.55259127 -0.692875853 0.5458857
## DFA spread1 spread2 D2 PPE
## MDVP.Fo.Hz. -0.446013292 -0.4137382 -0.249450046 0.1779795 -0.3723564
## MDVP.Fhi.Hz. -0.343096724 -0.0766578 -0.002953614 0.1763228 -0.0695430
## MDVP.Flo.Hz. -0.050406307 -0.3948574 -0.243829403 -0.1006291 -0.3400713
## MDVP.Jitter... 0.098572442 0.6935767 0.385123473 0.4334340 0.7215429
## MDVP.Jitter.Abs. 0.175035992 0.7357792 0.388542835 0.3106944 0.7481617
## MDVP.RAP 0.064083019 0.6483278 0.324407179 0.4266054 0.6709990
## MDVP.PPQ 0.196301424 0.7164886 0.407605477 0.4125237 0.7696473
## Jitter.DDP 0.064026401 0.6483276 0.324376852 0.4265558 0.6710053
## MDVP.Shimmer 0.159953618 0.6547343 0.452024826 0.5070883 0.6937707
## MDVP.Shimmer.dB. 0.165156580 0.6525467 0.454314373 0.5122332 0.6950581
## Shimmer.APQ3 0.151124464 0.6109674 0.402242954 0.4672654 0.6453767
## Shimmer.APQ5 0.213873102 0.6468089 0.457194945 0.5021744 0.7024557
## MDVP.APQ 0.157275784 0.6731581 0.502187886 0.5368690 0.7216940
## Shimmer.DDA 0.151132394 0.6109712 0.402223092 0.4672614 0.6453890
## NHR -0.131881743 0.5408651 0.318098962 0.4709488 0.5525913
## HNR -0.008664939 -0.6732098 -0.431563748 -0.6014010 -0.6928759
## RPDE -0.110949960 0.5911170 0.479904528 0.2369314 0.5458857
## DFA 1.000000000 0.1956684 0.166548111 -0.1653810 0.2704447
## spread1 0.195668403 1.0000000 0.652357812 0.4951227 0.9624353
## spread2 0.166548111 0.6523578 1.000000000 0.5235317 0.6447110
## D2 -0.165381035 0.4951227 0.523531735 1.0000000 0.4805845
## PPE 0.270444747 0.9624353 0.644710959 0.4805845 1.0000000corrplot::corrplot(cor(data_numeric),tl.col = "black",type= "full",tl.srt=40,tl.cex = 0.5)
boxplot(data_clustering, main = "Boxplot Variabel Penelitian", las = 2)
# Preprocessing
df <- scale(data_clustering)
set.seed(123)K-MEANS
# Elbow
wss <- sapply(1:10, function(k){
kmeans(df, centers = k, nstart = 20)$tot.withinss
})plot(1:10, wss, type="b", pch=19,
xlab="Jumlah Cluster (K)",
ylab="Total Within Sum of Squares",
main="Elbow Method")
# Clustering
km_res <- kmeans(df, centers = 2)
km_res## K-means clustering with 2 clusters of sizes 155, 40
##
## Cluster means:
## MDVP.Fo.Hz. MDVP.Fhi.Hz. MDVP.Flo.Hz. MDVP.Jitter... MDVP.Jitter.Abs.
## 1 0.05552332 0.01919167 0.04645888 -0.3148821 -0.3041543
## 2 -0.21515287 -0.07436772 -0.18002818 1.2201682 1.1785978
## MDVP.RAP MDVP.PPQ Jitter.DDP MDVP.Shimmer MDVP.Shimmer.dB. Shimmer.APQ3
## 1 -0.3065479 -0.327250 -0.3065481 -0.3927245 -0.3852862 -0.380313
## 2 1.1878732 1.268094 1.1878740 1.5218076 1.4929842 1.473713
## Shimmer.APQ5 MDVP.APQ Shimmer.DDA NHR HNR RPDE
## 1 -0.3951118 -0.3657724 -0.3803078 -0.2898097 0.3385644 -0.1787814
## 2 1.5310583 1.4173681 1.4736928 1.1230125 -1.3119371 0.6927778
## DFA spread1 spread2 D2 PPE
## 1 -0.07121398 -0.3113793 -0.2408355 -0.2529963 -0.3279497
## 2 0.27595418 1.2065949 0.9332377 0.9803606 1.2708050
##
## Clustering vector:
## [1] 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [38] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 2 1 1
## [75] 1 1 1 1 1 2 2 1 1 1 2 1 1 2 2 2 2 2 1 1 1 1 1 2 2 2 2 2 2 1 1 1 1 1 1 1 1
## [112] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 2 2 2 1 1 2 1 1 1 1 2 2
## [149] 2 2 2 2 2 1 1 1 1 2 1 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [186] 1 1 1 1 1 1 1 1 1 1
##
## Within cluster sum of squares by cluster:
## [1] 1649.573 1155.291
## (between_SS / total_SS = 34.3 %)
##
## Available components:
##
## [1] "cluster" "centers" "totss" "withinss" "tot.withinss"
## [6] "betweenss" "size" "iter" "ifault"plot(df, col = km_res$cluster, main = "K-Means")
# Silhoutte
k_values <- 2:10
avg_sil_km <- sapply(k_values,function(k){
km_res <- kmeans(df,centers=k)
mean(silhouette(km_res$cluster,dist(df))[,3])
})plot(k_values, avg_sil_km, type="b", pch=19,
xlab="Jumlah Cluster",
ylab="Average Silhouette K-Means",
main="Silhouette Analysis")
K-MEDIAN
# Clustering
kmed_res <- pam(df, k = 2)
kmed_res## Medoids:
## ID MDVP.Fo.Hz. MDVP.Fhi.Hz. MDVP.Flo.Hz. MDVP.Jitter... MDVP.Jitter.Abs.
## [1,] 162 -0.93999952 -0.67073866 -0.1958261 -0.006283147 0.1734835
## [2,] 178 -0.06019901 -0.07542684 0.3109818 -0.635391211 -0.6880431
## MDVP.RAP MDVP.PPQ Jitter.DDP MDVP.Shimmer MDVP.Shimmer.dB.
## [1,] 0.07196967 -0.05667282 0.07301203 0.1601995 0.2193622
## [2,] -0.65921798 -0.66196971 -0.65817388 -0.7964778 -0.7710046
## Shimmer.APQ3 Shimmer.APQ5 MDVP.APQ Shimmer.DDA NHR HNR
## [1,] 0.07641424 -0.05474655 0.3085262 0.07673842 0.08048115 -0.5644165
## [2,] -0.82576779 -0.75003969 -0.6952069 -0.82578275 -0.47372122 0.5117818
## RPDE DFA spread1 spread2 D2 PPE
## [1,] 0.7626049 -0.6094794 0.3681755 0.0002116314 0.1595613 0.3520816
## [2,] -0.9806028 0.5034343 -0.7360297 -0.3427982410 0.1774741 -0.8194540
## Clustering vector:
## [1] 1 1 1 1 1 1 2 2 1 1 1 1 2 2 2 2 1 1 1 1 1 1 1 1 2 1 2 2 2 2 2 2 2 2 2 2 2
## [38] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 2 2 2 2 2 2 1 1 1 1 1 1 2 2
## [75] 2 2 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 1 1 1 1 1 1 2 2 2 2 2 2 1 2
## [112] 2 1 2 2 1 2 2 2 2 2 2 1 1 1 1 1 1 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 2 2 1 1 1
## [149] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1
## [186] 1 2 2 2 1 1 2 1 2 2
## Objective function:
## build swap
## 3.825525 3.571996
##
## Available components:
## [1] "medoids" "id.med" "clustering" "objective" "isolation"
## [6] "clusinfo" "silinfo" "diss" "call" "data"plot(df, col = kmed_res$clustering, main = "K-Median (PAM)")
k_values <- 2:10
avg_sil_kmed <- sapply(k_values,function(k){
kmed_res <- pam(df,k=k)
mean(silhouette(kmed_res$clustering,
dist(df))[,3])
})plot(k_values, avg_sil_kmed, type="b", pch=19,
xlab="Jumlah Cluster",
ylab="Average Silhouette K-Median",
main="Silhouette Analysis")
DBSCAN
# Clustering
db_res <- dbscan(df, eps = 0.7, MinPts = 5)
db_res## dbscan Pts=195 MinPts=5 eps=0.7
##
## 0
## 195plot(df, col = db_res$cluster + 1, main = "DBSCAN (0 = Noise)")
# Silhoutte
eps_values <- seq(0.3,1.5,0.1)
avg_sil_db <- sapply(eps_values,function(e){
db_res <- dbscan(df,eps=e,MinPts=5)
cluster <- db_res$cluster
valid <- cluster!=0
if(length(unique(cluster[valid]))>1){
mean(silhouette(cluster[valid],
dist(df[valid,]))[,3])
}else{
NA
}
})plot(eps_values, avg_sil_db, type="b", pch=19,
xlab="Jumlah Cluster",
ylab="Average Silhouette DBSCAN",
main="Silhouette Analysis")
MEAN SHIFT
# Clustering
ms_res <- meanShift(df)
ms_res## $assignment
## [,1]
## [1,] 1
## [2,] 2
## [3,] 2
## [4,] 2
## [5,] 2
## [6,] 2
## [7,] 3
## [8,] 3
## [9,] 4
## [10,] 5
## [11,] 6
## [12,] 7
## [13,] 3
## [14,] 3
## [15,] 3
## [16,] 3
## [17,] 8
## [18,] 9
## [19,] 10
## [20,] 11
## [21,] 12
## [22,] 13
## [23,] 14
## [24,] 15
## [25,] 16
## [26,] 17
## [27,] 16
## [28,] 16
## [29,] 3
## [30,] 3
## [31,] 18
## [32,] 19
## [33,] 20
## [34,] 21
## [35,] 22
## [36,] 23
## [37,] 24
## [38,] 24
## [39,] 24
## [40,] 24
## [41,] 24
## [42,] 25
## [43,] 26
## [44,] 26
## [45,] 26
## [46,] 26
## [47,] 26
## [48,] 26
## [49,] 3
## [50,] 3
## [51,] 3
## [52,] 3
## [53,] 3
## [54,] 3
## [55,] 27
## [56,] 27
## [57,] 28
## [58,] 29
## [59,] 27
## [60,] 28
## [61,] 30
## [62,] 30
## [63,] 26
## [64,] 26
## [65,] 26
## [66,] 31
## [67,] 32
## [68,] 32
## [69,] 33
## [70,] 34
## [71,] 35
## [72,] 36
## [73,] 3
## [74,] 37
## [75,] 3
## [76,] 3
## [77,] 38
## [78,] 3
## [79,] 39
## [80,] 40
## [81,] 41
## [82,] 42
## [83,] 43
## [84,] 3
## [85,] 44
## [86,] 45
## [87,] 46
## [88,] 47
## [89,] 47
## [90,] 48
## [91,] 49
## [92,] 50
## [93,] 51
## [94,] 52
## [95,] 53
## [96,] 54
## [97,] 54
## [98,] 55
## [99,] 56
## [100,] 57
## [101,] 58
## [102,] 59
## [103,] 60
## [104,] 16
## [105,] 54
## [106,] 16
## [107,] 54
## [108,] 16
## [109,] 54
## [110,] 61
## [111,] 54
## [112,] 62
## [113,] 63
## [114,] 25
## [115,] 24
## [116,] 64
## [117,] 65
## [118,] 66
## [119,] 66
## [120,] 67
## [121,] 65
## [122,] 16
## [123,] 68
## [124,] 69
## [125,] 70
## [126,] 71
## [127,] 72
## [128,] 70
## [129,] 3
## [130,] 3
## [131,] 3
## [132,] 3
## [133,] 3
## [134,] 3
## [135,] 73
## [136,] 74
## [137,] 75
## [138,] 76
## [139,] 77
## [140,] 78
## [141,] 79
## [142,] 80
## [143,] 81
## [144,] 82
## [145,] 83
## [146,] 84
## [147,] 85
## [148,] 86
## [149,] 87
## [150,] 88
## [151,] 89
## [152,] 90
## [153,] 91
## [154,] 92
## [155,] 93
## [156,] 94
## [157,] 95
## [158,] 96
## [159,] 97
## [160,] 78
## [161,] 98
## [162,] 99
## [163,] 98
## [164,] 3
## [165,] 100
## [166,] 101
## [167,] 26
## [168,] 26
## [169,] 102
## [170,] 26
## [171,] 26
## [172,] 3
## [173,] 3
## [174,] 3
## [175,] 3
## [176,] 3
## [177,] 3
## [178,] 16
## [179,] 16
## [180,] 16
## [181,] 16
## [182,] 16
## [183,] 16
## [184,] 3
## [185,] 103
## [186,] 3
## [187,] 104
## [188,] 104
## [189,] 3
## [190,] 105
## [191,] 106
## [192,] 107
## [193,] 108
## [194,] 109
## [195,] 110
##
## $value
## [,1] [,2] [,3] [,4] [,5]
## [1,] -1.10130471 -0.72417591 -0.4096534656 0.213262253 0.65069361
## [2,] -0.86821135 -0.66041992 -0.1194206186 0.784088530 1.21851453
## [3,] -0.86821135 -0.66041992 -0.1194206186 0.784088530 1.21851453
## [4,] -0.86821135 -0.66041992 -0.1194206186 0.784088530 1.21851453
## [5,] -0.86821135 -0.66041992 -0.1194206186 0.784088530 1.21851453
## [6,] -0.86821135 -0.66041992 -0.1194206186 0.784088530 1.21851453
## [7,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [8,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [9,] -1.12770344 -0.75983127 -0.4781831432 0.035107147 0.45468753
## [10,] -1.12654918 -0.75851459 -0.4801424363 0.084387219 0.51098993
## [11,] -1.14204904 -0.76549358 -0.4789228079 0.031184941 0.45908719
## [12,] -1.13786571 -0.76396795 -0.4802722687 0.047506330 0.47521466
## [13,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [14,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [15,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [16,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [17,] -0.59122674 -0.56981788 -0.1181193916 -0.506594432 -0.42405835
## [18,] 0.34486256 0.37984637 -0.9286232940 0.196262804 -0.11074594
## [19,] -0.12999438 -0.27990240 -0.8965484317 0.161990594 0.10240990
## [20,] -0.76763174 -0.59873254 -0.5298582980 -0.036938225 0.17435506
## [21,] -0.77193039 -0.59828003 -0.5330812346 -0.008836056 0.20930979
## [22,] -0.76842412 -0.59435607 -0.5355776619 0.003858841 0.22326262
## [23,] -0.76595322 -0.59613310 -0.5322151555 -0.021610772 0.19160486
## [24,] -0.76118111 -0.58867627 -0.5399989503 0.010992773 0.22888773
## [25,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [26,] -0.73923950 -0.57005664 -0.5656425982 0.037693780 0.25247168
## [27,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [28,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [29,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [30,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [31,] -0.23473014 -0.39380987 0.2205086626 -0.550323989 -0.52883147
## [32,] -0.25681221 -0.40376489 0.1972058393 -0.545924204 -0.52114431
## [33,] 0.53822934 -0.08035552 1.0823594194 -0.713027822 -0.79416505
## [34,] 0.81909159 0.03275559 1.4190993852 -0.760619336 -0.88664361
## [35,] 0.87523290 0.05576960 1.4889486871 -0.771188838 -0.90568551
## [36,] -0.35073095 -0.44743911 0.1004140325 -0.530521269 -0.49089824
## [37,] -0.53498218 -0.54017787 -0.0678379379 -0.512061587 -0.44025470
## [38,] -0.53498218 -0.54017787 -0.0678379379 -0.512061587 -0.44025470
## [39,] -0.53498218 -0.54017787 -0.0678379379 -0.512061587 -0.44025470
## [40,] -0.53498218 -0.54017787 -0.0678379379 -0.512061587 -0.44025470
## [41,] -0.53498218 -0.54017787 -0.0678379379 -0.512061587 -0.44025470
## [42,] -0.49992052 -0.52165138 -0.0392658924 -0.514743574 -0.44933082
## [43,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [44,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [45,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [46,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [47,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [48,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [49,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [50,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [51,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [52,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [53,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [54,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [55,] -1.10450649 -0.72961545 -0.4134344063 0.199612984 0.63542533
## [56,] -1.10450649 -0.72961545 -0.4134344063 0.199612984 0.63542533
## [57,] -1.10224835 -0.72661179 -0.4084488408 0.206193728 0.64223143
## [58,] -1.10786039 -0.73418455 -0.4203695612 0.188461980 0.62363917
## [59,] -1.10450649 -0.72961545 -0.4134344063 0.199612984 0.63542533
## [60,] -1.10224835 -0.72661179 -0.4084488408 0.206193728 0.64223143
## [61,] -0.42469555 -0.48319346 0.0255306579 -0.524178452 -0.47198662
## [62,] -0.42469555 -0.48319346 0.0255306579 -0.524178452 -0.47198662
## [63,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [64,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [65,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [66,] -0.18911759 -0.37126334 0.2515053040 -0.563328462 -0.54925296
## [67,] -0.68629249 -0.53435546 -0.6128804366 0.074444951 0.27279443
## [68,] -0.68629249 -0.53435546 -0.6128804366 0.074444951 0.27279443
## [69,] -0.53761771 -0.43656616 -0.7752091448 0.193698268 0.33955865
## [70,] -0.50386161 -0.41118952 -0.8041520729 0.209857778 0.34142256
## [71,] -0.67544199 -0.52771656 -0.6195276450 0.079155770 0.27346185
## [72,] -0.70091203 -0.54241709 -0.6186437748 0.079842226 0.28472679
## [73,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [74,] -1.01776418 4.27280540 -0.2164764661 -0.183476353 0.17267612
## [75,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [76,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [77,] -1.11446594 -0.75384585 -0.4852624296 0.064984615 0.48144941
## [78,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [79,] -1.11140929 -0.74874735 -0.4890198097 0.128211456 0.55423655
## [80,] -1.11416945 -0.74558660 -0.4658241346 0.155202356 0.58771956
## [81,] -0.98898822 -0.69111429 -0.5752565166 0.101100407 0.45715596
## [82,] -1.10159808 -0.74504319 -0.5048045585 0.123253343 0.54321548
## [83,] -1.09228319 -0.74174810 -0.5156398170 0.112064906 0.52502345
## [84,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [85,] -0.71712465 -0.57845620 -0.4668347349 -0.169784761 -0.01001677
## [86,] -0.05054530 -0.25356293 -0.1506602400 -0.292534282 -0.30133338
## [87,] -0.27883647 -0.36078303 -0.3487095972 -0.221047157 -0.17687001
## [88,] 0.51585716 0.24242149 -0.3838531427 -0.233717386 -0.37055830
## [89,] 0.51585716 0.24242149 -0.3838531427 -0.233717386 -0.37055830
## [90,] 0.60694039 0.30279611 0.6030380867 0.178893729 -0.11429953
## [91,] 0.32449301 0.11234557 -0.8066470093 0.196437364 -0.13822752
## [92,] -0.05387921 -0.36813044 0.6898408500 -0.419083718 -0.40059982
## [93,] -0.48786751 -0.48957724 -0.1685673829 -0.447664537 -0.38414294
## [94,] -0.07006902 -0.37378744 -0.9005508879 -0.393417673 -0.32707321
## [95,] -0.63517446 -0.54892240 -0.2877976431 -0.386989739 -0.27084882
## [96,] -0.54951517 -0.54799816 -0.0790944615 -0.511072729 -0.43657717
## [97,] -0.54951517 -0.54799816 -0.0790944615 -0.511072729 -0.43657717
## [98,] -0.70525950 -0.58465765 -0.0885805833 1.354600792 1.61984896
## [99,] -0.68566533 -0.60801474 -0.4165993377 1.523036900 1.84550968
## [100,] -0.66768194 -0.60122311 -0.4015150428 2.679636511 3.01192452
## [101,] -0.69068846 -0.61248161 0.0004909326 5.556682216 6.20416950
## [102,] -0.62555818 -0.51464680 -0.9084603862 1.945090919 2.21648149
## [103,] -0.36251796 4.25680912 -1.1527113654 4.927574231 5.05546753
## [104,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [105,] -0.54951517 -0.54799816 -0.0790944615 -0.511072729 -0.43657717
## [106,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [107,] -0.54951517 -0.54799816 -0.0790944615 -0.511072729 -0.43657717
## [108,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [109,] -0.54951517 -0.54799816 -0.0790944615 -0.511072729 -0.43657717
## [110,] -0.54335736 -0.53788957 -0.1122490272 -0.496152306 -0.42278851
## [111,] -0.54951517 -0.54799816 -0.0790944615 -0.511072729 -0.43657717
## [112,] -0.44390857 -0.49280058 0.0101951796 -0.517507744 -0.46211612
## [113,] -0.27433296 -0.40828201 0.1658143472 -0.520236792 -0.49436524
## [114,] -0.49992052 -0.52165138 -0.0392658924 -0.514743574 -0.44933082
## [115,] -0.53498218 -0.54017787 -0.0678379379 -0.512061587 -0.44025470
## [116,] -0.01186511 3.03614705 -0.9875810244 0.233441712 0.20255746
## [117,] -0.08428594 2.63350271 -0.8542548389 -0.206887921 -0.19351253
## [118,] 0.43229883 2.69156540 -0.8326654564 -0.228129131 -0.37400089
## [119,] 0.43229883 2.69156540 -0.8326654564 -0.228129131 -0.37400089
## [120,] 1.43469878 0.48551648 -0.5541404834 -0.456066547 -0.66256636
## [121,] -0.08428594 2.63350271 -0.8542548389 -0.206887921 -0.19351253
## [122,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [123,] -0.68459511 -0.53305347 -0.6201840965 0.080474444 0.27868005
## [124,] -0.47356391 -0.39478718 -0.6507526226 0.065755547 0.17192500
## [125,] -0.42923212 -0.36260748 -0.6621248066 0.064739255 0.15089071
## [126,] -0.40869866 -0.34812627 -0.6693931418 0.066818075 0.14390743
## [127,] -0.40238579 -0.34362817 -0.6715782953 0.067383770 0.14166610
## [128,] -0.42923212 -0.36260748 -0.6621248066 0.064739255 0.15089071
## [129,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [130,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [131,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [132,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [133,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [134,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [135,] -0.76764377 -0.60398693 -0.5095855374 -0.103802881 0.09445220
## [136,] -0.77658402 -0.60197491 -0.5312657657 -0.016065291 0.20271336
## [137,] -0.76628522 -0.60110895 -0.5217109946 -0.076826527 0.12673480
## [138,] -0.77928299 -0.61286341 -0.4905148464 -0.130497449 0.06549271
## [139,] -0.79095853 -0.62071600 -0.4779525705 -0.143910100 0.05276469
## [140,] -0.73764681 -0.57066721 -0.5429651998 0.020525597 0.23219429
## [141,] -0.69972987 -0.56394598 -0.5311632074 -0.086502629 0.09105138
## [142,] 0.74846046 0.35099928 -0.4427553028 -0.067263807 -0.28459404
## [143,] -0.68428894 -0.55039428 -0.5291455653 -0.044323629 0.13349379
## [144,] -0.53908356 -0.53967214 -0.0879689449 -0.507692963 -0.43507773
## [145,] -0.49105806 -0.51434145 -0.0469458925 -0.510450630 -0.44676800
## [146,] 1.46859558 0.62739069 -0.5681652177 -0.519320611 -0.67034513
## [147,] 0.43803216 -0.02136733 0.8527355947 1.992445980 1.32125626
## [148,] 0.72290349 0.21116429 1.0299684068 1.838269033 1.09526830
## [149,] 0.78310879 0.18675178 1.0954081636 2.207992183 1.30939950
## [150,] 1.16942030 4.02895667 1.4000534013 2.072867306 1.03502221
## [151,] 0.78206705 0.16687990 0.7903009136 2.522754392 1.56866352
## [152,] 0.93233390 0.29865146 1.2055759882 5.125588323 3.33241414
## [153,] 1.06033548 0.39341420 1.3362011944 4.314966980 2.75806301
## [154,] -0.71323351 -0.55181779 -0.5325553373 0.007748937 0.20953640
## [155,] -0.73499019 -0.56899727 -0.5355119674 0.015036003 0.22503161
## [156,] -0.73747321 -0.57087951 -0.5356816669 0.015333147 0.22621216
## [157,] -0.73050696 -0.56550457 -0.5298428533 0.010246266 0.21817580
## [158,] -0.87433766 -0.68634724 -0.3592708808 2.449655150 3.03570816
## [159,] -0.73941475 -0.57261189 -0.5221758342 0.006822534 0.21725005
## [160,] -0.73764681 -0.57066721 -0.5429651998 0.020525597 0.23219429
## [161,] -0.75108923 -0.58015372 -0.5438214529 0.020198430 0.23663270
## [162,] -0.74192621 -0.57343339 -0.5473189138 0.023747038 0.23741918
## [163,] -0.75108923 -0.58015372 -0.5438214529 0.020198430 0.23663270
## [164,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [165,] -1.22407526 -0.58723536 -0.6926484589 0.582488778 1.29064611
## [166,] -0.50534394 -0.52245262 -0.0563972778 -0.512190892 -0.44583473
## [167,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [168,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [169,] -0.50516385 -0.52101225 -0.0628688429 -0.507703147 -0.44143372
## [170,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [171,] 2.06961677 0.58682158 2.5270643043 -0.707507523 -0.95279297
## [172,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [173,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [174,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [175,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [176,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [177,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [178,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [179,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [180,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [181,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [182,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [183,] -0.56715512 -0.55753760 -0.0929560215 -0.509949184 -0.43213958
## [184,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [185,] -0.61257424 -0.58118497 -0.1364923627 -0.502875585 -0.41604999
## [186,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [187,] -0.90081453 4.22861887 -0.6050339424 -0.483154753 -0.38586578
## [188,] -0.90081453 4.22861887 -0.6050339424 -0.483154753 -0.38586578
## [189,] -0.58434559 -0.56730356 -0.1032081460 -0.509265807 -0.42823709
## [190,] -0.43024934 -0.46705215 -0.0819463545 -0.491927560 -0.44052379
## [191,] -0.40464490 -0.43201176 -0.1962888989 -0.416651568 -0.37036375
## [192,] -0.46592108 -0.49523006 -0.0588984469 -0.502779634 -0.44403486
## [193,] 0.50087636 0.47420938 -0.9643201460 1.501287118 1.01616601
## [194,] 0.44916067 0.10073295 -0.5004171713 -0.248077063 -0.39542475
## [195,] -0.51983420 -0.52898961 -0.0742138795 -0.507867290 -0.43887141
## [,6] [,7] [,8] [,9] [,10]
## [1,] 0.076371285 0.333829615 0.076169168 -0.01714671 -0.03094326
## [2,] 0.573306191 1.403683303 0.572833463 1.25120284 1.15862038
## [3,] 0.573306191 1.403683303 0.572833463 1.25120284 1.15862038
## [4,] 0.573306191 1.403683303 0.572833463 1.25120284 1.15862038
## [5,] 0.573306191 1.403683303 0.572833463 1.25120284 1.15862038
## [6,] 0.573306191 1.403683303 0.572833463 1.25120284 1.15862038
## [7,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [8,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [9,] -0.010023772 0.099676699 -0.010112345 -0.10293153 -0.12902737
## [10,] 0.028027568 0.155314274 0.027885040 -0.06448199 -0.08967342
## [11,] -0.015172352 0.099106833 -0.015246402 -0.10464207 -0.13157874
## [12,] -0.001276405 0.115961009 -0.001372094 -0.09108657 -0.11769501
## [13,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [14,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [15,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [16,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [17,] -0.526239278 -0.543830430 -0.526035318 -0.72722602 -0.69947458
## [18,] -0.154473038 0.150077942 -0.153447203 0.19086497 0.33283385
## [19,] 0.057162698 0.217123357 0.057288789 1.18751271 1.10657577
## [20,] -0.022198921 -0.060385322 -0.022609001 0.29667360 0.28560020
## [21,] 0.011745498 -0.042882627 0.011341332 0.21545624 0.21792965
## [22,] 0.026767469 -0.034375194 0.026374818 0.17305286 0.17995020
## [23,] -0.003642018 -0.051273013 -0.004049870 0.25288679 0.24963350
## [24,] 0.034761362 -0.028969177 0.034376339 0.15349975 0.16177601
## [25,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [26,] 0.063095941 -0.004668814 0.062731000 0.09962352 0.10977213
## [27,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [28,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [29,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [30,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [31,] -0.538781921 -0.561304821 -0.538525998 -0.70385117 -0.67678386
## [32,] -0.536438096 -0.558475100 -0.536190259 -0.70262956 -0.67567332
## [33,] -0.634852061 -0.686914867 -0.634577706 -0.84247989 -0.80667699
## [34,] -0.661460776 -0.723714996 -0.661392047 -0.91390570 -0.87443760
## [35,] -0.667993339 -0.731666430 -0.667974925 -0.93015223 -0.88980045
## [36,] -0.529534765 -0.549936380 -0.529314167 -0.70247040 -0.67552039
## [37,] -0.526376409 -0.543953401 -0.526175238 -0.71818700 -0.69052842
## [38,] -0.526376409 -0.543953401 -0.526175238 -0.71818700 -0.69052842
## [39,] -0.526376409 -0.543953401 -0.526175238 -0.71818700 -0.69052842
## [40,] -0.526376409 -0.543953401 -0.526175238 -0.71818700 -0.69052842
## [41,] -0.526376409 -0.543953401 -0.526175238 -0.71818700 -0.69052842
## [42,] -0.526207094 -0.544475375 -0.526005140 -0.71437950 -0.68676309
## [43,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [44,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [45,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [46,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [47,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [48,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [49,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [50,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [51,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [52,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [53,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [54,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [55,] 0.069050162 0.316310428 0.068862075 -0.02667439 -0.04153462
## [56,] 0.069050162 0.316310428 0.068862075 -0.02667439 -0.04153462
## [57,] 0.070398172 0.326061857 0.070209509 -0.02478309 -0.03879761
## [58,] 0.065666421 0.300457229 0.065482229 -0.03091936 -0.04703644
## [59,] 0.069050162 0.316310428 0.068862075 -0.02667439 -0.04153462
## [60,] 0.070398172 0.326061857 0.070209509 -0.02478309 -0.03879761
## [61,] -0.528949156 -0.548718132 -0.528736727 -0.71070220 -0.68284253
## [62,] -0.528949156 -0.548718132 -0.528736727 -0.71070220 -0.68284253
## [63,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [64,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [65,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [66,] -0.546468920 -0.571094009 -0.546193410 -0.71179496 -0.68327954
## [67,] 0.100208241 0.030324327 0.099841284 0.07258856 0.08362912
## [68,] 0.100208241 0.030324327 0.099841284 0.07258856 0.08362912
## [69,] 0.213143443 0.134549433 0.212678104 0.16372887 0.18261780
## [70,] 0.228569831 0.148243040 0.228096869 0.19952703 0.21871424
## [71,] 0.105023758 0.034536997 0.104655169 0.07014103 0.08145436
## [72,] 0.104576521 0.035545870 0.104197091 0.10013958 0.11099499
## [73,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [74,] -0.211565241 -0.057475205 -0.210529317 -0.27915149 -0.28960286
## [75,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [76,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [77,] 0.018409844 0.127839821 0.018274479 -0.07616840 -0.10121452
## [78,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [79,] 0.067496514 0.198815988 0.067284459 -0.02607281 -0.04898579
## [80,] 0.072141740 0.241362520 0.071928468 -0.02321302 -0.04417150
## [81,] 0.099239313 0.112333480 0.098936865 0.02683480 0.01321163
## [82,] 0.074079403 0.184352190 0.073850702 -0.01774626 -0.04049553
## [83,] 0.072771871 0.165021505 0.072541306 -0.01731309 -0.03995447
## [84,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [85,] -0.189777552 -0.121577726 -0.189795621 0.74784236 0.60599829
## [86,] -0.289887355 -0.268625904 -0.290289765 0.40563213 0.27406460
## [87,] -0.221866990 -0.209422501 -0.222205399 0.39864349 0.29652014
## [88,] -0.184029392 -0.171490809 -0.184009007 1.90853968 1.66760693
## [89,] -0.184029392 -0.171490809 -0.184009007 1.90853968 1.66760693
## [90,] 0.201569943 0.265478760 0.200413837 0.72142285 0.81589350
## [91,] 0.151844795 0.330327267 0.151809480 1.91425346 1.75953652
## [92,] -0.360001193 -0.425755512 -0.360069547 2.63199268 2.50363024
## [93,] -0.467609340 -0.490563059 -0.467480575 -0.65117613 -0.63119645
## [94,] -0.352549836 -0.364357764 -0.351803707 1.49399311 1.67662706
## [95,] -0.414694120 -0.427442990 -0.414580217 -0.60507991 -0.59355943
## [96,] -0.526586121 -0.543833922 -0.526384868 -0.71984720 -0.69219597
## [97,] -0.526586121 -0.543833922 -0.526384868 -0.71984720 -0.69219597
## [98,] 1.395713285 1.004719062 1.394670925 0.53235286 0.36044442
## [99,] 1.620863756 1.104045552 1.620627983 0.86131761 0.67180325
## [100,] 2.758216647 2.327759117 2.757092875 1.98388874 1.91836036
## [101,] 6.110164392 4.267394255 6.111192442 3.29167398 3.12375403
## [102,] 1.967758590 2.047846213 1.968700488 1.69962354 1.55433456
## [103,] 5.133001296 4.651594631 5.134031663 3.41947842 3.32387994
## [104,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [105,] -0.526586121 -0.543833922 -0.526384868 -0.71984720 -0.69219597
## [106,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [107,] -0.526586121 -0.543833922 -0.526384868 -0.71984720 -0.69219597
## [108,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [109,] -0.526586121 -0.543833922 -0.526384868 -0.71984720 -0.69219597
## [110,] -0.513551567 -0.534231299 -0.513362787 -0.71374099 -0.68671586
## [111,] -0.526586121 -0.543833922 -0.526384868 -0.71984720 -0.69219597
## [112,] -0.524810249 -0.543864007 -0.524608129 -0.70629669 -0.67926400
## [113,] -0.513998200 -0.535508450 -0.513792956 -0.67972476 -0.65574533
## [114,] -0.526207094 -0.544475375 -0.526005140 -0.71437950 -0.68676309
## [115,] -0.526376409 -0.543953401 -0.526175238 -0.71818700 -0.69052842
## [116,] 0.022661035 -0.026877044 0.021783698 -0.62645842 -0.35560126
## [117,] -0.356292865 -0.335715534 -0.356443497 -0.68180954 -0.54825517
## [118,] -0.424850465 -0.416355330 -0.424919941 -0.77288230 -0.65764712
## [119,] -0.424850465 -0.416355330 -0.424919941 -0.77288230 -0.65764712
## [120,] -0.639274416 -0.717724043 -0.639421256 -0.78002692 -0.72568299
## [121,] -0.356292865 -0.335715534 -0.356443497 -0.68180954 -0.54825517
## [122,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [123,] 0.105887468 0.035751429 0.105513855 0.08218234 0.09343779
## [124,] 0.102442030 0.033562372 0.102150881 -0.06658392 -0.05848424
## [125,] 0.104579865 0.037246289 0.104309711 -0.08948618 -0.08267729
## [126,] 0.108155270 0.041055043 0.107891967 -0.09614329 -0.08980764
## [127,] 0.109191471 0.042186273 0.108930463 -0.09826457 -0.09208478
## [128,] 0.104579865 0.037246289 0.104309711 -0.08948618 -0.08267729
## [129,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [130,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [131,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [132,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [133,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [134,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [135,] -0.105134355 -0.094106512 -0.105468034 0.49484317 0.43340389
## [136,] 0.003202225 -0.047381945 0.002792521 0.23687410 0.23658034
## [137,] -0.071595017 -0.081272531 -0.071976808 0.41376871 0.37508830
## [138,] -0.138098635 -0.105645478 -0.138359895 0.58112653 0.49448701
## [139,] -0.154503048 -0.110963356 -0.154716666 0.62830674 0.52799644
## [140,] 0.046400794 -0.022301488 0.046047155 0.07797470 0.08890832
## [141,] -0.083754343 -0.091619780 -0.084102953 0.41796837 0.37238866
## [142,] -0.018547124 -0.016895058 -0.018197763 1.91991382 1.59635283
## [143,] -0.029050968 -0.071031248 -0.029432812 0.25965843 0.24664143
## [144,] -0.522690129 -0.542206431 -0.522489914 -0.72061666 -0.69260259
## [145,] -0.521786259 -0.541708421 -0.521588097 -0.71279520 -0.68512622
## [146,] -0.532477348 -0.556135321 -0.533077650 -0.33507905 -0.37585859
## [147,] 1.854035130 2.217692173 1.853795276 2.66550220 2.69258158
## [148,] 1.836888113 1.861134021 1.835742020 1.68839331 1.82509905
## [149,] 2.176568023 2.407366424 2.175482320 2.18520276 2.26890871
## [150,] 1.982495959 2.241278204 1.981287467 2.22678237 2.82608794
## [151,] 2.458571340 2.853008835 2.458381299 1.55126870 2.51845415
## [152,] 4.951046502 5.847690074 4.952077300 4.73941700 5.23277312
## [153,] 4.169315810 4.908936035 4.170348461 3.02970155 3.77544615
## [154,] 0.033795006 -0.033594985 0.033474908 0.01395229 0.02472925
## [155,] 0.041057653 -0.028076102 0.040710302 0.06546098 0.07674074
## [156,] 0.041294089 -0.027814629 0.040943924 0.07121144 0.08246577
## [157,] 0.036341580 -0.032828874 0.036002667 0.04914526 0.06059384
## [158,] 2.641536802 1.354580166 2.641451267 1.03038216 0.80076365
## [159,] 0.032902358 -0.037524537 0.032557759 0.06154658 0.07352036
## [160,] 0.046400794 -0.022301488 0.046047155 0.07797470 0.08890832
## [161,] 0.045464062 -0.021955486 0.045096738 0.10832371 0.11862553
## [162,] 0.049418405 -0.018893533 0.049058871 0.09045373 0.10111703
## [163,] 0.045464062 -0.021955486 0.045096738 0.10832371 0.11862553
## [164,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [165,] 0.542383128 0.417350032 0.543374305 -0.07022392 -0.04432830
## [166,] -0.524163054 -0.543733972 -0.523961206 -0.71696559 -0.68892393
## [167,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [168,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [169,] -0.520158890 -0.540304371 -0.519962671 -0.71421297 -0.68650515
## [170,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [171,] -0.585738419 -0.653806225 -0.586074973 -0.71565706 -0.69106621
## [172,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [173,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [174,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [175,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [176,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [177,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [178,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [179,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [180,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [181,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [182,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [183,] -0.526918659 -0.543865577 -0.526716706 -0.72232308 -0.69465319
## [184,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [185,] -0.525803773 -0.543206277 -0.525599335 -0.72902423 -0.70172405
## [186,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [187,] -0.483382620 -0.493379229 -0.483463857 -0.78397710 -0.74391751
## [188,] -0.483382620 -0.493379229 -0.483463857 -0.78397710 -0.74391751
## [189,] -0.527720546 -0.543867690 -0.527518223 -0.72373369 -0.69621750
## [190,] -0.498844796 -0.524812416 -0.498666490 -0.69987727 -0.67191107
## [191,] -0.429365011 -0.456875223 -0.429278728 -0.60083611 -0.58489335
## [192,] -0.512222049 -0.534960428 -0.512032154 -0.70807860 -0.68027872
## [193,] 0.976844548 0.785280355 0.977856016 -0.34993434 -0.13542129
## [194,] -0.205649625 -0.275504017 -0.205682250 -0.45626460 -0.43532475
## [195,] -0.521388313 -0.541298279 -0.521190091 -0.71721399 -0.68931946
## [,11] [,12] [,13] [,14] [,15]
## [1,] 0.034850091 -0.017252978 -0.081042180 0.035029839 -0.319153315
## [2,] 1.189788527 1.775771678 0.754217320 1.189700010 -0.260854360
## [3,] 1.189788527 1.775771678 0.754217320 1.189700010 -0.260854360
## [4,] 1.189788527 1.775771678 0.754217320 1.189700010 -0.260854360
## [5,] 1.189788527 1.775771678 0.754217320 1.189700010 -0.260854360
## [6,] 1.189788527 1.775771678 0.754217320 1.189700010 -0.260854360
## [7,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [8,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [9,] -0.070783964 -0.125014943 -0.123445054 -0.070706421 -0.296002231
## [10,] -0.026139179 -0.085047007 -0.100387888 -0.026034915 -0.290430649
## [11,] -0.074007174 -0.124938630 -0.123312848 -0.073930217 -0.299557654
## [12,] -0.058230301 -0.111744781 -0.115032933 -0.058145017 -0.296020394
## [13,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [14,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [15,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [16,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [17,] -0.733228656 -0.725632914 -0.636266480 -0.733198336 -0.448300370
## [18,] -0.117312849 0.091088798 0.600886009 -0.117640758 0.107628333
## [19,] 0.852419838 1.279562717 1.643163145 0.852448276 0.190009446
## [20,] 0.192022856 0.166995015 0.421380368 0.192039999 -0.025741189
## [21,] 0.122693168 0.084736687 0.324970478 0.122706058 -0.027989651
## [22,] 0.088961940 0.045779293 0.273150943 0.088972568 -0.030627846
## [23,] 0.154133798 0.121866603 0.370520203 0.154148997 -0.026693081
## [24,] 0.075146519 0.029290818 0.248043225 0.075157052 -0.032779299
## [25,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [26,] 0.043518474 -0.011332710 0.171892705 0.043532361 -0.046424238
## [27,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [28,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [29,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [30,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [31,] -0.716595023 -0.684322728 -0.615428994 -0.716588067 -0.464024631
## [32,] -0.714991230 -0.684416086 -0.614125857 -0.714981702 -0.462486964
## [33,] -0.855706731 -0.783552093 -0.763073383 -0.855763471 -0.526988789
## [34,] -0.923173965 -0.841946157 -0.844136605 -0.923206726 -0.546916559
## [35,] -0.938701390 -0.855474729 -0.862462511 -0.938732524 -0.551366618
## [36,] -0.713274863 -0.689581385 -0.613410458 -0.713256686 -0.456891096
## [37,] -0.725163391 -0.713688932 -0.628555485 -0.725135088 -0.451016049
## [38,] -0.725163391 -0.713688932 -0.628555485 -0.725135088 -0.451016049
## [39,] -0.725163391 -0.713688932 -0.628555485 -0.725135088 -0.451016049
## [40,] -0.725163391 -0.713688932 -0.628555485 -0.725135088 -0.451016049
## [41,] -0.725163391 -0.713688932 -0.628555485 -0.725135088 -0.451016049
## [42,] -0.722317548 -0.708477897 -0.624635522 -0.722290618 -0.451513504
## [43,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [44,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [45,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [46,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [47,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [48,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [49,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [50,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [51,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [52,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [53,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [54,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [55,] 0.024177897 -0.028180780 -0.087081458 0.024351178 -0.319294832
## [56,] 0.024177897 -0.028180780 -0.087081458 0.024351178 -0.319294832
## [57,] 0.026389658 -0.025019726 -0.086002148 0.026566666 -0.321181420
## [58,] 0.019222030 -0.034283530 -0.089501276 0.019389133 -0.316950710
## [59,] 0.024177897 -0.028180780 -0.087081458 0.024351178 -0.319294832
## [60,] 0.026389658 -0.025019726 -0.086002148 0.026566666 -0.321181420
## [61,] -0.720883620 -0.700903887 -0.620445429 -0.720860721 -0.453591180
## [62,] -0.720883620 -0.700903887 -0.620445429 -0.720860721 -0.453591180
## [63,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [64,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [65,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [66,] -0.726961815 -0.688675626 -0.621688783 -0.726961507 -0.465489578
## [67,] 0.040090745 -0.024924934 0.121581953 0.040113340 -0.060774523
## [68,] 0.040090745 -0.024924934 0.121581953 0.040113340 -0.060774523
## [69,] 0.170373548 0.064302052 0.169634029 0.170427059 -0.055921752
## [70,] 0.213812847 0.095955106 0.195176895 0.213870629 -0.053344458
## [71,] 0.040182542 -0.025858784 0.116793933 0.040205780 -0.061844371
## [72,] 0.065550664 -0.002563887 0.149620947 0.065578354 -0.056654586
## [73,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [74,] -0.193661144 -0.344934188 -0.267944377 -0.193341129 -0.458531833
## [75,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [76,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [77,] -0.040256606 -0.100213520 -0.106273764 -0.040165102 -0.285270529
## [78,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [79,] 0.017860045 -0.048117631 -0.076616334 0.017984666 -0.277082691
## [80,] 0.024762297 -0.038022015 -0.080165418 0.024905379 -0.291580414
## [81,] 0.046931640 -0.030814127 0.003351933 0.047011924 -0.182560963
## [82,] 0.024282928 -0.044794258 -0.066922726 0.024401038 -0.263857384
## [83,] 0.021652447 -0.048624354 -0.062039886 0.021761566 -0.254151259
## [84,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [85,] 0.680395898 0.717464913 0.821296592 0.680476791 0.019241789
## [86,] 0.385681577 0.377018741 0.468634352 0.385742112 -0.063307293
## [87,] 0.342504155 0.342751048 0.519863499 0.342562575 -0.069031634
## [88,] 2.109292137 1.975598522 1.357069060 2.108999636 0.523701926
## [89,] 2.109292137 1.975598522 1.357069060 2.108999636 0.523701926
## [90,] 0.729512863 0.822631013 0.626159744 0.729830885 1.144811754
## [91,] 2.024345153 2.035179982 1.556681722 2.024048902 1.400662541
## [92,] 2.798559631 2.627847881 1.927057040 2.798266905 -0.204137126
## [93,] -0.659167000 -0.658478149 -0.558226512 -0.659137680 -0.417057700
## [94,] 1.698642534 1.502863138 1.092583559 1.698899298 -0.269786945
## [95,] -0.611190115 -0.618392251 -0.511605120 -0.611161876 -0.375114305
## [96,] -0.726382079 -0.715911942 -0.630296986 -0.726353290 -0.450909371
## [97,] -0.726382079 -0.715911942 -0.630296986 -0.726353290 -0.450909371
## [98,] 0.600589474 0.362978242 0.455401050 0.600830271 1.417785419
## [99,] 0.914994257 0.651083858 0.819871757 0.914764078 1.842248907
## [100,] 1.998786691 1.799512635 1.977411931 1.998805568 3.480888671
## [101,] 3.734388143 2.497711178 2.235150896 3.734427886 7.174271402
## [102,] 1.638731827 1.565469380 1.635436057 1.638744613 2.356334428
## [103,] 3.924476692 2.675692893 2.133066356 3.924847024 5.800641413
## [104,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [105,] -0.726382079 -0.715911942 -0.630296986 -0.726353290 -0.450909371
## [106,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [107,] -0.726382079 -0.715911942 -0.630296986 -0.726353290 -0.450909371
## [108,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [109,] -0.726382079 -0.715911942 -0.630296986 -0.726353290 -0.450909371
## [110,] -0.722126648 -0.713228034 -0.620396667 -0.722097516 -0.441570669
## [111,] -0.726382079 -0.715911942 -0.630296986 -0.726353290 -0.450909371
## [112,] -0.715172657 -0.698505204 -0.616937494 -0.715148342 -0.452596577
## [113,] -0.690419829 -0.665522345 -0.592366077 -0.690403289 -0.455821447
## [114,] -0.722317548 -0.708477897 -0.624635522 -0.722290618 -0.451513504
## [115,] -0.725163391 -0.713688932 -0.628555485 -0.725135088 -0.451016049
## [116,] -0.777629789 -0.760438108 -0.610228847 -0.777437035 0.489514491
## [117,] -0.825179165 -0.726475625 -0.533748018 -0.825086069 -0.149296239
## [118,] -0.865508480 -0.776580236 -0.596512492 -0.865644573 -0.260835209
## [119,] -0.865508480 -0.776580236 -0.596512492 -0.865644573 -0.260835209
## [120,] -0.768227308 -0.839951139 -0.698813896 -0.767987120 -0.399325997
## [121,] -0.825179165 -0.726475625 -0.533748018 -0.825086069 -0.149296239
## [122,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [123,] 0.050701566 -0.016513576 0.129636351 0.050726740 -0.059614545
## [124,] -0.074667226 -0.113554289 -0.034134751 -0.074666637 -0.100405933
## [125,] -0.093267429 -0.124908128 -0.060600369 -0.093270200 -0.108627207
## [126,] -0.097821625 -0.126960547 -0.069332176 -0.097825488 -0.111332919
## [127,] -0.099312912 -0.127632916 -0.072072550 -0.099317126 -0.112179417
## [128,] -0.093267429 -0.124908128 -0.060600369 -0.093270200 -0.108627207
## [129,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [130,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [131,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [132,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [133,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [134,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [135,] 0.390118128 0.397257259 0.617268852 0.390152084 -0.017559040
## [136,] 0.139958805 0.105142101 0.350581333 0.139972407 -0.027298770
## [137,] 0.304821349 0.299230818 0.543614698 0.304846763 -0.022570620
## [138,] 0.485600861 0.504208741 0.685568883 0.485646987 -0.008810308
## [139,] 0.539426412 0.563097588 0.718774132 0.539480702 -0.002437904
## [140,] 0.015691950 -0.032614414 0.158451038 0.015696954 -0.043289449
## [141,] 0.308332279 0.308811899 0.564740226 0.308356272 -0.026986407
## [142,] 2.186854751 1.919658947 1.304695031 2.186565704 0.498453038
## [143,] 0.165212504 0.138741046 0.386580018 0.165234835 -0.034402590
## [144,] -0.728896116 -0.717183317 -0.628574330 -0.728867231 -0.446954356
## [145,] -0.721925115 -0.707649490 -0.621337950 -0.721898235 -0.448229271
## [146,] -0.289181331 -0.359202540 -0.368900277 -0.289186995 -0.235055645
## [147,] 2.156577207 2.927006312 3.613647065 2.156314971 1.265141920
## [148,] 1.335044092 1.951442143 2.360561099 1.335037027 0.998873016
## [149,] 1.842144628 2.332447760 2.673894753 1.842125661 1.354215120
## [150,] 1.919155613 2.060231613 2.390930730 1.919501867 1.337085037
## [151,] 1.156375853 1.648852575 2.289553985 1.156086762 2.004170221
## [152,] 4.019028185 5.116703599 6.709167890 4.019399651 4.757305533
## [153,] 2.676589661 3.133954576 3.487310015 2.676288407 3.409406374
## [154,] -0.040678350 -0.083295565 0.091219119 -0.040680264 -0.055725751
## [155,] 0.002178639 -0.043869304 0.147905939 0.002180323 -0.042881995
## [156,] 0.006892743 -0.039375672 0.154365691 0.006894905 -0.041761856
## [157,] -0.013515464 -0.057543695 0.132141132 -0.013516589 -0.044380395
## [158,] 1.028923531 0.316237149 0.306556207 1.028930792 2.043813173
## [159,] -0.007055611 -0.049955031 0.149975518 -0.007058590 -0.036925604
## [160,] 0.015691950 -0.032614414 0.158451038 0.015696954 -0.043289449
## [161,] 0.040634603 -0.008183448 0.192708035 0.040642505 -0.038971499
## [162,] 0.027763785 -0.021965738 0.170506279 0.027771167 -0.042493255
## [163,] 0.040634603 -0.008183448 0.192708035 0.040642505 -0.038971499
## [164,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [165,] 0.016179270 -0.180290771 -0.173054097 0.015856534 0.345131070
## [166,] -0.725903839 -0.711700245 -0.625460918 -0.725876327 -0.448789539
## [167,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [168,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [169,] -0.723288954 -0.709871985 -0.622244390 -0.723261421 -0.446856145
## [170,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [171,] -0.643468008 -0.666498102 -0.752895993 -0.643426592 -0.471993149
## [172,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [173,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [174,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [175,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [176,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [177,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [178,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [179,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [180,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [181,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [182,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [183,] -0.728392586 -0.719061691 -0.632728443 -0.728363233 -0.450664323
## [184,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [185,] -0.734269753 -0.729464575 -0.637553419 -0.734238908 -0.446800677
## [186,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [187,] -0.824328965 -0.750234150 -0.636976805 -0.824495677 -0.350167033
## [188,] -0.824328965 -0.750234150 -0.636976805 -0.824495677 -0.350167033
## [189,] -0.728969994 -0.721062490 -0.634669468 -0.728940300 -0.451228475
## [190,] -0.715306751 -0.694966744 -0.601044691 -0.715280505 -0.433962480
## [191,] -0.610643979 -0.608250682 -0.509549973 -0.610618097 -0.396865455
## [192,] -0.719880093 -0.703146323 -0.613425176 -0.719853419 -0.442172294
## [193,] -0.291945432 -0.350121772 -0.436246490 -0.291953898 2.010643065
## [194,] -0.458695387 -0.440274569 -0.408360574 -0.458730841 -0.231869996
## [195,] -0.726008524 -0.713229823 -0.625148729 -0.725980372 -0.446872021
## [,16] [,17] [,18] [,19] [,20] [,21]
## [1,] -0.11009211 0.52611289 1.44344794 0.79979323 0.155344739 -0.77421443
## [2,] -0.30102809 -0.63177560 1.87860754 1.31643484 1.074249239 -0.08303995
## [3,] -0.30102809 -0.63177560 1.87860754 1.31643484 1.074249239 -0.08303995
## [4,] -0.30102809 -0.63177560 1.87860754 1.31643484 1.074249239 -0.08303995
## [5,] -0.30102809 -0.63177560 1.87860754 1.31643484 1.074249239 -0.08303995
## [6,] -0.30102809 -0.63177560 1.87860754 1.31643484 1.074249239 -0.08303995
## [7,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [8,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [9,] -0.06525368 0.59268225 1.11690154 0.53568178 0.323983507 -0.49509283
## [10,] -0.10422866 0.59886945 1.17024796 0.59753546 0.253567716 -0.54011598
## [11,] -0.06205587 0.60070223 1.13403623 0.54107703 0.364624668 -0.48265215
## [12,] -0.07657647 0.60232008 1.14288793 0.55836225 0.330103242 -0.49847180
## [13,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [14,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [15,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [16,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [17,] 0.78869043 -0.56081749 0.43467310 -0.51689574 -0.168729895 -0.51900910
## [18,] -0.35092769 1.28224396 -2.00467722 2.49640759 2.471847424 1.62576161
## [19,] -1.02275300 1.48332257 -0.05509814 1.36946198 1.336669927 1.57898063
## [20,] -0.48074136 1.07038343 -0.18412305 0.36774930 0.152814274 -0.03003444
## [21,] -0.44060187 1.01170137 -0.17148545 0.35310944 0.071080113 -0.11364425
## [22,] -0.41954165 0.97727742 -0.16114029 0.34733308 0.029565781 -0.15809535
## [23,] -0.45878329 1.03541196 -0.18169616 0.35784151 0.104961887 -0.07313757
## [24,] -0.40979557 0.95330207 -0.15185132 0.34343526 0.006544737 -0.17846034
## [25,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [26,] -0.38321868 0.86702002 -0.07829953 0.33115092 -0.062401721 -0.24305972
## [27,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [28,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [29,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [30,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [31,] 0.77996219 -0.88091937 0.47601127 -0.60138433 -0.261149710 -0.31204992
## [32,] 0.77609159 -0.86511291 0.47765704 -0.59397838 -0.255002088 -0.31830942
## [33,] 1.23261691 -1.14296414 0.32393020 -1.08168820 -0.521079199 -0.54129069
## [34,] 1.50791577 -1.04031839 0.30612328 -1.35318944 -0.605580207 -0.92600154
## [35,] 1.57874629 -1.01064577 0.31103248 -1.41312701 -0.616901173 -1.04544115
## [36,] 0.77039219 -0.79590017 0.47642624 -0.56900659 -0.230868164 -0.35780689
## [37,] 0.78697547 -0.64284085 0.45941669 -0.53197349 -0.188770682 -0.48397016
## [38,] 0.78697547 -0.64284085 0.45941669 -0.53197349 -0.188770682 -0.48397016
## [39,] 0.78697547 -0.64284085 0.45941669 -0.53197349 -0.188770682 -0.48397016
## [40,] 0.78697547 -0.64284085 0.45941669 -0.53197349 -0.188770682 -0.48397016
## [41,] 0.78697547 -0.64284085 0.45941669 -0.53197349 -0.188770682 -0.48397016
## [42,] 0.78300409 -0.67505225 0.46179625 -0.53942384 -0.196974467 -0.45602176
## [43,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [44,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [45,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [46,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [47,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [48,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [49,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [50,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [51,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [52,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [53,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [54,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [55,] -0.10341487 0.52846627 1.42732051 0.78211265 0.169260196 -0.75737985
## [56,] -0.10341487 0.52846627 1.42732051 0.78211265 0.169260196 -0.75737985
## [57,] -0.10240373 0.52414999 1.44170027 0.79314994 0.166696207 -0.77104347
## [58,] -0.10317436 0.53434933 1.40565871 0.76455559 0.175895300 -0.73670940
## [59,] -0.10341487 0.52846627 1.42732051 0.78211265 0.169260196 -0.75737985
## [60,] -0.10240373 0.52414999 1.44170027 0.79314994 0.166696207 -0.77104347
## [61,] 0.78023253 -0.74035518 0.45872870 -0.55901355 -0.219597868 -0.40814476
## [62,] 0.78023253 -0.74035518 0.45872870 -0.55901355 -0.219597868 -0.40814476
## [63,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [64,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [65,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [66,] 0.79893726 -0.92127926 0.43909066 -0.62915361 -0.292749747 -0.30959204
## [67,] -0.37654824 0.75877582 0.01418363 0.31046307 -0.140049066 -0.28752320
## [68,] -0.37654824 0.75877582 0.01418363 0.31046307 -0.140049066 -0.28752320
## [69,] -0.42788353 0.48215315 0.14940237 0.27320078 -0.243233218 -0.22611068
## [70,] -0.44306678 0.43698005 0.16166812 0.25918516 -0.271980207 -0.21859377
## [71,] -0.37715481 0.74528295 0.02106894 0.30632658 -0.151751479 -0.29256790
## [72,] -0.38712323 0.76139779 0.02450647 0.32185007 -0.114354309 -0.25396532
## [73,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [74,] 0.51819434 0.10219242 1.27867888 0.26653122 0.955346724 -1.17497496
## [75,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [76,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [77,] -0.09885691 0.59880429 1.11354304 0.56034083 0.247831110 -0.51727675
## [78,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [79,] -0.14993318 0.60460022 1.17598986 0.63475944 0.160802051 -0.56939247
## [80,] -0.13777924 0.57928647 1.27035602 0.68821608 0.158019156 -0.63214403
## [81,] -0.26630284 0.68987645 0.70794229 0.47686672 0.029282179 -0.39549192
## [82,] -0.16900282 0.62025619 1.11369061 0.61054862 0.139945226 -0.53865469
## [83,] -0.17779349 0.63280391 1.05481913 0.58343949 0.134014178 -0.51034480
## [84,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [85,] -0.73988867 1.23538470 -0.15769580 0.56402989 0.639016116 0.38505215
## [86,] -0.66106803 0.93504740 -0.35754940 0.17541612 0.478973550 0.43913029
## [87,] -0.56554165 0.95064428 -0.33655420 0.25959393 0.310966064 0.30428570
## [88,] -1.69925985 0.99820173 0.35439773 0.08394227 0.904507573 1.75095811
## [89,] -1.69925985 0.99820173 0.35439773 0.08394227 0.904507573 1.75095811
## [90,] -2.23321185 0.88709529 0.47589713 1.16597467 1.767599400 3.29484787
## [91,] -2.20360951 1.42148207 0.27483010 0.96757848 1.819471009 2.35624874
## [92,] -0.50158516 0.02135569 -0.07009562 -0.66269393 -0.233478844 -0.10007491
## [93,] 0.66691575 -0.47174040 0.35248562 -0.45253211 -0.119818147 -0.36320887
## [94,] -0.21778635 -0.39949180 -0.29038503 -0.41444615 -0.687276217 -0.72896091
## [95,] 0.51191754 -0.03205688 0.19190871 -0.29681874 -0.104320584 -0.49453769
## [96,] 0.78859327 -0.62868519 0.45853188 -0.52877910 -0.185313982 -0.49618482
## [97,] 0.78859327 -0.62868519 0.45853188 -0.52877910 -0.185313982 -0.49618482
## [98,] -1.44347893 1.18438168 -0.10685466 1.38037815 0.377033595 0.67795346
## [99,] -1.44354253 0.77003908 -0.42934364 0.62253375 -0.182317973 0.24108893
## [100,] -2.11243115 1.34727465 -0.80150927 1.74919562 0.227263473 0.66101790
## [101,] -2.94163301 1.66211860 -1.10693283 1.81970156 0.407293823 1.59153190
## [102,] -1.56061283 1.35401607 -1.32325344 1.37141648 0.964655486 0.66986497
## [103,] -2.57514268 0.94116657 -1.38573949 2.21509129 0.529107933 0.80744959
## [104,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [105,] 0.78859327 -0.62868519 0.45853188 -0.52877910 -0.185313982 -0.49618482
## [106,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [107,] 0.78859327 -0.62868519 0.45853188 -0.52877910 -0.185313982 -0.49618482
## [108,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [109,] 0.78859327 -0.62868519 0.45853188 -0.52877910 -0.185313982 -0.49618482
## [110,] 0.76490567 -0.57273262 0.41899380 -0.50846913 -0.152585576 -0.43924235
## [111,] 0.78859327 -0.62868519 0.45853188 -0.52877910 -0.185313982 -0.49618482
## [112,] 0.77258415 -0.71984401 0.47253154 -0.54641558 -0.204670690 -0.40851320
## [113,] 0.72884829 -0.82858176 0.51534807 -0.54490293 -0.214755911 -0.25593477
## [114,] 0.78300409 -0.67505225 0.46179625 -0.53942384 -0.196974467 -0.45602176
## [115,] 0.78697547 -0.64284085 0.45941669 -0.53197349 -0.188770682 -0.48397016
## [116,] 0.54074383 -0.61687500 -0.95828766 0.65904659 0.668360359 0.88638144
## [117,] 0.77511427 -0.25802363 -0.95576858 -0.17271194 0.665855697 0.68766040
## [118,] 0.78352655 -0.22149175 -0.97000597 0.72638810 1.704822341 1.25235007
## [119,] 0.78352655 -0.22149175 -0.97000597 0.72638810 1.704822341 1.25235007
## [120,] 0.47712494 -0.21701376 -2.31764999 0.19161192 1.730455030 1.30003635
## [121,] 0.77511427 -0.25802363 -0.95576858 -0.17271194 0.665855697 0.68766040
## [122,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [123,] -0.38125651 0.74943264 0.02305391 0.31248957 -0.137710552 -0.27694478
## [124,] -0.38428360 0.74119063 0.03367948 0.18387055 -0.438233093 -0.55137828
## [125,] -0.39797172 0.75712562 0.04761572 0.15872365 -0.507171231 -0.61086387
## [126,] -0.40687886 0.76314383 0.05664804 0.14910427 -0.537104172 -0.63395526
## [127,] -0.40968177 0.76528794 0.05939380 0.14611620 -0.546439967 -0.64125516
## [128,] -0.39797172 0.75712562 0.04761572 0.15872365 -0.507171231 -0.61086387
## [129,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [130,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [131,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [132,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [133,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [134,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [135,] -0.58978948 1.18763684 -0.16818574 0.43440297 0.379611220 0.14592338
## [136,] -0.45138275 1.03234183 -0.17293847 0.35705591 0.095291365 -0.09312291
## [137,] -0.54304292 1.14551161 -0.17650314 0.40306163 0.284721467 0.07832173
## [138,] -0.64281126 1.22658344 -0.15573260 0.47100062 0.482404313 0.20706084
## [139,] -0.67302988 1.24549543 -0.14736320 0.49122323 0.538278112 0.23503238
## [140,] -0.37198364 0.89505047 -0.13729213 0.32635073 -0.065141201 -0.26080371
## [141,] -0.53336034 1.11302885 -0.21307809 0.40639839 0.259434012 0.11286423
## [142,] -1.60657470 1.00892830 -0.05427716 0.14594803 0.862679881 1.43087618
## [143,] -0.45742348 0.98402273 -0.22693962 0.33205573 0.080221095 -0.03591564
## [144,] 0.78213259 -0.61375684 0.43313513 -0.52583544 -0.177557580 -0.46563915
## [145,] 0.77568247 -0.66351363 0.44652774 -0.53494399 -0.187380520 -0.42887476
## [146,] -0.26546120 0.45235682 -2.22534594 0.11655400 1.096898717 0.97471028
## [147,] -2.15285060 0.59253116 1.28949747 2.17592224 2.126379611 2.64390868
## [148,] -1.76965410 -0.10591925 0.90574154 1.36889432 1.516656286 1.99916300
## [149,] -2.13034633 0.46645274 0.87989775 2.03572194 1.402838274 2.31578224
## [150,] -1.55838761 -0.68215790 1.04106928 0.72641103 0.428932731 1.38035249
## [151,] -2.09554728 0.09381219 0.81271860 1.15359031 1.370549210 1.56619860
## [152,] -3.03788753 1.22501781 0.90756658 2.98141854 2.685457453 1.82183040
## [153,] -2.81013020 0.82381231 0.65689734 2.60926474 1.555212336 2.09561886
## [154,] -0.33671627 0.86781473 -0.15537905 0.30076898 -0.114699997 -0.32743374
## [155,] -0.36508509 0.90011994 -0.15809668 0.32372091 -0.070756141 -0.27165600
## [156,] -0.36807925 0.90395016 -0.15816762 0.32583519 -0.065534784 -0.26538751
## [157,] -0.35585779 0.89878486 -0.17244406 0.31897878 -0.080670539 -0.28707630
## [158,] -0.64277761 1.26894888 -1.28398803 2.04676489 0.915770925 1.51379958
## [159,] -0.36141622 0.92241656 -0.20132930 0.32904863 -0.062622820 -0.26800225
## [160,] -0.37198364 0.89505047 -0.13729213 0.32635073 -0.065141201 -0.26080371
## [161,] -0.38705516 0.91549674 -0.13479772 0.33571146 -0.036351714 -0.22819585
## [162,] -0.37835969 0.89590092 -0.12587091 0.33009114 -0.056552668 -0.24843667
## [163,] -0.38705516 0.91549674 -0.13479772 0.33571146 -0.036351714 -0.22819585
## [164,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [165,] -0.76993244 1.64768347 -0.77536761 2.46924925 1.982761637 0.47984302
## [166,] 0.78191045 -0.65588675 0.44220780 -0.53654255 -0.190801511 -0.44839165
## [167,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [168,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [169,] 0.77489132 -0.64521233 0.44126958 -0.52881153 -0.180389150 -0.43157179
## [170,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [171,] 0.51617658 -0.78596517 -1.31809472 -1.28516803 -1.288572258 -0.30173983
## [172,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [173,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [174,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [175,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [176,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [177,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [178,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [179,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [180,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [181,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [182,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [183,] 0.79041941 -0.60922317 0.45556188 -0.52475320 -0.180881623 -0.51042919
## [184,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [185,] 0.78412520 -0.51263686 0.42192110 -0.50867720 -0.155595528 -0.53067539
## [186,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [187,] 0.58787132 0.46169795 -0.94156421 -0.64589952 -1.055945878 -0.56120324
## [188,] 0.58787132 0.46169795 -0.94156421 -0.64589952 -1.055945878 -0.56120324
## [189,] 0.79253628 -0.59416167 0.45892034 -0.52106316 -0.177489366 -0.52872161
## [190,] 0.74441393 -0.65373462 0.38278641 -0.51358942 -0.166087425 -0.32115697
## [191,] 0.59602835 -0.45920506 0.29174515 -0.42005671 -0.132227066 -0.29415035
## [192,] 0.76177177 -0.65794885 0.42067139 -0.52542111 -0.176303445 -0.37709096
## [193,] -0.89818012 -0.86549106 -1.11955633 -1.00542657 -0.811977924 0.76639474
## [194,] 0.25076303 -0.52304942 -0.21070768 -0.32753525 -0.249717948 0.19940217
## [195,] 0.77852373 -0.63211150 0.43684730 -0.52808800 -0.179681022 -0.44690689
## [,22]
## [1,] 0.96243403
## [2,] 1.63519909
## [3,] 1.63519909
## [4,] 1.63519909
## [5,] 1.63519909
## [6,] 1.63519909
## [7,] -0.53231208
## [8,] -0.53231208
## [9,] 0.61521512
## [10,] 0.69211914
## [11,] 0.62381074
## [12,] 0.64427356
## [13,] -0.53231208
## [14,] -0.53231208
## [15,] -0.53231208
## [16,] -0.53231208
## [17,] -0.52953438
## [18,] 2.45889218
## [19,] 1.55395460
## [20,] 0.27861288
## [21,] 0.24858618
## [22,] 0.23350689
## [23,] 0.26082356
## [24,] 0.22605924
## [25,] -0.53599372
## [26,] 0.21314169
## [27,] -0.53599372
## [28,] -0.53599372
## [29,] -0.53231208
## [30,] -0.53231208
## [31,] -0.61577621
## [32,] -0.60836936
## [33,] -1.00898864
## [34,] -1.21981596
## [35,] -1.26770375
## [36,] -0.58236377
## [37,] -0.54297717
## [38,] -0.54297717
## [39,] -0.54297717
## [40,] -0.54297717
## [41,] -0.54297717
## [42,] -0.55055121
## [43,] -1.19569431
## [44,] -1.19569431
## [45,] -1.19569431
## [46,] -1.19569431
## [47,] -1.19569431
## [48,] -1.19569431
## [49,] -0.53231208
## [50,] -0.53231208
## [51,] -0.53231208
## [52,] -0.53231208
## [53,] -0.53231208
## [54,] -0.53231208
## [55,] 0.93930007
## [56,] 0.93930007
## [57,] 0.95409459
## [58,] 0.91588634
## [59,] 0.93930007
## [60,] 0.95409459
## [61,] -0.57070368
## [62,] -0.57070368
## [63,] -1.19569431
## [64,] -1.19569431
## [65,] -1.19569431
## [66,] -0.64178013
## [67,] 0.20301545
## [68,] 0.20301545
## [69,] 0.19431170
## [70,] 0.18487839
## [71,] 0.19964274
## [72,] 0.22016954
## [73,] -0.53231208
## [74,] 0.20485443
## [75,] -0.53231208
## [76,] -0.53231208
## [77,] 0.64228106
## [78,] -0.53231208
## [79,] 0.73599059
## [80,] 0.81011216
## [81,] 0.49239085
## [82,] 0.70007800
## [83,] 0.66113800
## [84,] -0.53231208
## [85,] 0.45817959
## [86,] 0.13556312
## [87,] 0.21615057
## [88,] 0.06531189
## [89,] 0.06531189
## [90,] 1.35555200
## [91,] 0.95421266
## [92,] -0.79859565
## [93,] -0.47178419
## [94,] -0.49817207
## [95,] -0.33107799
## [96,] -0.53981346
## [97,] -0.53981346
## [98,] 1.35910432
## [99,] 0.71238134
## [100,] 1.89829610
## [101,] 1.82435197
## [102,] 1.66649347
## [103,] 2.64341040
## [104,] -0.53599372
## [105,] -0.53981346
## [106,] -0.53599372
## [107,] -0.53981346
## [108,] -0.53599372
## [109,] -0.53981346
## [110,] -0.52310728
## [111,] -0.53981346
## [112,] -0.55857263
## [113,] -0.56456511
## [114,] -0.55055121
## [115,] -0.54297717
## [116,] 0.49893367
## [117,] -0.28402488
## [118,] 0.55604185
## [119,] 0.55604185
## [120,] 0.17173431
## [121,] -0.28402488
## [122,] -0.53599372
## [123,] 0.20766699
## [124,] 0.08553896
## [125,] 0.06736129
## [126,] 0.06108551
## [127,] 0.05914510
## [128,] 0.06736129
## [129,] -0.53231208
## [130,] -0.53231208
## [131,] -0.53231208
## [132,] -0.53231208
## [133,] -0.53231208
## [134,] -0.53231208
## [135,] 0.35407563
## [136,] 0.25736523
## [137,] 0.32497494
## [138,] 0.38111071
## [139,] 0.39383223
## [140,] 0.19436633
## [141,] 0.32970129
## [142,] 0.14206501
## [143,] 0.23982048
## [144,] -0.53842130
## [145,] -0.54755411
## [146,] 0.14622485
## [147,] 2.72174361
## [148,] 1.51569710
## [149,] 2.28846718
## [150,] 0.70600871
## [151,] 1.12816139
## [152,] 3.55989516
## [153,] 2.75378641
## [154,] 0.15895075
## [155,] 0.18575862
## [156,] 0.18868995
## [157,] 0.17610788
## [158,] 0.61377220
## [159,] 0.18053962
## [160,] 0.19436633
## [161,] 0.20998290
## [162,] 0.20224870
## [163,] 0.20998290
## [164,] -0.53231208
## [165,] 1.75338082
## [166,] -0.54853324
## [167,] -1.19569431
## [168,] -1.19569431
## [169,] -0.54184518
## [170,] -1.19569431
## [171,] -1.19569431
## [172,] -0.53231208
## [173,] -0.53231208
## [174,] -0.53231208
## [175,] -0.53231208
## [176,] -0.53231208
## [177,] -0.53231208
## [178,] -0.53599372
## [179,] -0.53599372
## [180,] -0.53599372
## [181,] -0.53599372
## [182,] -0.53599372
## [183,] -0.53599372
## [184,] -0.53231208
## [185,] -0.52266564
## [186,] -0.53231208
## [187,] -0.84607600
## [188,] -0.84607600
## [189,] -0.53231208
## [190,] -0.53175700
## [191,] -0.44363597
## [192,] -0.54063783
## [193,] -0.82727502
## [194,] -0.41146925
## [195,] -0.54084716plot(df, col = ms_res$assignment, main = "Mean Shift")
# Silhoutte
bandwidth_values <- seq(0.5,3,0.3)
avg_sil_ms <- sapply(bandwidth_values,function(b){
bw <- rep(b,ncol(df))
ms_res <- meanShift(df,bandwidth=bw)
cluster <- ms_res$assignment
if(length(unique(cluster))>1){
mean(silhouette(cluster,dist(df))[,3])
}else{
NA
}
})plot(bandwidth_values, avg_sil_ms, type="b", pch=19,
xlab="Jumlah Cluster",
ylab="Average Silhouette Mean Shift",
main="Silhouette Analysis")
FUZZY C-MEANS
# Clustering
fcm_res <- cmeans(df, centers = 2, m = 2)
fcm_res## Fuzzy c-means clustering with 2 clusters
##
## Cluster centers:
## MDVP.Fo.Hz. MDVP.Fhi.Hz. MDVP.Flo.Hz. MDVP.Jitter... MDVP.Jitter.Abs.
## 1 -0.2904020 -0.13221405 -0.3084982 0.5257648 0.5790287
## 2 0.1715583 0.01860342 0.2160156 -0.3698470 -0.4008442
## MDVP.RAP MDVP.PPQ Jitter.DDP MDVP.Shimmer MDVP.Shimmer.dB. Shimmer.APQ3
## 1 0.4970909 0.547110 0.4969758 0.7618163 0.7273897 0.7475046
## 2 -0.3510772 -0.380255 -0.3509919 -0.4986606 -0.4805070 -0.4937847
## Shimmer.APQ5 MDVP.APQ Shimmer.DDA NHR HNR RPDE
## 1 0.7484367 0.7000656 0.7475091 0.4219831 -0.7213678 0.5735243
## 2 -0.4852279 -0.4556308 -0.4937858 -0.2979854 0.5015490 -0.4274687
## DFA spread1 spread2 D2 PPE
## 1 0.19045524 0.6962959 0.4871051 0.4419200 0.7074258
## 2 -0.08486822 -0.4782630 -0.3169313 -0.2785712 -0.4782958
##
## Memberships:
## 1 2
## [1,] 0.77087537 0.22912463
## [2,] 0.80072363 0.19927637
## [3,] 0.79685141 0.20314859
## [4,] 0.79924950 0.20075050
## [5,] 0.75338621 0.24661379
## [6,] 0.76841273 0.23158727
## [7,] 0.20907652 0.79092348
## [8,] 0.20830303 0.79169697
## [9,] 0.43807555 0.56192445
## [10,] 0.56293914 0.43706086
## [11,] 0.49825279 0.50174721
## [12,] 0.59237920 0.40762080
## [13,] 0.10519889 0.89480111
## [14,] 0.14554062 0.85445938
## [15,] 0.11274036 0.88725964
## [16,] 0.17418989 0.82581011
## [17,] 0.28841363 0.71158637
## [18,] 0.64890294 0.35109706
## [19,] 0.81591698 0.18408302
## [20,] 0.80313046 0.19686954
## [21,] 0.82843810 0.17156190
## [22,] 0.72937119 0.27062881
## [23,] 0.70914951 0.29085049
## [24,] 0.64976417 0.35023583
## [25,] 0.22522688 0.77477312
## [26,] 0.71248199 0.28751801
## [27,] 0.10141987 0.89858013
## [28,] 0.08595430 0.91404570
## [29,] 0.12194791 0.87805209
## [30,] 0.08970647 0.91029353
## [31,] 0.15740504 0.84259496
## [32,] 0.16954771 0.83045229
## [33,] 0.18695355 0.81304645
## [34,] 0.20926737 0.79073263
## [35,] 0.22387100 0.77612900
## [36,] 0.18847118 0.81152882
## [37,] 0.13224892 0.86775108
## [38,] 0.13144066 0.86855934
## [39,] 0.10205060 0.89794940
## [40,] 0.11538944 0.88461056
## [41,] 0.12658405 0.87341595
## [42,] 0.15891322 0.84108678
## [43,] 0.22948702 0.77051298
## [44,] 0.22403754 0.77596246
## [45,] 0.22532874 0.77467126
## [46,] 0.21943006 0.78056994
## [47,] 0.22981381 0.77018619
## [48,] 0.22463314 0.77536686
## [49,] 0.15940875 0.84059125
## [50,] 0.13782300 0.86217700
## [51,] 0.18397542 0.81602458
## [52,] 0.16146104 0.83853896
## [53,] 0.12943202 0.87056798
## [54,] 0.16835683 0.83164317
## [55,] 0.56348222 0.43651778
## [56,] 0.69041734 0.30958266
## [57,] 0.69820211 0.30179789
## [58,] 0.49483873 0.50516127
## [59,] 0.55201001 0.44798999
## [60,] 0.64166687 0.35833313
## [61,] 0.15718172 0.84281828
## [62,] 0.15418503 0.84581497
## [63,] 0.17269993 0.82730007
## [64,] 0.23881859 0.76118141
## [65,] 0.22291431 0.77708569
## [66,] 0.20247037 0.79752963
## [67,] 0.65180200 0.34819800
## [68,] 0.67524703 0.32475297
## [69,] 0.76977377 0.23022623
## [70,] 0.65871991 0.34128009
## [71,] 0.61423376 0.38576624
## [72,] 0.92788111 0.07211889
## [73,] 0.18793827 0.81206173
## [74,] 0.42826793 0.57173207
## [75,] 0.29843558 0.70156442
## [76,] 0.32692844 0.67307156
## [77,] 0.55160925 0.44839075
## [78,] 0.28300559 0.71699441
## [79,] 0.59783141 0.40216859
## [80,] 0.76863284 0.23136716
## [81,] 0.78873328 0.21126672
## [82,] 0.66550386 0.33449614
## [83,] 0.47104877 0.52895123
## [84,] 0.28869530 0.71130470
## [85,] 0.82924294 0.17075706
## [86,] 0.60341530 0.39658470
## [87,] 0.51333912 0.48666088
## [88,] 0.75365516 0.24634484
## [89,] 0.73535185 0.26464815
## [90,] 0.73412306 0.26587694
## [91,] 0.76942027 0.23057973
## [92,] 0.64792407 0.35207593
## [93,] 0.47627720 0.52372280
## [94,] 0.62018325 0.37981675
## [95,] 0.32850316 0.67149684
## [96,] 0.17856540 0.82143460
## [97,] 0.20111108 0.79888892
## [98,] 0.83388589 0.16611411
## [99,] 0.80848351 0.19151649
## [100,] 0.71152084 0.28847916
## [101,] 0.60801346 0.39198654
## [102,] 0.76861740 0.23138260
## [103,] 0.61378099 0.38621901
## [104,] 0.15974290 0.84025710
## [105,] 0.15177267 0.84822733
## [106,] 0.09786104 0.90213896
## [107,] 0.13317080 0.86682920
## [108,] 0.09345636 0.90654364
## [109,] 0.13951101 0.86048899
## [110,] 0.47398461 0.52601539
## [111,] 0.25335793 0.74664207
## [112,] 0.17950817 0.82049183
## [113,] 0.40100979 0.59899021
## [114,] 0.15065290 0.84934710
## [115,] 0.20491012 0.79508988
## [116,] 0.43729421 0.56270579
## [117,] 0.25687519 0.74312481
## [118,] 0.40363432 0.59636568
## [119,] 0.34981979 0.65018021
## [120,] 0.31276130 0.68723870
## [121,] 0.32442439 0.67557561
## [122,] 0.21908942 0.78091058
## [123,] 0.77822515 0.22177485
## [124,] 0.46579300 0.53420700
## [125,] 0.34142798 0.65857202
## [126,] 0.42021030 0.57978970
## [127,] 0.40905118 0.59094882
## [128,] 0.40015024 0.59984976
## [129,] 0.12032456 0.87967544
## [130,] 0.12251500 0.87748500
## [131,] 0.12048941 0.87951059
## [132,] 0.11186660 0.88813340
## [133,] 0.18186340 0.81813660
## [134,] 0.11152200 0.88847800
## [135,] 0.83971057 0.16028943
## [136,] 0.76809304 0.23190696
## [137,] 0.80020849 0.19979151
## [138,] 0.84155749 0.15844251
## [139,] 0.78027207 0.21972793
## [140,] 0.40854639 0.59145361
## [141,] 0.63853060 0.36146940
## [142,] 0.76299570 0.23700430
## [143,] 0.47307578 0.52692422
## [144,] 0.23130125 0.76869875
## [145,] 0.22005192 0.77994808
## [146,] 0.40888352 0.59111648
## [147,] 0.70809569 0.29190431
## [148,] 0.76642379 0.23357621
## [149,] 0.72579161 0.27420839
## [150,] 0.67006653 0.32993347
## [151,] 0.72406600 0.27593400
## [152,] 0.61213608 0.38786392
## [153,] 0.64600008 0.35399992
## [154,] 0.42620745 0.57379255
## [155,] 0.56115037 0.43884963
## [156,] 0.58559963 0.41440037
## [157,] 0.44856089 0.55143911
## [158,] 0.72067855 0.27932145
## [159,] 0.67032275 0.32967725
## [160,] 0.53093046 0.46906954
## [161,] 0.68497409 0.31502591
## [162,] 0.63749331 0.36250669
## [163,] 0.74333811 0.25666189
## [164,] 0.24169042 0.75830958
## [165,] 0.71408039 0.28591961
## [166,] 0.18960993 0.81039007
## [167,] 0.21790483 0.78209517
## [168,] 0.26770983 0.73229017
## [169,] 0.34517284 0.65482716
## [170,] 0.25004002 0.74995998
## [171,] 0.25859403 0.74140597
## [172,] 0.11684012 0.88315988
## [173,] 0.16274667 0.83725333
## [174,] 0.15772851 0.84227149
## [175,] 0.13375672 0.86624328
## [176,] 0.12958967 0.87041033
## [177,] 0.14852208 0.85147792
## [178,] 0.06252091 0.93747909
## [179,] 0.06667599 0.93332401
## [180,] 0.17011447 0.82988553
## [181,] 0.10885332 0.89114668
## [182,] 0.13104761 0.86895239
## [183,] 0.12063674 0.87936326
## [184,] 0.22224081 0.77775919
## [185,] 0.33194569 0.66805431
## [186,] 0.19776521 0.80223479
## [187,] 0.33678060 0.66321940
## [188,] 0.29774662 0.70225338
## [189,] 0.17154041 0.82845959
## [190,] 0.29399693 0.70600307
## [191,] 0.44543010 0.55456990
## [192,] 0.30238475 0.69761525
## [193,] 0.49639810 0.50360190
## [194,] 0.34236481 0.65763519
## [195,] 0.21776738 0.78223262
##
## Closest hard clustering:
## [1] 1 1 1 1 1 1 2 2 2 1 2 1 2 2 2 2 2 1 1 1 1 1 1 1 2 1 2 2 2 2 2 2 2 2 2 2 2
## [38] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 2 1 1 2 2 2 2 2 2 1 1 1 1 1 1 2 2
## [75] 2 2 1 2 1 1 1 1 2 2 1 1 1 1 1 1 1 1 2 1 2 2 2 1 1 1 1 1 1 2 2 2 2 2 2 2 2
## [112] 2 2 2 2 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 2 1 1 2 2 2 2 1 1
## [149] 1 1 1 1 1 2 1 1 2 1 1 1 1 1 1 2 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
## [186] 2 2 2 2 2 2 2 2 2 2
##
## Available components:
## [1] "centers" "size" "cluster" "membership" "iter"
## [6] "withinerror" "call"plot(df, col = fcm_res$cluster, main = "Fuzzy C-Means")
# Silhoutte
k_values <- 2:10
avg_sil_fcm <- sapply(k_values,function(k){
fcm_res <- cmeans(df,centers=k)
mean(silhouette(fcm_res$cluster,
dist(df))[,3])
})plot(k_values, avg_sil_fcm, type="b", pch=19,
xlab="Jumlah Cluster",
ylab="Average Silhouette Fuzzy C-Means",
main="Silhouette Analysis")
Metric
1. SILHOUETTE (-1 TO 1)
mean(silhouette(km_res$cluster, dist(df))[,3])## [1] 0.3936954mean(silhouette(kmed_res$clustering, dist(df))[,3])## [1] 0.25392valid <- db_res$cluster != 0
cluster_db <- db_res$cluster[valid]
data_db <- df[valid,]
if(length(unique(cluster_db)) > 1){
mean(silhouette(cluster_db,
dist(data_db))[,3])
}else{
NA
}## [1] NAmean(silhouette(ms_res$assignment, dist(df))[,3])## [1] 0.03072127mean(silhouette(fcm_res$cluster, dist(df))[,3])## [1] 0.30787382. DUNN-INDEX
stats <- cluster.stats(dist(df), km_res$cluster)
stats$dunn## [1] 0.08276228stats <- cluster.stats(dist(df), kmed_res$cluster)
stats$dunn## [1] 0.06765156valid <- db_res$cluster != 0
cluster_db <- db_res$cluster[valid]
data_db <- df[valid,]
if(length(unique(cluster_db)) > 1){
stats_db <- cluster.stats(
dist(data_db),
as.integer(as.factor(cluster_db))
)
}else{
NA
}## [1] NAstats_ms <- cluster.stats(dist(df), ms_res$assignment)
stats$dunn## [1] 0.06765156stats <- cluster.stats(dist(df), fcm_res$cluster)
stats$dunn## [1] 0.046178ARI SCORE
ari_score <- adjustedRandIndex(km_res$cluster, label)
ari_score## [1] -0.09103493ari_score <- adjustedRandIndex(kmed_res$cluster, label)
ari_score## [1] 0.1446048ari_score <- adjustedRandIndex(db_res$cluster, label)
ari_score## [1] 0ari_score <- adjustedRandIndex(ms_res$assignment, label)
ari_score## [1] 5.062451e-05ari_score <- adjustedRandIndex(fcm_res$cluster, label)
ari_score## [1] 0.0266435