Running 'boot.R' [1s]
  Running 'disttests.R' [152s]
  Running 'plots.R' [175s]
  Running 'weights.R' [154s]
Running the tests in 'tests/disttests.R' failed.
Complete output:
  > library(flexclust)
  Loading required package: grid
  Loading required package: lattice
  Loading required package: modeltools
  Loading required package: stats4
  > 
  > ## Canberra is really only defined for >= 0 matrices, and changed 
  > ## in dist in 2018
  > 
  > ## create a random matrix
  > x <- abs(matrix(rnorm(1000), ncol=4))
  > rownames(x) <- 1:nrow(x)
  > 
  > ## test canberra at margin
  > x[1:10,1] <- 0
  > x[1:20,2] <- 0
  > x[1:30,3] <- 0
  > 
  > stopifnot(all.equal(dist2(x,x,"eucl"), as.matrix(dist(x, "eucl"))))
  > stopifnot(all.equal(dist2(x,x,"man"), as.matrix(dist(x, "man"))))
  > stopifnot(all.equal(dist2(x,x,"max"), as.matrix(dist(x, "max"))))
  > stopifnot(all.equal(dist2(x,x,"bin"), as.matrix(dist(x, "bin"))))
  > stopifnot(all.equal(dist2(x,x,"can"), as.matrix(dist(x, "can"))))
  > 
  > stopifnot(all.equal(dist2(x,x,"eucl"), dist2(x,x,"mink",p=2)))
  > stopifnot(all.equal(dist2(x,x,"man"), dist2(x,x,"mink",p=1)))
  > 
  > proc.time()
     user  system elapsed 
     0.75    0.14    0.87 
Running the tests in 'tests/plots.R' failed.
Complete output:
  > library("flexclust")
  Loading required package: grid
  Loading required package: lattice
  Loading required package: modeltools
  Loading required package: stats4
  > 
  > pdf("plots.pdf")
  > p05 <- bundestag(2005)
  > 
  > c6 <- cclust(p05, k=6, save.data=TRUE)
  > 
  > plot(c6)
  > plot(c6, hull="ell")
  > 
  > image(c6)
  > 
  > barplot(c6)
  > barplot(c6, bycluster=FALSE)
  > barplot(c6, oneplot=FALSE)
  > 
  > barchart(c6)
  > barchart(c6, shade=TRUE)
  > 
  > flexclust:::stripes(c6)
  > flexclust:::stripes(c6, type="second")
  > flexclust:::stripes(c6, type="all")
  > flexclust:::stripes(c6, type="all", beside=TRUE)
  > 
  > plot(flexclust:::shadow(c6))
  > plot(flexclust:::Silhouette(c6))
  > 
  > shadowStars(c6)
  > shadowStars(c6, varwidth=TRUE)
  > shadowStars(c6, varwidth=TRUE,
  +             panel=flexclust:::panelShadowSkeleton)
  > shadowStars(c6, varwidth=TRUE,
  +             panel=flexclust:::panelShadowViolin)
  > shadowStars(c6, varwidth=TRUE,
  +             panel=flexclust:::panelShadowBP)
  > 
  > dev.off()
  null device 
            1 
  > 
  > proc.time()
     user  system elapsed 
     1.43    0.23    1.67 
Running the tests in 'tests/weights.R' failed.
Complete output:
  > library("flexclust")
  Loading required package: grid
  Loading required package: lattice
  Loading required package: modeltools
  Loading required package: stats4
  > 
  > x <- matrix(runif(1000, 0, 1), ncol=2)
  > 
  > set.seed(1)
  > cl0 <- kcca(x, k=20)
  > cl1 <- kcca(x, k=20, weights=x[,1])
  > cl2 <- kcca(x, k=20, weights=x[,2])
  > 
  > pdf("weights.pdf")
  > plot(cl0)
  > plot(cl1)
  > plot(cl2)
  > 
  > m1 <- colMeans(cl1@centers)
  > m2 <- colMeans(cl2@centers)
  > 
  > stopifnot(diff(m1)<0)
  > stopifnot(diff(m2)>0)
  > 
  > 
  > proc.time()
     user  system elapsed 
     1.12    0.06    1.17