Fix NAMESPACE and MAN

Author: koheiw

DESCRIPTION

@@ -13,11 +13,14 @@ URL: https://github.com/bnosac/word2vec
 License: Apache License (>= 2.0)
 Encoding: UTF-8
 RoxygenNote: 7.3.2
-Depends: R (>= 2.10)
+Depends: 
+    methods,
+    R (>= 3.5.0)
 Imports: 
-    Rcpp (>= 0.11.5), 
-    stats, 
     quanteda (>= 4.1.0), 
+    stringi,
+    Matrix,
+    proxyC,
     RSpectra,
     irlba,
     rsvd

NAMESPACE

@@ -12,7 +12,11 @@ export(doc2vec)
 export(lsa)
 export(synonyms)
 export(word2vec)
+importFrom(methods,as)
 importFrom(quanteda,dfm)
+importFrom(quanteda,dfm_weight)
 importFrom(quanteda,featfreq)
-importFrom(quanteda,tokens_keep)
+importFrom(quanteda,tokens_trim)
+importFrom(utils,head)
+importFrom(utils,tail)
 useDynLib(wordvector)

R/lsa.R

@@ -4,6 +4,7 @@ lsa <- function(x, dim = 50, min_count = 5L, engine = c("RSpectra", "irlba", "rs
     UseMethod("lsa")   
 }
 
+#' @importFrom quanteda tokens_trim dfm featfreq
 #' @export
 lsa.tokens <- function(x, dim = 50, min_count = 5L, engine = c("RSpectra", "irlba", "rsvd"), 
                        weight = "count", verbose = FALSE, ...) {
@@ -36,14 +37,17 @@ lsa.tokens <- function(x, dim = 50, min_count = 5L, engine = c("RSpectra", "irlb
     return(result)
 }
 
+#' @importFrom quanteda dfm_weight
+#' @importFrom methods as
 get_svd <- function(x, k, engine, weight = "count", reduce = FALSE, ...) {
     if (reduce) {
-        x <- quanteda::dfm_weight(x, weights = 1 / sqrt(featfreq(x)))
+        # NOTE: generalize? featfreq(x) ^ (1 / reduce)
+        x <- dfm_weight(x, weights = 1 / sqrt(featfreq(x)))
     } else {
         if (weight == "sqrt") {
             x@x <- sqrt(x@x)
         } else {
-            x <- quanteda::dfm_weight(x, scheme = weight)
+            x <- dfm_weight(x, scheme = weight)
         }
     }
     if (engine == "RSpectra") {

R/word2vec.R

@@ -41,9 +41,6 @@
 #' @seealso \code{\link{predict.word2vec}}, \code{\link{as.matrix.word2vec}}, \code{\link{word2vec}}, \code{\link{word2vec.character}}, \code{\link{word2vec.list}}
 #' @export
 #' @useDynLib wordvector
-#' @examples
-#' 
-#' \dontshow{\} # End of main if statement running only if the required packages are installed}
 word2vec <- function(x, dim = 50, type = c("cbow", "skip-gram"),
                      min_count = 5L, window = ifelse(type == "cbow", 5L, 10L), 
                      iter = 5L, lr = 0.05, hs = FALSE, negative = 5L, 
@@ -53,10 +50,7 @@ word2vec <- function(x, dim = 50, type = c("cbow", "skip-gram"),
 
 #' @inherit word2vec title description params details seealso return references
 #' @export
-#' @importFrom quanteda dfm featfreq tokens_keep
-#' @examples 
-#' 
-#' \dontshow{\} # End of main if statement running only if the required packages are installed}
+#' @importFrom quanteda tokens_trim
 word2vec.tokens <- function(x, dim = 50, type = c("cbow", "skip-gram"), 
                             min_count = 5L, window = ifelse(type == "cbow", 5L, 10L), 
                             iter = 5L, lr = 0.05, hs = FALSE, negative = 5L, 
@@ -173,9 +167,8 @@ doc2vec.tokens <- function(x, model = NULL, ...) {
 }
 
 #' Find similar words via formula interface
-#' @examples
-#' analogy(mod, ~ japan - tokyo)
 #' @export
+#' @importFrom utils head tail
 analogy <- function(model, formula, n = 10, method = c("cosine", "dot")) {
 
     method <- match.arg(method)