Running 'Rgui.R' [156s]
  Running 'arules.R' [2s]
  Comparing 'arules.Rout' to 'arules.Rout.save' ... OK
  Running 'idlists.R' [2s]
  Comparing 'idlists.Rout' to 'idlists.Rout.save' ... OK
  Running 'makebin.R' [2s]
  Comparing 'makebin.Rout' to 'makebin.Rout.save' ... OK
  Running 'native.R' [160s]
  Running 'ptree.R' [7s]
  Comparing 'ptree.Rout' to 'ptree.Rout.save' ... OK
  Running 'similarity.R' [163s]
  Running 'timeout.R' [9s]
  Comparing 'timeout.Rout' to 'timeout.Rout.save' ... OK
  Running 'zaki.R' [3s]
  Comparing 'zaki.Rout' to 'zaki.Rout.save' ... OK
Running the tests in 'tests/Rgui.R' failed.
Complete output:
  > 
  > ### ceeboo 2012
  > 
  > if (.Platform$OS  == "windows" && 
  +     .Platform$GUI == "RTerm") {
  + 
  +     library("arulesSequences")
  + 
  +     ## use example data from paper
  +     data(zaki)
  +     ## mine frequent sequences
  +     s1 <- cspade(zaki, parameter = list(support = 0.4)) 
  + 
  +     ## fake
  +     .Platform$GUI <- "Rgui"
  + 
  +     s2 <- cspade(zaki, parameter = list(support = 0.4))
  + 
  +     stopifnot(identical(s1, s2))
  + }
  Loading required package: arules
  Loading required package: Matrix
  
  Attaching package: 'arules'
  
  The following objects are masked from 'package:base':
  
      abbreviate, write
  
  
  Attaching package: 'arulesSequences'
  
  The following object is masked from 'package:arules':
  
      itemsets
  
  > 
  > ###
  > 
  > proc.time()
     user  system elapsed 
     1.82    0.15    2.03 
Running the tests in 'tests/native.R' failed.
Complete output:
  > 
  > ### ceeboo 2012
  > 
  > ns <- "arulesSequences"
  > library(ns, character.only = TRUE)
  Loading required package: arules
  Loading required package: Matrix
  
  Attaching package: 'arules'
  
  The following objects are masked from 'package:base':
  
      abbreviate, write
  
  
  Attaching package: 'arulesSequences'
  
  The following object is masked from 'package:arules':
  
      itemsets
  
  > 
  > k <- objects(envir = asNamespace(ns), pattern = "^R_")
  > names(k) <- k
  > k <- sapply(lapply(k, get, envir = asNamespace(ns)), inherits, 
  + 		   "NativeSymbolInfo")
  > stopifnot(all(k))
  > 
  > ###
  > 
  > proc.time()
     user  system elapsed 
     1.67    0.14    1.81 
Running the tests in 'tests/similarity.R' failed.
Complete output:
  > 
  > library("arulesSequences")
  Loading required package: arules
  Loading required package: Matrix
  
  Attaching package: 'arules'
  
  The following objects are masked from 'package:base':
  
      abbreviate, write
  
  
  Attaching package: 'arulesSequences'
  
  The following object is masked from 'package:arules':
  
      itemsets
  
  > 
  > ### ceeboo 2008, 2016
  > 
  > data(zaki)
  > 
  > z <- as(zaki, "timedsequences")
  > as(as(z, "sequences"), "data.frame")
                             sequence sequenceID
  1 <{C,D},{A,B,C},{A,B,F},{A,C,D,F}>          1
  2                     <{A,B,F},{E}>          2
  3                         <{A,B,F}>          3
  4           <{D,G,H},{B,F},{A,G,H}>          4
  > 
  > s <- similarity(z)
  > s
  4 x 4 sparse Matrix of class "dsCMatrix"
       1   2    3 4
  1 1.00 0.2 0.25 .
  2 0.20 1.0 0.50 .
  3 0.25 0.5 1.00 .
  4 .    .   .    1
  > all(s == similarity(z, z))
  [1] TRUE
  > 
  > as(s, "dist")
       1    2    3
  2 0.20          
  3 0.25 0.50     
  4 0.00 0.00 0.00
  > 
  > similarity(z, strict = TRUE) - s
  4 x 4 sparse Matrix of class "dsCMatrix"
    1 2 3 4
  1 0 0 0 .
  2 0 0 0 .
  3 0 0 0 .
  4 . . . 0
  > 
  > similarity(z, method = "dice") - s
  4 x 4 sparse Matrix of class "dsCMatrix"
            1         2         3 4
  1 0.0000000 0.1333333 0.1500000 .
  2 0.1333333 0.0000000 0.1666667 .
  3 0.1500000 0.1666667 0.0000000 .
  4 .         .         .         0
  > similarity(z, method = "cosine") - s
  4 x 4 sparse Matrix of class "dsCMatrix"
            1         2         3 4
  1 0.0000000 0.1535534 0.2500000 .
  2 0.1535534 0.0000000 0.2071068 .
  3 0.2500000 0.2071068 0.0000000 .
  4 .         .         .         0
  > 
  > similarity(z, method = "subset", strict = TRUE)
  4 x 4 sparse Matrix of class "dgCMatrix"
       1   2 3 4
  1 1.00 .   . .
  2 .    1.0 . .
  3 0.25 0.5 1 .
  4 .    .   . 1
  > similarity(z, method = "subset")
  4 x 4 sparse Matrix of class "dgCMatrix"
       1   2 3 4
  1 1.00 .   . .
  2 .    1.0 . .
  3 0.25 0.5 1 .
  4 .    .   . 1
  > 
  > is.subset(z)
  4 x 4 sparse Matrix of class "lgCMatrix"
    1 2 3 4
  1 | . . .
  2 . | . .
  3 | | | .
  4 . . . |
  > is.subset(z, proper = TRUE)
  4 x 4 sparse Matrix of class "lgCMatrix"
    1 2 3 4
  1 . . . .
  2 . . . .
  3 | | . .
  4 . . . .
  > 
  > is.subset(z[3], z)
  1 x 4 sparse Matrix of class "lgCMatrix"
    1 2 3 4
  3 | | | .
  > is.subset(z[3], z, proper = TRUE)
  1 x 4 sparse Matrix of class "lgCMatrix"
    1 2 3 4
  3 | | . .
  > 
  > is.superset(z)
  4 x 4 sparse Matrix of class "lgCMatrix"
    1 2 3 4
  1 | . | .
  2 . | | .
  3 . . | .
  4 . . . |
  > 
  > is.superset(z[1], z)
  1 x 4 sparse Matrix of class "lgCMatrix"
    1 2 3 4
  1 | . | .
  > 
  > ###
  > 
  > proc.time()
     user  system elapsed 
     2.01    0.17    2.32