Running examples in ‘aplpack-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: faces
> ### Title: Chernoff Faces
> ### Aliases: faces plot.faces
> ### Keywords: misc
> 
> ### ** Examples
> 
> 
> faces()
effect of variables:
 modified item       Var   
 "height of face   " "Var1"
 "width of face    " "Var2"
 "structure of face" "Var3"
 "height of mouth  " "Var1"
 "width of mouth   " "Var2"
 "smiling          " "Var3"
 "height of eyes   " "Var1"
 "width of eyes    " "Var2"
 "height of hair   " "Var3"
 "width of hair   "  "Var1"
 "style of hair   "  "Var2"
 "height of nose  "  "Var3"
 "width of nose   "  "Var1"
 "width of ear    "  "Var2"
 "height of ear   "  "Var3"
> faces(face.type=1)
effect of variables:
 modified item       Var   
 "height of face   " "Var1"
 "width of face    " "Var2"
 "structure of face" "Var3"
 "height of mouth  " "Var1"
 "width of mouth   " "Var2"
 "smiling          " "Var3"
 "height of eyes   " "Var1"
 "width of eyes    " "Var2"
 "height of hair   " "Var3"
 "width of hair   "  "Var1"
 "style of hair   "  "Var2"
 "height of nose  "  "Var3"
 "width of nose   "  "Var1"
 "width of ear    "  "Var2"
 "height of ear   "  "Var3"
> 
> faces(rbind(1:3,5:3,3:5,5:7))
effect of variables:
 modified item       Var   
 "height of face   " "Var1"
 "width of face    " "Var2"
 "structure of face" "Var3"
 "height of mouth  " "Var1"
 "width of mouth   " "Var2"
 "smiling          " "Var3"
 "height of eyes   " "Var1"
 "width of eyes    " "Var2"
 "height of hair   " "Var3"
 "width of hair   "  "Var1"
 "style of hair   "  "Var2"
 "height of nose  "  "Var3"
 "width of nose   "  "Var1"
 "width of ear    "  "Var2"
 "height of ear   "  "Var3"
> 
> data(longley)
> faces(longley[1:9,],face.type=0)
effect of variables:
 modified item       Var           
 "height of face   " "GNP.deflator"
 "width of face    " "GNP"         
 "structure of face" "Unemployed"  
 "height of mouth  " "Armed.Forces"
 "width of mouth   " "Population"  
 "smiling          " "Year"        
 "height of eyes   " "Employed"    
 "width of eyes    " "GNP.deflator"
 "height of hair   " "GNP"         
 "width of hair   "  "Unemployed"  
 "style of hair   "  "Armed.Forces"
 "height of nose  "  "Population"  
 "width of nose   "  "Year"        
 "width of ear    "  "Employed"    
 "height of ear   "  "GNP.deflator"
> faces(longley[1:9,],face.type=1)
effect of variables:
 modified item       Var           
 "height of face   " "GNP.deflator"
 "width of face    " "GNP"         
 "structure of face" "Unemployed"  
 "height of mouth  " "Armed.Forces"
 "width of mouth   " "Population"  
 "smiling          " "Year"        
 "height of eyes   " "Employed"    
 "width of eyes    " "GNP.deflator"
 "height of hair   " "GNP"         
 "width of hair   "  "Unemployed"  
 "style of hair   "  "Armed.Forces"
 "height of nose  "  "Population"  
 "width of nose   "  "Year"        
 "width of ear    "  "Employed"    
 "height of ear   "  "GNP.deflator"
> 
> plot(longley[1:16,2:3],bty="n")
> a<-faces(longley[1:16,],plot=FALSE)
effect of variables:
 modified item       Var           
 "height of face   " "GNP.deflator"
 "width of face    " "GNP"         
 "structure of face" "Unemployed"  
 "height of mouth  " "Armed.Forces"
 "width of mouth   " "Population"  
 "smiling          " "Year"        
 "height of eyes   " "Employed"    
 "width of eyes    " "GNP.deflator"
 "height of hair   " "GNP"         
 "width of hair   "  "Unemployed"  
 "style of hair   "  "Armed.Forces"
 "height of nose  "  "Population"  
 "width of nose   "  "Year"        
 "width of ear    "  "Employed"    
 "height of ear   "  "GNP.deflator"
> plot.faces(a,longley[1:16,2],longley[1:16,3],width=35,height=30)
> 
> set.seed(17)
> faces(matrix(sample(1:1000,128,),16,8),main="random faces")
effect of variables:
 modified item       Var   
 "height of face   " "Var1"
 "width of face    " "Var2"
 "structure of face" "Var3"
 "height of mouth  " "Var4"
 "width of mouth   " "Var5"
 "smiling          " "Var6"
 "height of eyes   " "Var7"
 "width of eyes    " "Var8"
 "height of hair   " "Var1"
 "width of hair   "  "Var2"
 "style of hair   "  "Var3"
 "height of nose  "  "Var4"
 "width of nose   "  "Var5"
 "width of ear    "  "Var6"
 "height of ear   "  "Var7"
> 
> a<-faces(rbind(1:3,5:3,3:5,5:7),plot.faces=FALSE)
effect of variables:
 modified item       Var   
 "height of face   " "Var1"
 "width of face    " "Var2"
 "structure of face" "Var3"
 "height of mouth  " "Var1"
 "width of mouth   " "Var2"
 "smiling          " "Var3"
 "height of eyes   " "Var1"
 "width of eyes    " "Var2"
 "height of hair   " "Var3"
 "width of hair   "  "Var1"
 "style of hair   "  "Var2"
 "height of nose  "  "Var3"
 "width of nose   "  "Var1"
 "width of ear    "  "Var2"
 "height of ear   "  "Var3"
> plot(0:5,0:5,type="n")
> plot(a,x.pos=1:4,y.pos=1:4,1.5,0.7)
Error in xy.coords(x, y, xlabel, ylabel, log) : 
  'x' and 'y' lengths differ
Calls: plot -> plot.default -> xy.coords
Execution halted