* using log directory 'd:/Rcompile/CRANpkg/local/4.0/cxhull.Rcheck'
* using R version 4.0.5 (2021-03-31)
* using platform: x86_64-w64-mingw32 (64-bit)
* using session charset: ISO8859-1
* checking for file 'cxhull/DESCRIPTION' ... OK
* checking extension type ... Package
* this is package 'cxhull' version '0.5.0'
* package encoding: UTF-8
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking whether package 'cxhull' can be installed ... OK
* checking installed package size ... OK
* checking package directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* loading checks for arch 'i386'
** checking whether the package can be loaded ... OK
** checking whether the package can be loaded with stated dependencies ... OK
** checking whether the package can be unloaded cleanly ... OK
** checking whether the namespace can be loaded with stated dependencies ... OK
** checking whether the namespace can be unloaded cleanly ... OK
** checking loading without being on the library search path ... OK
** checking use of S3 registration ... OK
* loading checks for arch 'x64'
** checking whether the package can be loaded ... OK
** checking whether the package can be loaded with stated dependencies ... OK
** checking whether the package can be unloaded cleanly ... OK
** checking whether the namespace can be loaded with stated dependencies ... OK
** checking whether the namespace can be unloaded cleanly ... OK
** checking loading without being on the library search path ... OK
** checking use of S3 registration ... OK
* checking dependencies in R code ... OK
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... [9s] OK
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking contents of 'data' directory ... OK
* checking data for non-ASCII characters ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking line endings in C/C++/Fortran sources/headers ... OK
* checking pragmas in C/C++ headers and code ... OK
* checking compiled code ... OK
* checking examples ...
** running examples for arch 'i386' ... [4s] ERROR
Running examples in 'cxhull-Ex.R' failed
The error most likely occurred in:

> ### Name: cxhullEdges
> ### Title: Vertices and edges of convex hull
> ### Aliases: cxhullEdges
> 
> ### ** Examples
> 
> library(cxhull)
> # let's try with the hexacosichoron (see `?hexacosichoron`)
> #   it is convex so its convex hull is itself
> VE <- cxhullEdges(hexacosichoron)
> edges <- VE[["edges"]]
> random_edge <- edges[sample.int(720L, 1L), ]
> A <- hexacosichoron[random_edge[1L], ]
> B <- hexacosichoron[random_edge[2L], ]
> sqrt(c(crossprod(A - B))) # this is 2/phi
[1] 1.236068
> # Now let's project the polytope to the H4 Coxeter plane 
> phi <- (1 + sqrt(5)) / 2
> u1 <- c(
+   0, 
+   2*phi*sin(pi/30), 
+   0, 
+   1
+ )
> u2 <- c(
+   2*phi*sin(pi/15), 
+   0, 
+   2*sin(2*pi/15), 
+   0
+ )
> u1 <- u1 / sqrt(c(crossprod(u1)))
> u2 <- u2 / sqrt(c(crossprod(u2)))
> # projections to the Coxeter plane
> proj <- function(v){
+   c(c(crossprod(v, u1)), c(crossprod(v, u2)))
+ }
> points <- t(apply(hexacosichoron, 1L, proj))
> # we will assign a color to each edge  
> #   according to the norms of its two vertices
> norms2 <- round(apply(points, 1L, crossprod), 1L)
> ( tbl <- table(norms2) )
norms2
0.4 1.6 2.4 3.6 
 30  30  30  30 
> #> 0.4 1.6 2.4 3.6 
> #>  30  30  30  30 
> values <- as.numeric(names(tbl))
> grd <- as.matrix(expand.grid(values, values)) 
> grd <- grd[grd[, 1L] <= grd[, 2L], ]
> pairs <- apply(grd, 1L, paste0, collapse = "-")
> colors <- hcl.colors(nrow(grd), palette = "Hawaii", rev = TRUE)
Error in hcl.colors(nrow(grd), palette = "Hawaii", rev = TRUE) : 
  'palette' does not match any given palette
Execution halted
** running examples for arch 'x64' ... [4s] ERROR
Running examples in 'cxhull-Ex.R' failed
The error most likely occurred in:

> ### Name: cxhullEdges
> ### Title: Vertices and edges of convex hull
> ### Aliases: cxhullEdges
> 
> ### ** Examples
> 
> library(cxhull)
> # let's try with the hexacosichoron (see `?hexacosichoron`)
> #   it is convex so its convex hull is itself
> VE <- cxhullEdges(hexacosichoron)
> edges <- VE[["edges"]]
> random_edge <- edges[sample.int(720L, 1L), ]
> A <- hexacosichoron[random_edge[1L], ]
> B <- hexacosichoron[random_edge[2L], ]
> sqrt(c(crossprod(A - B))) # this is 2/phi
[1] 1.236068
> # Now let's project the polytope to the H4 Coxeter plane 
> phi <- (1 + sqrt(5)) / 2
> u1 <- c(
+   0, 
+   2*phi*sin(pi/30), 
+   0, 
+   1
+ )
> u2 <- c(
+   2*phi*sin(pi/15), 
+   0, 
+   2*sin(2*pi/15), 
+   0
+ )
> u1 <- u1 / sqrt(c(crossprod(u1)))
> u2 <- u2 / sqrt(c(crossprod(u2)))
> # projections to the Coxeter plane
> proj <- function(v){
+   c(c(crossprod(v, u1)), c(crossprod(v, u2)))
+ }
> points <- t(apply(hexacosichoron, 1L, proj))
> # we will assign a color to each edge  
> #   according to the norms of its two vertices
> norms2 <- round(apply(points, 1L, crossprod), 1L)
> ( tbl <- table(norms2) )
norms2
0.4 1.6 2.4 3.6 
 30  30  30  30 
> #> 0.4 1.6 2.4 3.6 
> #>  30  30  30  30 
> values <- as.numeric(names(tbl))
> grd <- as.matrix(expand.grid(values, values)) 
> grd <- grd[grd[, 1L] <= grd[, 2L], ]
> pairs <- apply(grd, 1L, paste0, collapse = "-")
> colors <- hcl.colors(nrow(grd), palette = "Hawaii", rev = TRUE)
Error in hcl.colors(nrow(grd), palette = "Hawaii", rev = TRUE) : 
  'palette' does not match any given palette
Execution halted
* checking PDF version of manual ... OK
* DONE
Status: 2 ERRORs