[2023.8]

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
-Version: 0.3.2
-Date: 2023-03-04 15:49:40 UTC
-SHA: 55eba182c06eda184e8ccfe330691e180444bb01
+Version: 2023.8
+Date: 2023-08-08 07:55:17 UTC
+SHA: c4112bd532e8d243d8f42e8d9fa768dbdecc66c9

NEWS.md

@@ -7,7 +7,7 @@
 ## Minor Changes
 
 -   Now use "YYYY.M" as package version number.
--   Deprecated `text_unmask()` since I have developed a new package [FMAT](https://psychbruce.github.io/FMAT/) as the integrative toolbox of *Fill-Mask Association Test* (FMAT).
+-   Deprecated `text_unmask()` since I have developed a new package [FMAT](https://psychbruce.github.io/FMAT/) as an integrative toolbox of the *Fill-Mask Association Test* (FMAT).
 
 # PsychWordVec 0.3.2 (Mar 2023)
 

R/01-basic.R

@@ -2433,7 +2433,7 @@ print.reliability = function(x, digits=3, ...) {
 #' @examples
 #' ## cc() is more convenient than c()!
 #'
-#' weat = test_WEAT(
+#' \donttest{weat = test_WEAT(
 #'   demodata,
 #'   labels=list(T1="King", T2="Queen", A1="Male", A2="Female"),
 #'   T1=cc("king, King"),
@@ -2443,7 +2443,7 @@ print.reliability = function(x, digits=3, ...) {
 #'   seed=1)
 #' weat
 #'
-#' \donttest{sc_weat = test_WEAT(
+#' sc_weat = test_WEAT(
 #'   demodata,
 #'   labels=list(T1="Occupation", A1="Male", A2="Female"),
 #'   T1=cc("
@@ -2805,7 +2805,7 @@ print.weat = function(x, digits=3, ...) {
 #' \code{\link{test_WEAT}}
 #'
 #' @examples
-#' rnd = test_RND(
+#' \donttest{rnd = test_RND(
 #'   demodata,
 #'   labels=list(T1="Occupation", A1="Male", A2="Female"),
 #'   T1=cc("
@@ -2817,7 +2817,7 @@ print.weat = function(x, digits=3, ...) {
 #'   A2=cc("female, woman, girl, sister, she, her, hers, daughter"),
 #'   seed=1)
 #' rnd
-#'
+#' }
 #' @export
 test_RND = function(
     data, T1, A1, A2,
@@ -3019,7 +3019,7 @@ print.rnd = function(x, digits=3, ...) {
 #' rownames(M) = rownames(X) = cc("A, B, C, D, E")  # words
 #' colnames(M) = colnames(X) = cc("dim1, dim2")  # dimensions
 #'
-#' ggplot() +
+#' \donttest{ggplot() +
 #'   geom_path(data=as.data.frame(M), aes(x=dim1, y=dim2),
 #'             color="red") +
 #'   geom_path(data=as.data.frame(X), aes(x=dim1, y=dim2),
@@ -3053,7 +3053,7 @@ print.rnd = function(x, digits=3, ...) {
 #' Y.wv  # words: F, G, H, I, J, E, D, C, B, A
 #' YR.wv = orth_procrustes(M.wv, Y.wv)
 #' YR.wv  # aligned with M.wv, with the same order of words
-#'
+#' }
 #' @export
 orth_procrustes = function(M, X) {
   stopifnot(all.equal(class(M), class(X)))

R/02-static.R

@@ -49,7 +49,7 @@ utf8_split_default = function() {
 #' \code{\link{train_wordvec}}
 #'
 #' @examples
-#' txt1 = c(
+#' \donttest{txt1 = c(
 #'   "I love natural language processing (NLP)!",
 #'   "I've been in this city for 10 years. I really like here!",
 #'   "However, my computer is not among the \"Top 10\" list."
@@ -62,7 +62,7 @@ utf8_split_default = function() {
 #'
 #' txt2[1]
 #' texts[1:20]  # all sentences in txt2[1]
-#'
+#' }
 #' @export
 tokenize = function(
     text,