固有値

D=Ip('s4.txt') #簡単な例: 4人の成績
## File: s4.txt / Class: data.frame / Rows: 4 / Columns: 3
##  
##         v1.English v2.Physics v3.Latin
## i1.Ana   9         14         18      
## i2.Juan 17          7         11      
## i3.Mary 15         13         14      
## i4.Ken   5         18          8
Ev=CorrespEv(); Ev #対応分析: E:固有値;R:相関係数; P:寄与率;C:累積寄与率
##        E      R     P      C
## 1 0.0898 0.2997 82.9%  82.9%
## 2 0.0186 0.1363 17.1% 100.0%
## 3 0.0000 0.0000  0.0% 100.0%

対角化

D=Ip('s4'); gChart() #簡単な例
## File: s4.txt / Class: data.frame / Rows: 4 / Columns: 3
##  
##         v1.English v2.Physics v3.Latin
## i1.Ana   9         14         18      
## i2.Juan 17          7         11      
## i3.Mary 15         13         14      
## i4.Ken   5         18          8

D0=CorrespDg(d=0); Dt(D0); gChart(D0) #対応分析:対角化(なし)
## Class: matrix, array / Rows: 4 / Columns: 3
##  
##         v1.English v2.Physics v3.Latin
## i1.Ana   9         14         18      
## i2.Juan 17          7         11      
## i3.Mary 15         13         14      
## i4.Ken   5         18          8

D1=CorrespDg(d=1); Dt(D1); gChart(D1) #対応分析:対角化(行)
## Class: matrix, array / Rows: 4 / Columns: 3
##  
##         v1.English v2.Physics v3.Latin
## i2.Juan 17          7         11      
## i3.Mary 15         13         14      
## i4.Ken   5         18          8      
## i1.Ana   9         14         18

D2=CorrespDg(d=2); Dt(D2); gChart(D2) #対応分析:対角化(列)
## Class: matrix, array / Rows: 4 / Columns: 3
##  
##         v3.Latin v1.English v2.Physics
## i1.Ana  18        9         14        
## i2.Juan 11       17          7        
## i3.Mary 14       15         13        
## i4.Ken   8        5         18

D3=CorrespDg(d=3); Dt(D3); gChart(D3) #対応分析:対角化(行/列)
## Class: matrix, array / Rows: 4 / Columns: 3
##  
##         v2.Physics v3.Latin v1.English
## i4.Ken  18          8        5        
## i1.Ana  14         18        9        
## i3.Mary 13         14       15        
## i2.Juan  7         11       17

対角化ヒートチャート

D=Ip('s4'); gChart() #簡単な例
## File: s4.txt / Class: data.frame / Rows: 4 / Columns: 3
##  
##         v1.English v2.Physics v3.Latin
## i1.Ana   9         14         18      
## i2.Juan 17          7         11      
## i3.Mary 15         13         14      
## i4.Ken   5         18          8

gChart(d=1) #対角化(行)

gChart(d=2) #対角化(列)

gChart(d=3) #対角化(行/列)

スコア

CorrespSc(s=0) #行スコア
##               [,1]       [,2]
## i1.Ana  -0.3144032  1.5456707
## i2.Juan  1.3345204 -0.6321826
## i3.Mary  0.3594851 -0.1920953
## i4.Ken  -1.5779373 -1.0702614
CorrespSc(s=1) #列スコア
##                   [,1]       [,2]
## v1.English  1.25932741 -0.8082233
## v2.Physics -1.20577148 -0.6414825
## v3.Latin    0.09355012  1.3830463

バイプロット

gCorrespBp(M=D,lx=’‘,ly=’‘,s=0,c=’‘,a=T,w=F,f=12,m=1)
M:数値行列,lx,ly:ラベル,s=[0]:変数+個体/s=1:変数/s=2:個体,
c:色指定(例:’V=>blue,..’),a:矢印,w:白黒,m:変数Vの乗数

D=Ip('s4.txt'); Dt() #簡単な例: 4人の成績
## File: s4.txt / Class: data.frame / Rows: 4 / Columns: 3
##  
##         v1.English v2.Physics v3.Latin
## i1.Ana   9         14         18      
## i2.Juan 17          7         11      
## i3.Mary 15         13         14      
## i4.Ken   5         18          8
## Class: data.frame / Rows: 4 / Columns: 3
##  
##         v1.English v2.Physics v3.Latin
## i1.Ana   9         14         18      
## i2.Juan 17          7         11      
## i3.Mary 15         13         14      
## i4.Ken   5         18          8
gCorrespBp()          #対応分析:バイプロット: 固有値*相関係数(X-Y軸)

gCorrespBp(c='V=>r')  #V文字色指定

gCorrespBp(c='V=>b,I=>c')   #V,I文字色指定