Library: | graphic |
See also: | plotface |
Quantlet: | grface | |
Description: | calculates Flury faces |
Usage: | draw = grface(obsrv, q, fl) | |
Input: | ||
obsrv | n x p matrix containing the observations | |
q | 1 x 36 matrix with the assignments to the face parts | |
fl | scalar, number of faces per line | |
Output: | ||
draw | graphical object showing the Flury faces |
eye size (1, 19), pupil size (2, 20), position of pupil (3, 21), eye slant (4, 22), horizontal position of eye (5, 23), vertical position of eye (6, 24), curvature of eyebrow (7, 25), density of eyebrow (8, 26), horizontal position of eyebrow (9, 27), vertical position of eyebrow (10, 28), upper hairline (11, 29), lower hairline (12, 30), face line (13, 31), darkness of hair (14, 32), hair slant (15, 33), nose line (16, 34), size of mouth (17, 35), curvature of mouth (18, 36).
library("graphic") q=0.*matrix(1,36) ; do not use any facepart q[,1] =1 ; right eye size q[,19]=1 ; left eye size q[,2] =2 ; right pupil size q[,20]=2 ; left pupil size q[,4] =3 ; right eye slant q[,22]=3 ; left eye slant q[,11]=4 ; right upper hair line q[,29]=4 ; left upper hair line q[,12]=5 ; right lower hairline q[,30]=5 ; left lower hairline q[,13]=6 ; right face line q[,14]=6 ; right darkness of hair q[,31]=6 ; left face line q[,32]=6 ; left darkness of hair h=read("bank2") h=h[91:110,] draw=grface(h,q,5) d=createdisplay(1,1) axesoff() show(d,1,1,draw)
Plot of the Flury faces for the the 91th - 110th observation of the bank note data.