Running 'counting.R' [152s]
  Running 'counting_useBytes.R' [0s]
  Comparing 'counting_useBytes.Rout' to 'counting_useBytes.Rout.save' ...32a33,34
> counting ... 10 string(s) using 19 nodes [0.00s]
> writing  ... 19 strings [0.00s]
56a59
> counting ... 10 string(s) using 19 nodes [0.00s]
58a62,63
> counting ... 10 string(s) using 19 nodes [0.00s]
> writing  ... 19 strings [0.00s]
82a88,89
> counting ... 2 string(s) using 5 nodes [0.00s]
> writing  ... 2 strings [0.00s]
89a97,98
> counting ... 2 string(s) using 5 nodes [0.00s]
> writing  ... 5 strings [0.00s]
99a109,110
> counting ... 2 string(s) using 6 nodes [0.00s]
> writing  ... 6 strings [0.00s]
110a122,123
> counting ... 2 string(s) using 6 nodes [0.00s]
> writing  ... 6 strings [0.00s]
121a135
> counting ... 2 string(s) using 5 nodes [0.00s]
123a138,139
> counting ... 2 string(s) using 5 nodes [0.00s]
> writing  ... 2 strings [0.00s]
Running the tests in 'tests/counting.R' failed.
Complete output:
  > 
  > ### ceeboo 2008
  > 
  > library("tau")
  > 
  > .format.count <- function(x)
  +     data.frame(counts = x, bytes = nchar(names(x), type = "bytes", 
  +                                          allowNA = TRUE),
  + 	       encoding = Encoding(names(x)),
  + 	       stringsAsFactors = FALSE)
  > 
  > ## latin capital letter a with diaresis
  > 
  > t1 <- c("abc", "a\xc4", "", NA)
  > Encoding(t1) <- c("unknow", "latin1", "unknown", "unknown") 
  > t1
  [1] "abc" "aÄ"  ""    NA   
  > 
  > t2 <- c(paste("_", t1[1:2], "_", sep = ""), t1[3:4])
  > t2
  [1] "_abc_" "_aÄ_"  ""      NA     
  > 
  > ## count n-grams
  > r <- .Call(tau:::tau_utf8CountNgram, list(t2), 3L, 0L, TRUE, FALSE, FALSE)
  > .format.count(r)
      counts bytes encoding
  _        4     1  unknown
  _a       2     2  unknown
  _ab      1     3  unknown
  _aÄ      1     4    UTF-8
  a        2     1  unknown
  ab       1     2  unknown
  abc      1     3  unknown
  aÄ       1     3    UTF-8
  aÄ_      1     4    UTF-8
  b        1     1  unknown
  bc       1     2  unknown
  bc_      1     3  unknown
  c        1     1  unknown
  c_       1     2  unknown
  Ä        1     2    UTF-8
  Ä_       1     3    UTF-8
  > 
  > ## incremental
  > .Call(tau:::tau_utf8CountNgram, list(t2), 3L, 0L, TRUE, TRUE, FALSE)
  NULL
  > r <- .Call(tau:::tau_utf8CountNgram, list(t2), 3L, 0L, TRUE, FALSE, FALSE)
  > .format.count(r)
      counts bytes encoding
  _        8     1  unknown
  _a       4     2  unknown
  _ab      2     3  unknown
  _aÄ      2     4    UTF-8
  a        4     1  unknown
  ab       2     2  unknown
  abc      2     3  unknown
  aÄ       2     3    UTF-8
  aÄ_      2     4    UTF-8
  b        2     1  unknown
  bc       2     2  unknown
  bc_      2     3  unknown
  c        2     1  unknown
  c_       2     2  unknown
  Ä        2     2    UTF-8
  Ä_       2     3    UTF-8
  > 
  > ## count strings
  > r <- .Call(tau:::tau_utf8CountString, list(t1), 3L, 0L, 0L, TRUE, FALSE, FALSE)
  > .format.count(r)
      counts bytes encoding
  abc      1     3  unknown
  aÄ       1     3    UTF-8
  > 
  > ## count prefixes
  > r <- .Call(tau:::tau_utf8CountString, list(t1), 3L, 0L, 1L, TRUE, FALSE, FALSE)
  > .format.count(r)
      counts bytes encoding
  a        2     1  unknown
  ab       1     2  unknown
  abc      1     3  unknown
  aÄ       1     3    UTF-8
  > 
  > ## count suffixes
  > r <- .Call(tau:::tau_utf8CountString, list(t1), 3L, 0L, 2L, TRUE, FALSE, FALSE)
  > .format.count(r)
      counts bytes encoding
  c        1     1  unknown
  bc       1     2  unknown
  abc      1     3  unknown
  Ä        1     2    UTF-8
  aÄ       1     3    UTF-8
  > 
  > ## FIXME add to interface
  > r <- .Call(tau:::tau_utf8CountString, list(t1), 3L, 0L, 3L, TRUE, FALSE, FALSE)
  > .format.count(r)
      counts bytes encoding
  c        1     1  unknown
  cb       1     2  unknown
  cba      1     3  unknown
  Ä        1     2    UTF-8
  Äa       1     3    UTF-8
  > 
  > ## incremental
  > .Call(tau:::tau_utf8CountString, list(t1), 3L, 0L, 0L, TRUE, TRUE, FALSE)
  NULL
  > r <- .Call(tau:::tau_utf8CountString, list(t1), 3L, 0L, 0L, TRUE, FALSE, FALSE)
  > .format.count(r)
      counts bytes encoding
  abc      2     3  unknown
  aÄ       2     3    UTF-8
  > 
  > ###
  > 
  > proc.time()
     user  system elapsed 
     0.20    0.07    0.21