Kendal algorithm

1. ��������� �������� ������:

data<-Read{'/home/vova/aplus/CSV/mat.csv';0}

Òdata

�5 10

���� class<->data[4]

Òclass

�10

class

�1 1 1 1 1 2 2 2 2 2

data<-¢1Õdata

Òdata

�4 10

 

(<class)Separate¡<@1data

<� 1 3 3 3 3 3 3 2 2 2

<� 1 1 1 1 3 3 3 2 2 2

<� 1 1 3 3 3 3 3 3 3 2

<� 1 3 3 3 3 3 3 3 3 2

���

Separate¡{<class;<@1data}

<� 1 3 3 3 3 3 3 2 2 2

<� 1 1 1 1 3 3 3 2 2 2

<� 1 1 3 3 3 3 3 3 3 2

<� 1 3 3 3 3 3 3 3 3 2

 

2. ����� �������� �������:

���� r<-Kendal{class;data;0}

���� r

<� 1 1 1.210743262 2 3.446220303 3

<� 3 1 0.102729301 2 1.289614824 0

���� �Òr

2

3. ����������� ������������� ����������:

���� xu<-Plot2 r

xu

<� `Root

< < <� `1<1.2 `L2 `1>3.4

��� < < <� `1

������� < <� 0

����� < <� `3<0.1 `3>1.3

������� < < <� `1

����������� < <� 0

��������� < <� `2

���� �������< <� 0

����� < <� `2

������� < <� 0

 

// slotfiller ?

_issf xu

1

 

`show `xu is `tree

 

 

 

 

 

 

 

_