STMprinter 是针对STM建模中模型选择的一个自动化报告第三方支撑包，之前在使用时发现有部分代码无法在 Windows 系统下运行，今天无意找到这篇网文：parallelsugar: An implementation of mclapply for Windows 提到可以用 parallelsugar 包来使得 mclapply 函数可以在 windows 下使用。
尝试代码如下：
#安装 parallelsugar
library(devtools)
install_github('nathanvan/parallelsugar')
library(stm)
library(stmprinter)
library(parallelsugar)
processed <- textProcessor(
documents = gadarian$open.ended.response,
metadata = gadarian
)
out <- prepDocuments(
documents = processed$documents,
vocab = processed$vocab,
meta = processed$meta
)
set.seed(2018)
stm_models <- many_models(
K = 3:12,
documents = out$documents,
vocab= out$vocab,
prevalence = ~ treatment + s(pid_rep),
data = out$meta,
#N = 4,
runs = 100
)
print_models(
stm_models, gadarian$open.ended.response,
file = "gadarian_stm_runs.pdf",
title = "gadarian project"
)
发现还是报错，突发想法，是否可以修改 STMprinter 包中的 stm_models 函数，在 mclapply 函数运行前加载 parallelsugar 包？
