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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Michelsberg
> ### Title: Younger Neolithic Pottery from Central Europe
> ### Aliases: Michelsberg
> ### Keywords: datasets
> 
> ### ** Examples
> 
> data(Michelsberg)
> str(Michelsberg)
'data.frame':	109 obs. of  42 variables:
 $ id          : int  2 1 3 4 5 6 7 8 9 10 ...
 $ site_name   : chr  "achenheim" "achenheim" "didenheim" "entzheim" ...
 $ catalogue_nr: int  1 1 2 3 4 5 6 8 8 9 ...
 $ feature_nr  : num  1.1 1.2 2 3 4 5 6 8.1 8.2 9 ...
 $ to3         : int  0 0 0 0 0 0 0 1 0 0 ...
 $ f4          : int  0 0 0 0 0 0 0 0 0 0 ...
 $ b2          : int  0 0 1 0 3 0 0 0 0 0 ...
 $ to2         : int  0 0 0 0 0 0 0 0 0 0 ...
 $ b3          : int  0 0 0 0 0 0 0 0 0 0 ...
 $ b7          : int  0 0 0 0 1 0 0 0 0 0 ...
 $ kw5         : int  0 0 1 0 0 0 0 0 2 0 ...
 $ vg1         : int  0 0 1 0 8 0 0 2 1 0 ...
 $ vg2         : int  0 0 0 0 0 0 0 0 0 0 ...
 $ t4a         : int  0 0 0 0 0 0 0 0 0 0 ...
 $ kw2         : int  0 1 1 0 1 2 1 1 5 0 ...
 $ kw4         : int  0 0 0 0 1 0 0 1 1 0 ...
 $ b5          : int  0 0 2 0 0 0 0 0 0 0 ...
 $ t3b         : int  0 0 0 0 0 0 0 0 0 0 ...
 $ f3          : int  0 0 0 0 0 0 0 0 0 0 ...
 $ kw3         : int  0 2 1 0 0 2 1 0 4 0 ...
 $ kw1         : int  0 0 0 0 0 0 0 0 0 0 ...
 $ b6          : int  0 0 1 0 0 0 0 0 0 0 ...
 $ to1         : int  0 0 0 0 0 0 0 0 0 0 ...
 $ b1          : int  0 1 0 0 0 0 1 0 0 0 ...
 $ t3a         : int  0 0 0 0 0 0 1 0 0 0 ...
 $ vg4         : int  0 0 2 0 1 0 0 0 0 1 ...
 $ ks2         : num  0 2 0 0 0 0 0.5 0 0 0 ...
 $ ks1         : num  0 0 0 0 0 0 0.5 0 0 0 ...
 $ t2b         : int  0 1 0 0 0 3 2 0 0 0 ...
 $ f2          : int  0 0 0 0 0 0 0 0 0 0 ...
 $ bs3         : int  0 0 0 0 0 0 0 0 0 0 ...
 $ t2a         : int  0 1 0 0 0 3 1 0 0 1 ...
 $ bs2         : int  0 0 0 0 0 0 0 0 0 0 ...
 $ b4          : int  1 0 0 1 0 0 0 0 0 0 ...
 $ bs1         : int  1 0 0 1 0 0 0 0 0 0 ...
 $ f1          : int  1 0 0 0 0 0 0 0 0 1 ...
 $ t1b         : int  0 0 0 2 0 1 0 0 0 1 ...
 $ vg3         : int  2 0 0 0 0 0 0 0 0 2 ...
 $ t1a         : num  0 0 0 2 0 0 0 0 0 0 ...
 $ mbk_phase   : Ord.factor w/ 11 levels "I"<"I/II"<"II"<..: 2 5 10 1 10 5 5 10 10 3 ...
 $ x_utm32n    : num  398587 398587 372268 398856 399555 ...
 $ y_utm32n    : num  5381681 5381681 5286029 5376116 5373880 ...
 - attr(*, "typological_key")= chr  "b_ = beaker (Becher)" "bs_ = globular bowl (beckenförmige Schüssel)" "f_ = bottle (Flasche)" "ks_ = conical bowl (Konische Schüssel)" ...
 - attr(*, "references")=List of 2
  ..$ reference_1_to_108: chr "Höhn, B. 2002. Die Michelsberger Kultur in der Wetterau. Universitätsforschungen zur Prähistorischen Archäologi"| __truncated__
  ..$ reference_109     : chr "Mischka, D., Roth, G. and K. Struckmeyer 2015. Michelsberg and Oxie in contact next to the Baltic Sea. In: Kr. "| __truncated__
 - attr(*, "projection")= chr "UTM32n_WGS84"
> names(Michelsberg)[5:39]
 [1] "to3" "f4"  "b2"  "to2" "b3"  "b7"  "kw5" "vg1" "vg2" "t4a" "kw2" "kw4"
[13] "b5"  "t3b" "f3"  "kw3" "kw1" "b6"  "to1" "b1"  "t3a" "vg4" "ks2" "ks1"
[25] "t2b" "f2"  "bs3" "t2a" "bs2" "b4"  "bs1" "f1"  "t1b" "vg3" "t1a"
> attributes(Michelsberg)$typological_key
[1] "b_ = beaker (Becher)"                        
[2] "bs_ = globular bowl (beckenförmige Schüssel)"
[3] "f_ = bottle (Flasche)"                       
[4] "ks_ = conical bowl (Konische Schüssel)"      
[5] "kw_ = carinated bowl (Knickwandschüssel)"    
[6] "t__ = tulip beaker (Tulpenbecher)"           
[7] "to_ = pot/vessel (Topf)"                     
[8] "vg_ = storage vessel (Vorratsgefäß)"         
> library(ca)
> 
> # geographical distribution
> xy <- as.matrix(Michelsberg[,41:42])/1000
> plot(xy, asp=1, pch=16, col=rgb(.3,.3,.3,.5))
> text(xy[,1], xy[,2], Michelsberg$id, cex=.7, pos=2)
> # Note site 109 to the Northeast; 
> 
> # preparing the data set for CA
> abu <- Michelsberg[, 5:39]
> rownames(abu) <- Michelsberg$id
> 
> # CA with site 109, Flintbek LA48, as supplementary row
> MBK.ca <- ca(abu, ndim=min(dim(abu)-1), suprow=109 )
> 
> # asymmetric biplot with row quality and column contribution
> plot(MBK.ca, map="rowprincipal", contrib=c("relative", "absolute"))
> 
> title(main="Row-isometric Biplot of Michelsberg CA", cex.sub=.7, 
+      sub="color intensity represents quality for sites and contributions for types")
> # The arch is a curved trend in 3D; zoom with mouse scroll
> library(rgl)
> plot3d(MBK.ca, map="rowprincipal", labels=c(0,0))
Error in xyz.coords(x, y, z, xlab = xlabel, ylab = ylabel, zlab = zlabel,  : 
  'x' is a list, but does not have components 'x', 'y'  and 'z'
Calls: plot3d -> plot3d.default -> xyz.coords
Execution halted