  function( mydir,  type = 0, N = 2) {

  dummy <- lapply( dir(mydir, full.names=TRUE), makeNgram, type, N)
  
  if(length(dummy) == 0){
    stop("no doc-matrix returned.")
  }
  else if(length(dummy) == 1){
    return(dummy)
  }
  
  # dtm <- t(xtabs(Freq ~ ., data = do.call("rbind", dummy)))
  dtm <- xtabs(Freq ~ ., data = do.call("rbind", dummy))
   invisible( dtm)  
}

res
res
res[[1]][1]
i
j
names(res[[1]][1])  != "記号"
names(res[[1]][1]) 
res2
res2
RMeCabC("すもももももももものうち")
q()
n
q()
n
q()
n
