Errors in running code in vignettes:
when running code in 'stmVignette.Rnw'

> options(prompt = "R> ", continue = "+", width = 70, 
+     useFancyQuotes = FALSE)

> library("stm")
stm v1.3.6 successfully loaded. See ?stm for help. 
 Papers, resources, and other materials at structuraltopicmodel.com

> set.seed(2138)

> list(poliblog5k.docs[[1]][, 1:5], poliblog5k.docs[[2]][, 
+     1:3])
[[1]]
     [,1] [,2] [,3] [,4] [,5]
[1,]   21   23   87   98  112
[2,]    2    1    1    1    1

[[2]]
     [,1] [,2] [,3]
[1,]   16   61   90
[2,]    1    1    1


> load(url("https://github.com/bstewart/stm/blob/gh-pages/files/VignetteObjects.RData?raw=true"))

> plotModels(poliblogSelect, pch = c(1, 2, 3, 4), legend.position = "bottomright")

> labelTopics(poliblogPrevFit, c(3, 7, 20))
Topic 3 Top Words:
 	 Highest Prob: obama, barack, campaign, biden, polit, will, debat 
 	 FREX: ayer, barack, obama, wright, biden, jeremiah, joe 
 	 Lift: oct, goolsbe, ayerss, ayr, bernadin, ayer, annenberg 
 	 Score: oct, obama, barack, ayer, wright, campaign, biden 
Topic 7 Top Words:
 	 Highest Prob: palin, governor, sarah, state, alaska, polit, senat 
 	 FREX: blagojevich, palin, sarah, rezko, alaska, governor, gov 
 	 Lift: jindal, blagojevich, juneau, monegan, blago, burri, wasilla 
 	 Score: monegan, palin, blagojevich, sarah, alaska, rezko, governor 
Topic 20 Top Words:
 	 Highest Prob: bush, presid, administr, said, hous, white, report 
 	 FREX: cheney, tortur, cia, administr, interrog, bush, perino 
 	 Lift: addington, fratto, perino, mcclellan, feith, plame, cheney 
 	 Score: addington, bush, tortur, perino, cia, cheney, administr 

> thoughts3 <- findThoughts(poliblogPrevFit, texts = shortdoc, 
+     n = 2, topics = 3)$docs[[1]]

> thoughts20 <- findThoughts(poliblogPrevFit, texts = shortdoc, 
+     n = 2, topics = 20)$docs[[1]]

> thoughts3 <- c("Here's video of the ad we reported on below that the Obama campaign is running in Ohio responding to the earlier Swift-Boating spot  ..." ... [TRUNCATED] 

> thoughts20 <- c("Waxman calls for release of FBI interviews with Bush and Cheney.  In a letter to Attorney General Michael Mukasey today, Rep. Henry ..." ... [TRUNCATED] 

> par(mfrow = c(1, 2), mar = c(0.5, 0.5, 1, 0.5))

> plotQuote(thoughts3, width = 30, main = "Topic 3")

> plotQuote(thoughts20, width = 30, main = "Topic 20")

> out$meta$rating <- as.factor(out$meta$rating)

> prep <- estimateEffect(1:20 ~ rating + s(day), poliblogPrevFit, 
+     meta = out$meta, uncertainty = "Global")

> summary(prep, topics = 1)

Call:
estimateEffect(formula = 1:20 ~ rating + s(day), stmobj = poliblogPrevFit, 
    metadata = out$meta, uncertainty = "Global")


Topic 1:

Coefficients:
                Estimate Std. Error t value Pr(>|t|)    
(Intercept)    0.0661736  0.0122065   5.421 6.02e-08 ***
ratingLiberal  0.0001279  0.0024825   0.052   0.9589    
s(day)1       -0.0089277  0.0223703  -0.399   0.6898    
s(day)2       -0.0353318  0.0139400  -2.535   0.0113 *  
s(day)3       -0.0040266  0.0161259  -0.250   0.8028    
s(day)4       -0.0283562  0.0134825  -2.103   0.0355 *  
s(day)5       -0.0268034  0.0148880  -1.800   0.0718 .  
s(day)6       -0.0104332  0.0143566  -0.727   0.4674    
s(day)7       -0.0022305  0.0144335  -0.155   0.8772    
s(day)8        0.0436073  0.0177024   2.463   0.0138 *  
s(day)9       -0.1016014  0.0177034  -5.739 9.73e-09 ***
s(day)10      -0.0240550  0.0172254  -1.396   0.1626    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1


> plot(poliblogPrevFit, type = "summary", xlim = c(0, 
+     0.3))

> plot(prep, covariate = "rating", topics = c(3, 7, 
+     20), model = poliblogPrevFit, method = "difference", cov.value1 = "Liberal", 
+     cov.val .... [TRUNCATED] 

> plot(prep, "day", method = "continuous", topics = 7, 
+     model = z, printlegend = FALSE, xaxt = "n", xlab = "Time (2008)")

> monthseq <- seq(from = as.Date("2008-01-01"), to = as.Date("2008-12-01"), 
+     by = "month")

> monthnames <- months(monthseq)

> axis(1, at = as.numeric(monthseq) - min(as.numeric(monthseq)), 
+     labels = monthnames)

> plot(poliblogContent, type = "perspectives", topics = 11)

> plot(poliblogPrevFit, type = "perspectives", topics = c(12, 
+     20))

> prep <- estimateEffect(c(20) ~ rating * day, poliblogInteraction, 
+     metadata = out$meta, uncertainty = "None")

> plot(prep, covariate = "day", model = poliblogInteraction, 
+     method = "continuous", xlab = "Days", moderator = "rating", 
+     moderator.value .... [TRUNCATED] 

> plot(prep, covariate = "day", model = poliblogInteraction, 
+     method = "continuous", xlab = "Days", moderator = "rating", 
+     moderator.value .... [TRUNCATED] 

> legend(0, 0.08, c("Liberal", "Conservative"), lwd = 2, 
+     col = c("blue", "red"))

> cloud(poliblogPrevFit, topic = 7, scale = c(2, 0.25))

> mod.out.corr <- topicCorr(poliblogPrevFit)

> plot(mod.out.corr)

  When sourcing 'stmVignette.R':
Error: Install the igraph package to use this function.
Execution halted

  'stmVignette.Rnw' using 'UTF-8'... failed