speed up examples of read/write paragraph2vec

Author: jwijffels

R/paragraph2vec.R

@@ -169,11 +169,14 @@ as.matrix.paragraph2vec_trained <- function(x, encoding='UTF-8', ...){
 #' x <- subset(belgium_parliament, language %in% "french")
 #' x <- subset(x, nchar(text) > 0 & txt_count(text, pattern = " ") < 1000)
 #' 
-#' model <- paragraph2vec(x = x, type = "PV-DM",   dim = 15,  iter = 5)
 #' \donttest{
+#' model <- paragraph2vec(x = x, type = "PV-DM",   dim = 100, iter = 20)
 #' model <- paragraph2vec(x = x, type = "PV-DBOW", dim = 100, iter = 20)
 #' }
-#' 
+#' \dontshow{
+#' model <- paragraph2vec(x = head(x, 5), 
+#'                        type = "PV-DM", dim = 5, iter = 1, min_count = 0)
+#' }
 #' path <- "mymodel.bin"
 #' \dontshow{
 #' path <- tempfile(pattern = "paragraph2vec", fileext = ".bin")
@@ -213,11 +216,14 @@ write.paragraph2vec <- function(x, file){
 #' x <- subset(belgium_parliament, language %in% "french")
 #' x <- subset(x, nchar(text) > 0 & txt_count(text, pattern = " ") < 1000)
 #' 
-#' model <- paragraph2vec(x = x, type = "PV-DM",   dim = 15,  iter = 5)
 #' \donttest{
+#' model <- paragraph2vec(x = x, type = "PV-DM",   dim = 100, iter = 20)
 #' model <- paragraph2vec(x = x, type = "PV-DBOW", dim = 100, iter = 20)
 #' }
-#' 
+#' \dontshow{
+#' model <- paragraph2vec(x = head(x, 5), 
+#'                        type = "PV-DM", dim = 5, iter = 1, min_count = 0)
+#' }
 #' path <- "mymodel.bin"
 #' \dontshow{
 #' path <- tempfile(pattern = "paragraph2vec", fileext = ".bin")