take two shorts examples out of \dontrun

ecmerkle · Jun 9, 2024 · b395a34 · b395a34
1 parent ffe40ef
commit b395a34
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 6 deletions.
diff --git a/man/bcfa.Rd b/man/bcfa.Rd
@@ -124,15  124,20 @@ http://www.jstatsoft.org/v48/i02/.
 \code{\link{blavaan}}
 }
 \examples{
-\dontrun{
 data(HolzingerSwineford1939, package = "lavaan")
 
 # The Holzinger and Swineford (1939) example
 HS.model <- ' visual  =~ x1   x2   x3
               textual =~ x4   x5   x6
               speed   =~ x7   x8   x9 '
 
 \dontrun{
 fit <- bcfa(HS.model, data = HolzingerSwineford1939)
 summary(fit)
 }
 
 # A short run for rough results
 fit <- bcfa(HS.model, data = HolzingerSwineford1939, burnin = 100, sample = 100,
             n.chains = 2)
 summary(fit)
 }
diff --git a/man/bsem.Rd b/man/bsem.Rd
@@ -122,9  122,8 @@ http://www.jstatsoft.org/v48/i02/.
 \code{\link{blavaan}}
 }
 \examples{
-\dontrun{
-## The industrialization and Political Democracy Example
-## Bollen (1989), page 332
 # The industrialization and Political Democracy Example
 # Bollen (1989), page 332
 data(PoliticalDemocracy, package = "lavaan")
 
 model <- '
@@ -145,9  144,16 @@ model <- '
     y6 ~~ y8
 '
 
-## unique priors for mv intercepts
 \dontrun{
 # mildly informative priors for mv intercepts and loadings
 fit <- bsem(model, data = PoliticalDemocracy,
-            dp = dpriors(nu = "normal(5,10)"))
             dp = dpriors(nu = "normal(5,10)", lambda = "normal(1,.5)"))
 summary(fit)
 }
 
 # A short run for rough results
 fit <- bsem(model, data = PoliticalDemocracy, burnin = 100, sample = 100,
             dp = dpriors(nu = "normal(5,10)", lambda = "normal(1,.5)"),
             n.chains = 2)
 summary(fit)
 }