Running 'ewkm01.R' [2s]
  Comparing 'ewkm01.Rout' to 'ewkm01.Rout.save' ... OK
  Running 'fgkm_test.R' [162s]
  Running 'twkm_test.R' [2s]
  Comparing 'twkm_test.Rout' to 'twkm_test.Rout.save' ... OK
Running the tests in 'tests/fgkm_test.R' failed.
Complete output:
  > # rm(list=ls())
  > 
  > library("wskm")
  Loading required package: lattice
  Loading required package: latticeExtra
  Loading required package: fpc
  > x_short <- scale(fgkm.sample)
  > strGroup_short <- "0-9;10-19;20-49"
  > strGroup_short4 <- "10-19;0-9;20-49"
  > group_short <- c(rep(0, 10), rep(1, 10), rep(2, 30))
  > group_short3 <- c(rep("a", 10), rep("b", 10), rep("c", 30))
  > group_short4 <- c(rep(3, 10), rep(2, 10), rep(4, 30))
  > 
  > f1_short <- fgkm(x_short, 3, strGroup_short, 3, 1, seed = 19)
  > f2_short <- fgkm(x_short, 3, strGroup_short, 3, 1, seed = 19)
  > F1_short <- fgkm(x_short, 3, group_short, 3, 1, seed = 19)
  > F2_short <- fgkm(x_short, 3, group_short, 3, 1, seed = 19)
  > all.equal(f1_short, f2_short)
  [1] TRUE
  > all.equal(F1_short, F2_short)
  [1] TRUE
  > all.equal(F1_short, f1_short)
  [1] TRUE
  > 
  > f1_short3 <- fgkm(x_short, 3, strGroup_short, 3, 1, seed = 19)
  > f2_short3 <- fgkm(x_short, 3, strGroup_short, 3, 1, seed = 19)
  > F1_short3 <- fgkm(x_short, 3, group_short3, 3, 1, seed = 19)
  > F2_short3 <- fgkm(x_short, 3, group_short3, 3, 1, seed = 19)
  > all.equal(f1_short3, f2_short3)
  [1] TRUE
  > all.equal(F1_short3, F2_short3)
  [1] TRUE
  > all.equal(F1_short3, f1_short3)
  [1] TRUE
  > 
  > f1_short4 <- fgkm(x_short, 3, strGroup_short4, 3, 1, seed = 19)
  > f2_short4 <- fgkm(x_short, 3, strGroup_short4, 3, 1, seed = 19)
  > F1_short4 <- fgkm(x_short, 3, group_short4, 3, 1, seed = 19)
  > F2_short4 <- fgkm(x_short, 3, group_short4, 3, 1, seed = 19)
  > all.equal(f1_short4, f2_short4)
  [1] TRUE
  > all.equal(F1_short4, F2_short4)
  [1] TRUE
  > all.equal(F1_short4, f1_short4)
  [1] TRUE
  > 
  > proc.time()
     user  system elapsed 
     1.56    0.21    1.71