69
Lampiran 1 DATA NILAI TPB IPB TAHUN AKADEMIK 2008/2009 Keterangan Banyak Mata Kuliah (Peubah) Banyak Mahasiswa (Objek) AG BI EU FI ID IG KA
: 14 : 3223
: Agama : Biologi : Ekonomi Umum : Fisika : Bahasa Indonesia : Bahasa Inggris : Kalkulus
KI PK PM OS PI KN SU
: Kimia : Pengantar Kewirausahaan : Pengantar Matematika : Olahraga dan Seni : Pengantar Ilmu Pertanian : Pendidikan Kewarganegaraan : Sosiologi Umum
No
AG
BI
EU
FI
ID
IG
KA
KI
PK
PM
OS
PI
KN
SU
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
3 3 4 3 4 3 4 3 3 3 4 4 3 3 2 3 4 3 3 4 3 3 4 4 3 4 4 4
3 0 1 1 2 2 4 2 1 4 4 2 2 1 3 2 2 1 1 1 3 1 3 4 4 2 4 3
4 0 2 2 4 4 4 2 1 4 4 4 4 4 4 3 4 3 3 2 4 3 4 4 3 4 4 4
3 2 1 1 3 2 4 2 2 3 3 2 1 2 3 3 2 1 2 2 2 2 3 2 2 3 3 2
4 2 2 2 4 3 4 2 2 4 4 3 3 3 3 3 4 3 3 2 3 2 4 4 4 4 4 4
3 3 3 2 3 3 3 3 2 4 2 3 3 4 4 3 4 2 4 2 2 2 3 4 4 3 4 4
3 0 0 1 3 2 3 1 0 2 3 2 2 2 2 2 2 2 1 1 3 1 2 2 1 2 3 2
2 1 2 1 3 2 2 2 1 3 2 1 2 2 3 2 2 1 1 2 3 2 2 3 2 3 4 2
4 4 4 4 3 4 3 4 4 4 3 3 3 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4
2 0 2 1 2 3 2 2 0 2 2 2 2 2 3 2 2 1 1 1 2 1 2 2 2 3 3 3
4 3 4 3 4 4 3 4 3 3 4 4 4 4 4 3 4 4 4 4 3 4 4 4 3 4 4 3
3 2 4 2 4 2 4 4 2 4 4 3 4 3 4 3 4 2 2 3 4 2 4 4 4 3 4 4
3 3 4 3 3 3 3 3 2 3 4 3 3 3 2 3 3 3 3 2 3 2 3 3 3 3 3 3
2 2 3 2 3 3 3 3 2 3 3 3 2 2 3 3 3 2 3 3 3 2 4 2 3 3 3 3
70
No
AG
BI
EU
FI
ID
IG KA
KI PK PM OS
PI
KN SU
29
3
3
4
2
3
3
2
3
4
2
4
4
3
2
30
3
0
1
1
2
2
0
0
4
0
4
1
2
2
31
3
2
4
2
4
4
1
2
4
1
3
3
3
3
32
3
3
4
3
4
4
2
3
4
3
3
4
4
3
33
3
2
3
2
2
3
3
3
4
3
4
3
2
3
34
3
1
3
2
2
3
2
2
4
2
4
2
3
3
35
3
1
3
1
3
3
1
2
4
2
4
3
2
3
36
4
3
4
2
4
4
1
3
4
2
3
3
3
3
37
3
2
4
1
3
3
1
2
4
2
3
3
2
3
38
3
2
3
1
2
2
1
2
4
1
3
3
2
2
39
4
3
4
2
4
4
2
3
3
2
4
3
3
3
40
3
1
1
2
2
2
1
1
4
1
3
3
2
3
3201
4
3
4
2
4
3
2
2
4
2
3
4
3
3
3202
3
2
3
2
3
2
2
2
4
2
4
4
3
4
3203
3
1
1
0
1
2
0
0
3
1
0
2
3
0
3204
4
1
4
2
2
3
1
1
4
0
4
1
2
3
3205
3
1
2
2
2
2
1
1
4
0
4
1
3
2
3206
3
1
2
2
2
2
1
1
4
1
3
1
2
2
3207
3
0
1
1
1
2
0
1
1
1
4
3
3
2
3208
3
2
4
2
3
3
2
2
3
2
3
3
3
3
3209
3
1
2
1
2
3
2
2
4
1
4
2
2
3
3210
3
2
4
2
3
4
2
2
4
2
3
4
3
3
3211
2
0
0
1
1
1
0
1
4
0
3
0
2
1
3212
3
0
4
1
1
3
1
0
4
0
3
2
2
2
3213
3
1
1
1
1
2
0
2
4
0
4
1
2
3
3214
3
1
0
1
2
4
1
1
4
0
4
2
3
3
3215
1
0
1
0
1
3
0
0
4
0
0
0
1
2
3216
1
0
0
1
0
3
0
0
4
0
3
1
2
2
3217
4
3
4
3
4
4
2
3
4
2
4
4
4
4
3218
3
2
3
1
3
2
1
1
4
2
3
3
3
2
3219
3
1
3
1
4
4
1
2
3
2
4
3
3
3
3220
3
0
0
1
0
1
0
0
3
1
4
1
0
3
3221
3
2
3
1
2
3
1
1
4
1
4
2
3
3
3222
4
3
2
2
2
3
0
1
4
3
4
1
3
3
3223
3
2
4
2
2
2
1
1
3
2
3
3
3
3
71
Lampiran 2 DATA NILAI TPB IPB TAHUN AKADEMIK 2009/2010 Keterangan Banyak Mata Kuliah (Peubah) Banyak Mahasiswa (Objek) AG BI EU FI ID IG KA
: 14 : 3053
: Agama : Biologi : Ekonomi Umum : Fisika : Bahasa Indonesia : Bahasa Inggris : Kalkulus
KI PK PM OS PI KN SU
: Kimia : Pengantar Kewirausahaan : Pengantar Matematika : Olahraga dan Seni : Pengantar Ilmu Pertanian : Pendidikan Kewarganegaraan : Sosiologi Umum
No
AG
BI
EU
FI
ID
IG
KA
KI
PK
PM
OS
PI
KN SU
1
4
2
1
1
3
3
0
1
4
1
4
3
3
2
2
4
4
4
3
3
4
3
3
4
2
4
3
4
4
3
4
3
4
2
4
4
2
3
4
3
3
3
4
3
4
4
1
2
2
3
3
2
2
3
2
4
4
3
3
5
4
4
4
4
4
4
3
3
4
3
4
4
4
3
6
4
2
4
2
4
3
2
3
4
2
4
3
3
3
7
3
2
4
3
4
4
2
2
4
3
4
3
2
3
8
4
3
3
3
4
4
2
3
3
2
3
3
3
3
9
3
2
1
1
2
2
0
1
4
1
4
3
2
1
10
3
1
1
1
1
3
0
1
4
0
4
3
3
2
11
4
3
2
1
3
3
2
3
4
2
4
3
3
2
12
4
2
1
3
2
3
1
2
4
0
4
3
4
3
13
4
4
4
4
4
4
4
3
4
3
4
4
4
3
14
3
1
2
2
2
2
2
2
4
2
3
2
3
2
15
4
2
2
2
3
2
1
1
3
1
3
3
2
3
16
3
3
4
3
4
3
3
3
4
3
3
3
3
3
17
3
2
3
3
3
3
2
3
4
2
4
3
3
3
18
3
3
2
3
2
4
3
2
4
3
3
2
4
2
19
3
3
4
2
4
3
2
2
4
2
3
3
3
3
20
3
0
1
1
2
2
0
1
4
1
4
1
2
3
21
4
3
3
2
2
3
1
2
4
1
4
3
3
3
22
3
2
4
2
3
4
2
2
4
2
4
4
3
3
23
4
3
4
3
4
3
2
3
4
2
3
4
3
3
24
4
2
4
3
3
3
2
2
4
1
4
3
3
3
25
4
2
3
4
4
3
2
2
4
2
4
3
3
3
26
4
3
4
3
4
3
2
2
4
2
4
3
3
3
27
3
2
2
1
3
3
2
1
2
2
4
2
3
2
28
4
3
4
3
3
3
2
2
4
2
4
3
3
3
72
No
AG
BI
EU
FI
ID IG KA KI PK
PM OS
PI
KN SU
29
3
2
2
2
2
2
2
2
4
2
4
3
3
3
30
4
2
4
2
2
2
2
2
4
1
4
3
2
3
31
3
3
1
3
4
4
2
3
4
3
3
3
3
3
32
4
3
2
2
3
4
2
2
3
2
3
3
3
3
33
4
3
2
1
2
4
2
1
4
2
4
3
3
3
34
4
2
2
1
3
3
1
2
4
2
4
4
3
3
35
3
1
4
2
3
3
3
1
3
2
3
3
2
3
36
4
1
2
2
4
3
1
2
4
2
4
4
3
2
37
1
0
1
2
0
3
1
1
4
1
4
3
2
3
38
3
2
3
1
3
3
2
2
4
1
3
3
4
3
39
4
2
1
1
3
2
1
2
4
1
4
2
3
3
40
4
4
4
3
4
4
3
3
4
3
4
4
3
4
3030
3
3
3
2
3
2
2
2
3
1
4
3
3
3
3031
3
1
3
1
3
3
2
1
4
1
4
3
2
3
3032
3
2
2
1
3
3
0
1
3
1
3
3
3
2
3033
3
1
1
1
2
3
1
1
3
1
3
3
4
2
3034
3
2
3
3
3
4
1
2
4
1
4
3
2
3
3035
3
2
1
1
4
2
0
1
4
0
4
3
2
3
3036
3
2
2
1
4
4
2
1
3
1
3
3
3
2
3037
3
1
1
1
2
3
0
0
3
0
4
2
4
1
3038
3
3
4
3
4
3
2
2
4
2
4
3
2
3
3039
3
3
4
2
4
4
2
3
4
1
4
3
3
3
3040
3
1
2
1
4
3
1
1
4
0
4
2
2
2
3041
4
3
3
2
3
2
2
2
4
1
3
2
2
3
3042
3
1
2
1
3
3
0
1
4
0
4
3
4
3
3043
4
2
3
2
3
3
2
2
3
2
4
3
3
3
3044
3
2
3
2
4
4
1
2
4
1
4
3
3
3
3045
4
2
3
1
4
3
1
2
4
1
4
3
3
3
3046
3
3
3
2
4
3
2
2
4
2
4
3
3
3
3047
3
2
4
1
3
4
1
2
4
1
4
3
3
3
3048
3
4
4
4
4
4
2
2
4
2
3
4
3
3
3049
4
2
4
3
4
4
2
3
4
2
4
3
2
3
3050
3
1
1
1
3
2
1
0
4
0
3
2
3
1
3051
4
0
1
1
2
2
0
0
4
0
4
1
4
2
3052
3
2
1
1
3
2
0
1
4
1
3
2
4
3
3053
4
3
4
4
4
4
4
4
4
3
4
3
4
3
73
Lampiran 3 Diagram Alir Seleksi Peubah Metode B1 Matriks data
Tentukan
AKU
Matriks Bobot Komponen Utama
0
Nilai eigen 1
2
1
Pilih sejumlah eigen < 0
1 +1
1
nilai
1 +2
nilai eigen dikaitkan dengan komponen utama terakhir yang bersesuaian dan dipilih satu peubah yang memiliki koefisien terbesar 1 1
Peubah dengan koefisien terbesar dihilangkan
1
Proses terus dilakukan dengan cara yang sama sehingga tersisa peubah
74
Lampiran 4 Diagram Alir Seleksi Peubah Metode B3 Matriks data
AKU Matriks Koefisien Komponen Utama
Tentukan
Dipilih koefisien utama terakhir
2 = +1
Urutan Menurun
( ) peubah pertama dalam urutan tersebut dihilangkan
komponen
adalah koefisien dari peubah ke-i pada komponen utama ke-j.
Lampiran 5 Implementasi Software Mathematica 8.0 pada Seleksi Peubah Analisis Komponen Utama menggunakan software Mathematica 8.0 BeginPackage@"MyPackage`AKU`"D AKU::usage="Analisis Komponen Utama - AKU@XD memberikan hasil analisis komponen utama dari matriks data X berdasarkan matriks kovarians" Begin@"`Private`"D AKUAdata_?MatrixQE:=Module@8d,n,p,sentroid,XT,X,sigma,eig,Var, Kumulatif,TotalVar,W<, H*Input Data*L d=Dimensions@dataD; n=d@@1DD; p=d@@2DD; H*Rataan Kolom*L sentroid=Table@Mean@data¬@@iDDD,8i,p
Automatic, TableAlignments-> RightDD; Print@"4. Tabel Eigen"D; Print@" "TableForm@8Round@eig,0.01D,Round@Var,0.01D, Round@Kumulatif,0.01D<,TableHeadings->88"Nilai Eigen","Proporsi" , "Kumulatif"<<,TableDirections->Row,TableAlignments-> RightDD; Print@" Scree plot data diberikan pada gambar di bawah ini"D; Print@ListPlot@eigDD; Print@" "D; Print@"Komponen Utama"D; Print@"Setelah dilakukan analisis"D; Print@"Komponen utama diberikan pada tabel berikut "D; Print@" "TableForm@Round@W¬,0.001D,TableHeadings-> Automatic, TableAlignments-> RightDD; Print@" "D; H*Akhir Program*L D; End@D EndPackage@D
Lampiran 6 Implementasi Software Mathematica 8.0 pada Seleksi Peubah Jarak Procrustes menggunakan software Mathematica 8.0 BeginPackage@"MyPackage`JarakProcrustes`"D JarakProcrustes::usage="JarakProcrustes@X, YD, memberikan nilai jarak antarkonfigurasi dan ukuran kesesuaian matriks X berdimensi Hn´pL dengan matriks Y berdimensi Hn´pL berdasarkan konsep analisis procrustes. Ukuran yang diberikan berupa nilai jarak antarkonfigurasi dan ukuran kesesuaian yang memiliki rentang 0 - 100%. Nilai jarak yang makin kecil atau ukuran kesesuaian yang makin besar menunjukan kedua konfigurasi makin dekat. Formula jarak procrustes antara konfigurasi X dan Y ETRD HX,YL = trHXTT XT L-
tr2 IXTT YT QM trIYTT YT M
Formula ukuran kesesuaian antara konfigurasi X dan Y ETRD L 100% R2 =H1trHX¬.XL " Begin@"`Private`"D JarakProcrustesAdataX_?MatrixQ,dataY_?MatrixQE:=Module@8X,Y,dx, nx,px,dy,ny,py,XT,YT,XTT,YTT,U,L,V,Q,JarakProcrustes,R<, H*Input Data*L X=dataX; Y=dataY; dx=Dimensions@XD; nx=dx@@1DD; px=dx@@2DD; dy=Dimensions@YD; ny=dy@@1DD; py=dy@@2DD; H*Proses Translasi dalam analisis procrustes*L XT=Table@X¬@@i,jDD-Mean@X¬@@iDDD,8i,px<,8j,nx
Lampiran 7 Implementasi Software Mathematica 8.0 pada Seleksi Peubah Seleksi Peubah Metode B2 BeginPackage@"MyPackage`MetodeB2`"D MetodeB2::usage="MetodeB2@XD Melakukan seleksi peubah dari matriks data X berdasarkan analisis komponen utama dengan menggunakan metode B2" Begin@"`Private`"D MetodeB2Adata_?MatrixQE:=ModuleA8d,n,p,XT,X,sigma,eig,Var, Kumulatif,TotalVar,W,q,A,pos<, H*Informasi Data*L d=Dimensions@dataD; n=d@@1DD; p=d@@2DD; H*Proses Translasi*L XT=Table@data¬@@i,jDD-Mean@data¬@@iDDD,8i,p<,8j,n88"Nilai Eigen","Proporsi" , "Kumulatif"<<,TableDirections->Row, TableAlignments-> RightDD; Print@" "D; Print@" Berdasarkan kajian teoritis seleksi peubah yang telah diuraikan dengan ",q, " peubah yang dipertahankan"D; Print@" Peubah yang dihilangkan adalah peubah ke ", Flatten@Reverse@pos@1DDDD; Print@" Jika terjadi duplikasi, peubah yang dihilangkan disesuaikan dengan tabel berikut"D; Print@" "TableForm@8Reverse@pos@1DD,Reverse@pos@2DD, Reverse@pos@3DD<,TableHeadings->88"Max1","Max2" ,"Max3"<<, TableDirections->Row, TableAlignments-> RightDD; Print@" Selesai "D; E; End@D EndPackage@D
Lampiran 8 Implementasi Software Mathematica 8.0 pada Seleksi Peubah Seleksi Peubah Metode B4 BeginPackage@"MyPackage`MetodeB4`"D MetodeB4::usage="MetodeB4@XD Melakukan seleksi peubah dari matriks data X berdasarkan analisis komponen utama dengan menggunakan metode B4" Begin@"`Private`"D MetodeB4Adata_?MatrixQE:=ModuleA8d,n,p,XT,X,sigma,eig,Var,Kumulatif, TotalVar,W,q,A,pos<, H* Informasi Data*L d=Dimensions@dataD; n=d@@1DD; p=d@@2DD; H*Proses Translasi*L XT=Table@data¬@@i,jDD-Mean@data¬@@iDDD,8i,p<,8j,n88"Nilai Eigen","Proporsi" , "Kumulatif"<<,TableDirections->Row, TableAlignments-> RightDD; Print@" "D; Print@" Hasil Program"D; Print@" Berdasarkan kajian teoritis seleksi peubah yang telah diuraikan dengan ",q, " peubah yang dipertahankan"D; Print@" Peubah yang dipertahankan adalah peubah ke ",pos@1DD; Print@" Jika terjadi duplikasi, peubah yang pertahankan disesuaikan dengan tabel berikut"D; Print@" "TableForm@8pos@1D,pos@2D,pos@3D<,TableHeadings->88"Max1", "Max2" ,"Max3"<<,TableDirections->Row,TableAlignments-> RightDD; Print@" Selesai "D; E; End@D EndPackage@D
Lampiran 9 Implementasi Software Mathematica 8.0 pada Seleksi Peubah Seleksi Peubah dengan Analisis Procrustes pada Skor Komponen Utama BeginPackage@"MyPackage`ProcrustesAKU`"D ProcrustesAKU::usage="ProcrustesAKU@X,kD, Melakukan seleksi peubah dari matriks data X berdasarkan analisis procrustes pada k skor komponen utama. Peubah yang memiliki jarak antarkonfigurasi terkecil atau memiliki ukuran kesesuaian terbesar merupakan peubah yang dapat dikeluarkan dari analisis" Begin@"`Private`"D ProcrustesAKUAdata_?MatrixQ,k_?IntegerQE:=Module@8d,n,p,Zdata,A1,Y1, ZY,ZY1,Zbasis,dx,nx,px,Y,dy,ny,py,XT,YT,X,SVD,U,L,V,Q,M,R2,pos,X1<, H*Informasi Data*L d=Dimensions@dataD; n=d@@1DD; p=d@@2DD; H*Membentuk skor komponen utama data awal*L Zdata=PrincipalComponents@N@dataDD; H*Menghilangkan setiap kolom matriks data secara berurutan*L A1=Table@Drop@data¬,8i 88"Jarak ", " Ukuran Kesesuaian H%L"<,Automatic<, TableAlignments->RightDD; Print@" "D; Print@"Dengan demikian nilai jarak terkecil atau nilai kesesuaian terbesar terdapat pada posisi ke ",pos@@1DDD; Print@"Diperoleh konfigurasi data yang baru yaitu matriks data awal dengan kolom ke",pos@@1DD, "telah dihilangkan "D; X1¬ D; End@D EndPackage@D
Lampiran 10 Implementasi Software Mathematica 8.0 pada Seleksi Peubah Seleksi Peubah dengan Analisis Procrustes BeginPackage@"MyPackage`SeleksiProcrustes`"D SeleksiProcrustes::usage="SeleksiProcrustes@XD memberikan hasil seleksi peubah dari matriks data X berdasarkan konsep analisis procrustes" Begin@"`Private`"D SeleksiProcrustesAdata_?MatrixQE:=Module@8dx,nx,px,A,YA,X,Y,dy,ny,py, XT,YT,SVD,U,L,V,Q,M,R2,pos,X1<, H*Informasi Data*L dx=Dimensions@dataD; nx=dx@@1DD; px=dx@@2DD; H*Membentuk konfigurasi Y dengan menghilangkan kolom matriks data secara berurutan dan menambahkan kolom 0 agar Y memiliki dimensi yang sama*L; A=Table@Drop@data¬,8i
H*Output*L Print@" "D; Print@" *****************************************************************"D; Print@" Implementasi Software Mathematica pada Seleksi Peubah "D; Print@" Seleksi Peubah dengan Analisis Procrustes "D; Print@" *****************************************************************"D; Print@" "D; Print@"Berdasarkan analisis yang telah dilakukan, diperoleh jarak antarkonfigurasi dan ukuran kesesuaian saat kolom ke-j dihilangkan"D; Print@" " TableForm@8Round@M,0.01D,Round@R2,0.01D<,TableHeadings-> 88"Jarak ", " Ukuran Kesesuaian H%L"<,Automatic<,TableAlignments->RightDD; Print@" "D; Print@"Dengan demikian nilai jarak terkecil atau nilai kesesuaian terbesar terdapat pada posisi ke ",pos@@1DDD; Print@"Diperoleh konfigurasi data yang baru yaitu matriks data awal dengan kolom ke",pos@@1DD, "telah dihilangkan "D; X1¬ D; End@D EndPackage@D
Lampiran 11 Implementasi Software Mathematica 8.0 pada Seleksi Peubah Ukuran Efisiensi berdasarkan Analisis Procrustes BeginPackage@"MyPackage`EMProcrustes`"D EMProcrustes::usage="EMProcrustes@X, YD, merupakan ukuran kesesuaian hasil seleksi peubah matriks X berdimensi Hn´pL yang telah direduksi menjadi matriks Y berdimensi Hn´qL, dengan q £ p, berdasarkan konsep analisis procrustes. Ukuran yang diberikan berupa nilai jarak antarkonfigurasi dan ukuran kesesuaian yang memiliki rentang 0 - 100%. Nilai jarak yang makin kecil atau ukuran kesesuaian yang makin besar menunjukan kedua konfigurasi makin dekat." Begin@"`Private`"D EMProcrustesAdataX_?MatrixQ,dataY_?MatrixQE:=ModuleB8ZX,ZY,k,ZXbasis, X,Y,dx,nx,px,dy,ny,py,XT,YT,XTT,YTT,U,L,V,Q,JarakProcrustes,R<, H*Input Data*L ZX=PrincipalComponents@N@dataXDD; ZY=PrincipalComponents@N@dataYDD; k=Dimensions@ZYD@@2DD; H*Membentuk konfigurasi yang akan dibandingkan*L ZXbasis=ZX¬@@;;kDD; X=ZXbasis¬; Y=ZY; dx=Dimensions@XD; nx=dx@@1DD; px=dx@@2DD; dy=Dimensions@YD; ny=dy@@1DD; py=dy@@2DD; H*Proses Translasi dalam analisis procrustes*L XT=Table@X¬@@i,jDD-Mean@X¬@@iDDD,8i,px<,8j,nx
89
Lampiran 12 Statistik (2 ) pada metode seleksi peubah dengan analisis procrustes pada skor komponen utama Data Nilai TPB IPB tahun akademik 2008/2009 untuk = 2 Iterasi
AG
1
25.42
278.88 172.43 319.06 367.36 179.89 476.98 172.81
BI
EU
FI
ID
IG
KA
KI
PK
PM
OS
0.94
257.99
2.00
311.23 72.77
2
25.27
PI
KN
43.06
SU
280.03 172.55 319.48 368.89 178.52 478.03 172.77
257.37
2.08
312.99 71.97
42.88
3
25.31 279.39 172.53 317.42 356.30 175.70 477.70 173.00
255.60
313.01 67.87
41.59
4
289.73 176.11 313.94 359.93 188.06 480.47 174.90
254.83
329.94 70.48
43.71
5
303.44 185.06 326.61 398.97 186.21 479.72 173.94
258.60
347.28 62.89
6
316.52 196.63 337.03 444.61 175.24 493.48 176.84
255.14
368.49
7
364.15 234.19 342.35 477.61
507.94 185.37
258.17
434.97
8
407.32 253.27 428.61 478.29
636.91
313.19
437.57
Lampiran 13 Statistik (2 ) pada metode seleksi peubah dengan analisis procrustes pada skor komponen utama Data Nilai TPB IPB tahun akademik 2008/2009 untuk = 3 Iterasi
AG
1
26.98
BI
EU
FI
ID
IG
KA
KI
2
26.91 328.17 918.16 494.87 680.37 603.01 487.94 186.51
260.63 153.11 316.80 223.79 85.53
3
335.47 1014.92 494.18 686.51 608.40 489.34 189.12
259.66 157.15 335.44 224.68 85.88
4
387.29 1943.67 507.15 644.07 771.48 504.17 195.23
267.84 146.60 351.22 214.68
5
598.41 2585.08 720.34 689.74 568.50 560.65 201.38
268.12
349.57 139.18
6
935.92 2378.70 1022.44 711.91 518.87 798.90 207.71
279.90
377.53
7
1099.42 2163.06 1971.37 782.28 438.82 903.95
328.15
8
892.37 2627.34 2389.23 686.49 617.54 1204.99
322.45 934.70 494.11 678.86 617.70 486.50 186.48
PK 1.81
PM
OS
PI
KN
SU
261.21 163.63 315.95 227.57 85.79
402.74 363.61
90
Lampiran 14 Statistik (2 ) pada metode seleksi peubah dengan analisis procrustes pada skor komponen utama Data Nilai TPB IPB tahun akademik 2009/2010 untuk = 2 Iterasi
AG
BI
EU
FI
ID
IG
1
45.96
372.50 219.18 486.87 336.08 86.24
2 3
KA
KI
PK
PM
OS
352.38 125.47
1.93
332.14
0.30
846.04 372.21 219.13 486.10 334.07 86.23
351.68 125.54
1.94
45.92 375.36 219.09 485.59 332.45 86.87
PI
KN
SU
180.63 65.95
55.45
332.68
180.72 66.42
55.51
354.02 125.53
332.19
184.51 64.31
55.05
4
420.72 226.58 464.85 361.56 104.75 391.34 127.49
364.04
216.79 71.24
58.16
5
502.00 238.56 475.30 412.20 118.86 424.48 130.14
390.33
255.01 80.81
6
552.05 277.80 436.56 341.52 75.29 372.98 131.93
334.21
166.45
7
577.51 325.17 444.92 342.68
351.83 135.85
345.89
156.44
8
619.64 364.47 504.98 354.36
390.28
387.51
162.83
Lampiran 15 Statistik (2 ) pada metode seleksi peubah dengan analisis procrustes pada skor komponen utama Data Nilai TPB IPB tahun akademik 2009/2010 untuk = 3 Iterasi
AG
1
46.13
2
46.22
3
BI
EU
FI
ID
IG
KA
KI
PK
PM
OS
PI
KN
SU
372.50 831.41 518.78 329.78 196.59 319.93 128.98
1.94
326.09
0.71
372.23 832.90 519.17 328.01 197.12 320.09 129.05
1.96
326.38
207.82 383.70 55.84
46.08 373.63 833.27 517.02 325.22 197.30 319.66 129.05
325.56
207.79 369.58 55.38
4
408.13 837.29 485.99 333.98 203.28 325.46 131.13
334.55
214.31 363.08 58.49
5
456.45 851.67 487.07 353.10 207.44 327.24 133.98
336.84
223.03 363.59
6
491.67 927.12 545.64 361.19 208.66 366.29
380.13
228.20 365.66
7
581.39 851.13 580.37 370.34
369.23
384.97
298.24 435.30
8
841.36 898.30 609.16 407.52
381.74
414.11
602.92
208.23 386.62 55.76
91
Lampiran 16 Statistik ( 2) pada metode seleksi peubah dengan analisis procrustes Data Nilai TPB IPB tahun akademik 2008/2009 Iterasi
AG
BI
EU
FI
ID
IG
KA
KI
PK
PM
1
775.65
1317.14 1292.05 1290.60 1330.54 1272.88 1139.38 1034.43 426.92
986.76
2
778.04
1316.58 1294.59 1290.45 1330.74 1276.24 1138.92 1034.07
3
OS
PI
KN
SU
922.95 1269.88
982.96
779.99
987.93
929.75 1270.19
984.25
780.56
1324.62 1297.17 1290.67 1358.75 1276.24 1138.25 1038.37
987.51
931.35 1273.39
986.10
781.00
4
1342.18 1300.54 1294.85 1360.14 1295.55 1138.21 1038.49
989.24
937.95 1289.57 1007.12
5
1343.85 1299.41 1295.83 1366.78 1304.71 1141.97 1038.74
989.03
1289.92 1026.02
6
1352.83 1323.09 1340.21 1368.48 1306.98 1287.20 1075.29
1291.64 1027.79
7
1361.30 1322.49 1339.71 1368.78 1332.17 1285.70 1076.87
1304.93
8
1446.62 1349.06 1376.99 1375.82 1353.16 1421.27
1312.08
Lampiran 17 Statistik ( 2) pada metode seleksi peubah dengan analisis procrustes Data Nilai TPB IPB tahun akademik 2009/2010 Iterasi
AG
1
690.35
2
690.72
BI
EU
FI
ID
IG
KA
KI
PK
PM
OS
PI
1162.18 1327.51 1243.37 1072.10 970.07
919.16
937.56
532.84
995.27
560.80
976.19
1047.90 812.21
1164.17 1330.15 1242.79 1077.36 970.03
919.62
937.08
997.26
561.82
976.87
1062.15 814.67
3
692.34 1163.70 1330.06 1243.76 1079.40 970.32
918.94
936.58
996.78
977.06
1063.75 815.47
4
1170.66 1333.03 1253.40 1106.42 970.45
918.48
942.20
996.49
984.43
1069.89 817.99
5
1178.29 1353.92 1254.50 1125.78 975.79
918.42
944.31
996.60
993.07
1073.37
6
1180.58 1391.64 1313.21 1131.53
993.94
1166.37
995.88
1073.62
7
1199.64 1391.79 1325.60 1161.50
993.77
1176.11
1001.12 1096.54
8
1267.81 1437.69 1384.04 1174.35
1247.88
1005.05 1100.78
976.00
KN
SU
92
Lampiran 18 Ukuran Efisiensi Metode Seleksi
2
2008
2009
q=7
q=8
q=7
q=8
B2
99.36%
99.6%
99.44%
99.61%
B4
99.12%
99.55%
99.17%
99.21%
APSKU k= 2
99.04%
99.09%
99.22%
99.24%
APSKU k= 3
99.27%
99.45%
99.37%
99.49%
AP
99.27%
99.41%
99.44%
99.56%
Lampiran 19 Petunjuk Penggunaan Implementasi Software Mathematica 8.0 pada Seleksi Peubah
Informasi Implementasi seleksi peubah pada software Mathematica 8.0 merupakan program paket yang disusun oleh penulis dalam rangka menyelesaikan tesis di Sekolah Pascasarjana Institut Pertanian Bogor (SPs IPB). Penggunaan implementasi program seleksi peubah membutuhkan pengetahuan dasar dalam pengoperasian software Mathematica 8.0. Oleh karena itu penulis berasumsi, pengguna telah memiliki pengetahuan dasar tentang software Mathematica 8.0.
Script program paket yang disusun, disimpan dalam root direktori instalasi software Mathematica 8.0 “C:\Program Files\Wolfram Research\Mathematica\8.0\AddOns\Applications”
Menggunakan Program Analisis Komponen Utama Memanggil paket program analisis komponen utama << AKU` Untuk mengetahui informasi tentang analisis komponen utama ? AKU Analisis Komponen Utama - AKU@XD memberikan hasil analisis komponen utama dari matriks data X berdasarkan matriks kovarians
Mengunakan program analisis komponen utama pada data (dengan contoh pada data TPB IPB) X = Import@ "E:\my c4MpuzT\The Thesis\Pembahasan1\dataTPB.xlsx"DP 1T; AKU@ XD
Menggunakan Program Jarak Procrustes Memanggil paket program jarak procrustes << JarakProcrustes` Untuk mengetahui informasi tentang analisis komponen utama ? JarakProcrustes JarakProcrustes@X, YD, memberikan nilai jarak antarkonfigurasi dan ukuran kesesuaian matriks X berdimensi Hn´pL dengan matriks Y berdimensi Hn´pL berdasarkan konsep analisis procrustes. Ukuran yang diberikan berupa nilai jarak antarkonfigurasi dan ukuran kesesuaian yang memiliki rentang 0 - 100%. Nilai jarak yang makin kecil atau ukuran kesesuaian yang makin besar menunjukan kedua konfigurasi makin dekat. Formula jarak procrustes antara konfigurasi X dan Y JarakProcrustes=Tr@XT¬.XTD-HHTr@XT¬.YT.QDL^2LTr@YT¬.YTDL; Formula ukuran kesesuaian antara konfigurasi X dan Y R^2=100% H1-HJarakProcrustesTr@XT¬.YTDLL dengan Q=VU¬, di mana V dan U merupakan matriks ortogonal dari penguraian singular bentuk lengkap XT¬ YT=ULV¬
Mengunakan program ukuran kesesuaian (dengan contoh pada data TPB IPB) Import data yang akan dibandingkan X = Import@ "E:\my c4MpuzT\The Thesis\Pembahasan1\dataTPB.xlsx"DP 1T; Y = Import@"E:\my c4MpuzT\The Thesis\Thesis3\hasil_seleksi08.xlsx"D@@1DD JarakProcrustes@ X, YD
Menggunakan Program Seleksi Peubah Metode B2 Memenggil paket program metode B2 << MetodeB2` Untuk mengetahui informasi tentang metode B2 ? MetodeB2 MetodeB2@XD Melakukan seleksi peubah dari matriks data X berdasarkan analisis komponen utama dengan menggunakan metode B2
Mengunakan Metode B2 pada data (dengan contoh pada data TPB IPB) X = Import@ "E:\my c4MpuzT\The Thesis\Pembahasan1\dataTPB.xlsx"DP 1T; MetodeB2@ XD
Menggunakan Program Seleksi Peubah Metode B4 Memanggil paket program metode B4 << MetodeB4` Untuk mengetahui informasi tentang metode B2 ? MetodeB4 MetodeB4@XD Melakukan seleksi peubah dari matriks data X berdasarkan analisis komponen utama dengan menggunakan metode B4
Mengunakan Metode B4 pada data (dengan contoh pada data TPB IPB) X = Import@ "E:\my c4MpuzT\The Thesis\Pembahasan1\dataTPB.xlsx"DP 1T; MetodeB4@ XD
Menggunakan Program Seleksi Peubah Analisis Procrustes pada Skor Komponen Utama Memanggil paket program metode Analisis Procrustes pada Skor Komponen Utama << ProcrustesAKU` Untuk mengetahui informasi tentang metode Analisis Procrustes pada Skor Komponen Utama ? ProcrustesAKU ProcrustesAKU@X,kD, Melakukan seleksi peubah dari matriks data X berdasarkan analisis procrustes pada k skor komponen utama pertama. Peubah yang memiliki jarak antarkonfigurasi terkecil atau memiliki ukuran kesesuaian terbesar merupakan peubah yang dapat dikeluarkan dari analisis
Mengunakan Metode Analisis Procrustes pada Skor Komponen Utama pada data (dengan contoh pada data TPB IPB) X = Import@ "E:\my c4MpuzT\The Thesis\Pembahasan1\dataTPB.xlsx"DP 1T; ProcrustesAKU@ X, 2D
Untuk mendapatkan hasil dari proses iteratif dapat menggunakan perintah For@i = 1, i £ 7, i ++, XR = ProcrustesAKU@X, 2D; X = XRD
Menggunakan Program Seleksi Peubah Analisis Procrustes Memanggil paket program metode Analisis Procrustes << SeleksiProcrustes` Untuk mengetahui informasi tentang metode Analisis Procrustes ? SeleksiProcrustes SeleksiProcrustes@XD memberikan hasil seleksi peubah dari matriks data X berdasarkan konsep analisis procrustes
Mengunakan Metode Analisis Procrustes pada Skor Komponen Utama pada data (dengan contoh pada data TPB IPB) X = Import@ "E:\my c4MpuzT\The Thesis\Pembahasan1\dataTPB.xlsx"DP 1T; SeleksiProcrustes@XD
Untuk mendapatkan hasil dari proses iteratif dapat menggunakan perintah For@i = 1, i £ 7, i ++, XR = SeleksiProcrustes@X, 2D; X = XRD
Menggunakan Ukuran Kesesuaian Hasil Seleksi Peubah Memanggil paket program Ukuran Kesesuaian << EMProcrustes` Untuk mengetahui informasi tentang metode Analisis Procrustes ? EMProcrustes EMProcrustes@X, YD, merupakan ukuran kesesuaian hasil seleksi peubah matriks X berdimensi Hn´pL yang telah direduksi menjadi matriks Y berdimensi Hn´qL, dengan q £ p, berdasarkan konsep analisis procrustes. Ukuran yang diberikan berupa nilai jarak antarkonfigurasi dan ukuran kesesuaian yang memiliki rentang 0 - 100%. Nilai jarak yang makin kecil atau ukuran kesesuaian yang makin besar menunjukan kedua konfigurasi makin dekat.
Mengunakan program ukuran kesesuaian (dengan contoh pada data TPB IPB) Import data yang akan dibandingkan X = Import@ "E:\my c4MpuzT\The Thesis\Pembahasan1\dataTPB.xlsx"DP 1T; Y = Import@"E:\my c4MpuzT\The Thesis\Thesis3\hasil_seleksi08.xlsx"D@@1DD EMProcrustes@ X, YD