Quantnet :: Show

MVAfacebank50 (R 2.13.1)

MVAfacebank50 computes Flury faces for the Swiss bank notes data ("bank2.dat").

Download File

Author:

Julia Wandke

Published in:

Applied Multivariate Statistical Analysis

See also:

MVAfacebank10

Click the button to demonstrate a graph view.
Notice: This content requires Java Runtime Environment.
Java Applet and JavaScript should be allowed on your browser.

Submitted:

Mon, May 14 2012 by Dedy Dwi Prastyo

Usage:

-

Datafiles:

bank2.dat

Example:

Description: -

Sourcecode:

rm(list=ls(all=TRUE))
graphics.off()
install.packages("aplpack") 
library(aplpack)
 x = read.table("bank2.dat")
 x1 = x[1:50,]
 ncolors=15
faces(x1,face.type=1,scale=TRUE, col.nose = rainbow(ncolors), col.eyes = rainbow(ncolors, 
         start = 0.6, end = 0.85), col.hair = terrain.colors(ncolors), 
     col.face = heat.colors(ncolors), col.lips = rainbow(ncolors, 
         start = 0, end = 1), col.ears = rainbow(ncolors, start = 0, 
         end = 0.8), plot.faces = TRUE,nrow.plot = 5, ncol.plot = 10,main="Observations 1 to 50")
dev.new()
 x2 = x[51:100,]
faces(x2,face.type=1,scale=TRUE, col.nose = rainbow(ncolors), col.eyes = rainbow(ncolors, 
         start = 0.6, end = 0.85), col.hair = terrain.colors(ncolors), 
     col.face = heat.colors(ncolors), col.lips = rainbow(ncolors, 
         start = 0, end = 1), col.ears = rainbow(ncolors, start = 0, 
         end = 0.8), plot.faces = TRUE,nrow.plot = 5, ncol.plot = 10, main="Observations 51 to 100")
dev.new()
 x3 = x[101:150,]
 faces(x3,face.type=1,scale=TRUE, col.nose = rainbow(ncolors), col.eyes = rainbow(ncolors, 
         start = 0.6, end = 0.85), col.hair = terrain.colors(ncolors), 
     col.face = heat.colors(ncolors), col.lips = rainbow(ncolors, 
         start = 0, end = 1), col.ears = rainbow(ncolors, start = 0, 
         end = 0.8), plot.faces = TRUE,nrow.plot = 5, ncol.plot = 10,main="Observations 101 to 150")
dev.new()
 x4 = x[151:200,]
faces(x4,face.type=1,scale=TRUE, col.nose = rainbow(ncolors), col.eyes = rainbow(ncolors, 
         start = 0.6, end = 0.85), col.hair = terrain.colors(ncolors), 
     col.face = heat.colors(ncolors), col.lips = rainbow(ncolors, 
         start = 0, end = 1), col.ears = rainbow(ncolors, start = 0, 
         end = 0.8), plot.faces = TRUE,nrow.plot = 5, ncol.plot = 10, main="Observations 151 to 200")