Bayesian Regression in Blavaan (using Stan)

This tutorial provides the reader with a basic tutorial how to perform a Bayesian regression in Blavaan, using Stan instead of Jags as a MCMC sampler. You can find the Blavaan Jags tutorial here. We will not delve into the the differences between Stan and Jags here (a technical explanation can be found here and a more accessible blog post here). For now it suffices to say that Stan is more efficient, especially for complex models. While using Blavaan the biggest difference is how you specify the priors. Instead of using a variance, as in Jags, Stan uses standard deviations.

Throughout this tutorial, the reader will be guided through importing data files, exploring summary statistics and regression analyses. Here, we will exclusively focus on Bayesian statistics.

In this tutorial, we start by using the default prior settings of the software. In a second step, we will apply user-specified priors, and if you really want to use Bayes for your own data, we recommend to follow the WAMBS-checklist, also available in other software.

Preparation

This tutorial expects:

• Installation of R packages rstan, lavaan and blavaan.This tutorial was made using Blavaan version 0.3-2 and Lavaan version 0.6-1
• Basic knowledge of hypothesis testing
• Basic knowledge of correlation and regression
• Basic knowledge of Bayesian inference
• Basic knowledge of coding in R

Example Data

The data we will be using for this exercise is based on a study about predicting PhD-delays (Van de Schoot, Yerkes, Mouw and Sonneveld 2013). The data can be downloaded here. Among many other questions, the researchers asked the Ph.D. recipients how long it took them to finish their Ph.D. thesis (n=333). It appeared that Ph.D. recipients took an average of 59.8 months (five years and four months) to complete their Ph.D. trajectory. The variable B3_difference_extra measures the difference between planned and actual project time in months (mean=9.96, sd=14.43). For more information on the sample, instruments, methodology and research context we refer the interested reader to the paper.

For the current exercise we are interested in the question whether age of the Ph.D. recipients is related to a delay in their project.

The relation between completion time and age is expected to be non-linear. This might be due to that at a certain point in your life (i.e., mid thirties), family life takes up more of your time than when you are in your twenties or when you are older.

So, in our model the gap (B3_difference_extra) is the dependent variable and $$age$$ (E22_Age) and $$age^2$$(E22_Age_Squared ) are the predictors. The data can be found in the file phd-delays.csv .

Question: Write down the null and alternative hypotheses that represent this question. Which hypothesis do you deem more likely?

$$H_0:$$ $$age^2$$( is not related to a delay in the PhD projects.

$$H_1:$$ $$age^2$$(is related to a delay in the PhD projects.

Preparation – Importing and Exploring Data

# if you dont have these packages installed yet, please use the install.packages("package_name") command.
library(rstan)
library(blavaan)
library(psych) #to get some extended summary statistics
library(tidyverse) # needed for data manipulation.

You can find the data in the file phd-delays.csv , which contains all variables that you need for this analysis. Although it is a .csv-file, you can directly load it into R using the following syntax:

#read in data
colnames(data)<- c("diff", "child", "sex","age","age2")

Once you loaded in your data, it is advisable to check whether your data import worked well. Therefore, first have a look at the summary statistics of your data. you can do this by using the describe() function.

Question: Have all your data been loaded in correctly? That is, do all data points substantively make sense? If you are unsure, go back to the .csv-file to inspect the raw data.
describe(data)
##       vars   n    mean     sd median trimmed    mad min  max range  skew
## diff     1 333    9.97  14.43      5    6.91   7.41 -31   91   122  2.21
## child    2 333    0.18   0.38      0    0.10   0.00   0    1     1  1.66
## sex      3 333    0.52   0.50      1    0.52   0.00   0    1     1 -0.08
## age      4 333   31.68   6.86     30   30.39   2.97  26   80    54  4.45
## age2     5 333 1050.22 656.39    900  928.29 171.98 676 6400  5724  6.03
##       kurtosis    se
## diff      5.92  0.79
## child     0.75  0.02
## sex      -2.00  0.03
## age      24.99  0.38
## age2     42.21 35.97

The descriptive statistics make sense:

diff: Mean (9.97), SE (0.79)

age: Mean (31.68), SE (0.38)

age2: Mean (1050.22), SE (35.97)

Regression – Default Priors

In this exercise you will investigate the impact of Ph.D. students’ $$age$$ and $$age^2$$(on the delay in their project time, which serves as the outcome variable using a regression analysis (note that we ignore assumption checking!).

As you know, Bayesian inference consists of combining a prior distribution with the likelihood obtained from the data. Specifying a prior distribution is one of the most crucial points in Bayesian inference and should be treated with your highest attention (for a quick refresher see e.g. Van de Schoot et al. 2017). In this tutorial, we will first rely on the default prior settings, thereby behaving a ‘naive’ Bayesians (which might notalways be a good idea).

To run a multiple regression with Blavaan, you first specify the model, then fit the model and finally acquire the summary (similar to the frequentist model in Lavaan). The model is specified as follows:

1. A dependent variable we want to predict.
2. A “~”, that we use to indicate that we now give the other variables of interest. (comparable to the ‘=’ of the regression equation).
3. The different independent variables separated by the summation symbol ‘+’.
4. Finally, we insert that the dependent variable has a variance and that we want an intercept.

The following code is how to specify the regression model:

# 1) specify the model
model.regression <- '#the regression model
diff ~ age + age2

#show that dependent variable has variance
diff ~~ diff

#we want to have an intercept
diff ~ 1'

Then, we need to fit the model by using the following code: We specify target = "stan" to tell Blavaan to use the Stan instead of the Jags compiler.

fit.bayes <- blavaan(model.regression, data=data, test="none", target= "stan",  seed=20012019)

# the test="none" input stops the calculations of some posterior checks, we do not need at this moment and speeds up the process.

# we set the seed to get a reproducible example

Now we will have a look at the summary by using summary(fit.bayes).

summary(fit.bayes)
## blavaan (0.3-2) results of 1000 samples after 500 adapt/burnin iterations
##
##   Number of observations                           333
##
##   Number of missing patterns                         1
##
##   Statistic
##   Value
##
## Parameter Estimates:
##
##
## Regressions:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##   diff ~
##     age                 2.395    0.535      1.384      3.414    1.002
##     age2               -0.023    0.006     -0.034     -0.013    1.001
##     Prior
##
##       normal(0,10)
##       normal(0,10)
##
## Intercepts:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##    .diff              -41.494   11.241    -62.475        -20    1.002
##     Prior
##  normal(0,1000^.5)
##
## Variances:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##    .diff              196.543   15.401    169.503    229.045    1.001
##     Prior
##        gamma(1,.5)

The results that stem from a Bayesian analysis are genuinely different from those that are provided by a frequentist model.

The key difference between Bayesian statistical inference and frequentist statistical methods concerns the nature of the unknown parameters that you are trying to estimate. In the frequentist framework, a parameter of interest is assumed to be unknown, but fixed. That is, it is assumed that in the population there is only one true population parameter, for example, one true mean or one true regression coefficient. In the Bayesian view of subjective probability, all unknown parameters are treated as uncertain and therefore are be described by a probability distribution. Every parameter is unknown, and everything unknown receives a distribution.

This is why in frequentist inference, you are primarily provided with a point estimate of the unknown but fixed population parameter. This is the parameter value that, given the data, is most likely in the population. An accompanying confidence interval tries to give you further insight in the uncertainty that is attached to this estimate. It is important to realize that a confidence interval simply constitutes a simulation quantity. Over an infinite number of samples taken from the population, the procedure to construct a (95%) confidence interval will let it contain the true population value 95% of the time. This does not provide you with any information how probable it is that the population parameter lies within the confidence interval boundaries that you observe in your very specific and sole sample that you are analyzing.

In Bayesian analyses, the key to your inference is the parameter of interest’s posterior distribution. It fulfills every property of a probability distribution and quantifies how probable it is for the population parameter to lie in certain regions. On the one hand, you can characterize the posterior by its mode. This is the parameter value that, given the data and its prior probability, is most probable in the population. Alternatively, you can use the posterior’s mean or median. Using the same distribution, you can construct a 95% credibility interval, the counterpart to the confidence interval in frequentist statistics. Other than the confidence interval, the Bayesian counterpart directly quantifies the probability that the population value lies within certain limits. There is a 95% probability that the parameter value of interest lies within the boundaries of the 95% credibility interval. Unlike the confidence interval, this is not merely a simulation quantity, but a concise and intuitive probability statement. For more on how to interpret Bayesian analysis, check Van de Schoot et al. 2014.

Question: Interpret the estimated effect, its interval and the posterior distribution.

$$Age$$ seems to be a relevant predictor of PhD delays, with a posterior mean regression coefficient of 2.35, 95% HPD (Credibility Interval) [1.38, 3.47]. Also, $$age^2$$( seems to be a relevant predictor of PhD delays, with a posterior mean of -0.023, and a 95% credibility Interval of [-0.03, -0.01]. The 95% HPD shows that there is a 95% probability that these regression coefficients in the population lie within the corresponding intervals, see also the posterior distributions in the figures below. Since 0 is not contained in the Credibility Interval we can be fairly sure there is an effect.

Question: Every Bayesian model uses a prior distribution. Describe the shape of the prior distributions of the regression coefficients.

To check which default priors are being used by Blavaan, you can use the dpriors() command.

dpriors(target = "stan")
##                  nu               alpha              lambda
## "normal(0,1000^.5)"      "normal(0,10)"      "normal(0,10)"
##                beta              itheta                ipsi
##      "normal(0,10)"       "gamma(1,.5)"       "gamma(1,.5)"
##                 rho               ibpsi                 tau
##         "beta(1,1)"   "wishart(3,iden)"   "normal(0,10^.5)"
##               delta
##       "gamma(1,.5)"

The priors used for the regression coefficients (beta) are flat and allow probability mass across the entire parameter space. Blavaan (Stan) makes use of a very wide normal distribution to come to this uninformative prior. By default the mean is 0, with a standard deviation of 10. you can decide whether or not this is uninformative enough or not for your situation.

Regression – User-specified Priors

In Blavaan, you can also manually specify your prior distributions. Be aware that usually, this has to be done BEFORE peeking at the data, otherwise you are double-dipping (!). In theory, you can specify your prior knowledge using any kind of distribution you like. However, if your prior distribution does not follow the same parametric form as your likelihood, calculating the model can be computationally intense. Conjugate priors avoid this issue, as they take on a functional form that is suitable for the model that you are constructing. For your normal linear regression model, conjugacy is reached if the priors for your regression parameters are specified using normal distributions (the residual variance receives an inverse gamma distribution, which is neglected here). In Blavaan, you are quite flexible in the specification of informative priors.

Let’s re-specify the regression model of the exercise above, using conjugate priors. We leave the priors for the intercept and the residual variance untouched for the moment. Regarding your regression parameters, you need to specify the hyperparameters of their normal distribution, which are the mean and the variance. The mean indicates which parameter value you deem most likely. The variance expresses how certain you are about that. We try 4 different prior specifications, for both the $$\beta_{age}$$ regression coefficient, and the $$\beta_{age^2}$$ coefficient.

First, we use the following prior specifications:

$$Age$$ ~ N(3, 0.4)

$$Age^2$$ N(0, 0.1)

In Blavaan, the priors are set in the model formulation step. Be careful, Stan uses standard deviations instead of variance in the normal distribution. The standard deviations is the square root of the variance, so a variance of 0.1 corresponds to a standard deviation of 0.316 and a variance of 0.4 corresponds to a standard deviation of 0.632.

The priors are presented in code as follows:

model.informative.priors1 <-
'#the regression model with priors
diff ~ prior("normal(3, 0.632)")*age + prior("normal(0, 0.316 )")*age2

#show that dependent variable has variance
diff ~~ diff

#we want to have an intercept (with normal prior)
diff ~ 1'

Now fit the model and request for summary statistics.

fit.bayes.infprior1 <- blavaan(model.informative.priors1, data=data, test="none",  target= "stan", burnin=1000, sample=5000, seed=20012019)
summary(fit.bayes.infprior1, fit.measures=TRUE, ci = TRUE, rsquare=TRUE)
## blavaan (0.3-2) results of 5000 samples after 1000 adapt/burnin iterations
##
##   Number of observations                           333
##
##   Number of missing patterns                         1
##
##   Statistic
##   Value
##
## Parameter Estimates:
##
##
## Regressions:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##   diff ~
##     age                 2.640    0.408      1.849      3.454    1.000
##     age2               -0.026    0.004     -0.034     -0.017    1.000
##     Prior
##
##    normal(3,0.632)
##    normal(0,0.316)
##
## Intercepts:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##    .diff              -46.635    8.627    -63.602    -29.971    1.000
##     Prior
##  normal(0,1000^.5)
##
## Variances:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##    .diff              196.201   15.444    168.702    229.005    1.000
##     Prior
##        gamma(1,.5)
##
## R-Square:
##                    Estimate
##     diff                0.061

Question Fill in the results in the table below:

AgeDefault priorN(3, 0.4)N(3, 1000)N(20, 0.4)N(20, 1000)
Posterior mean2.338
Posterior sd0.546
Age squaredDefault priorN(0, 0.1)N(0, 1000)N(20, 0.1)N(20, 1000)
Posterior mean-0.023
Posterior sd0.006
AgeDefault priorN(3, 0.4)N(3, 1000)N(20, 0.4)N(20, 1000)
Posterior mean2.3382.633
Posterior sd0.5460.417
Age squaredDefault priorN(0, 0.1)N(0, 1000)N(20, 0.1)N(20, 1000)
Posterior mean-0.023-0.026
Posterior sd0.0060.004

Next, try to adapt the code, using the prior specifications of the other columns and then complete the table.

model.informative.priors2 <-
'#the regression model with priors
diff ~ prior("normal(3, 31.6)")*age + prior("normal(0,  31.6)")*age2

#show that dependent variable has variance
diff ~~ diff

#we want to have an intercept (with normal prior)
diff ~ 1'
model.informative.priors3 <-
'#the regression model with priors
diff ~ prior("normal(20, 0.632)")*age + prior("normal(20, 0.316)")*age2

#show that dependent variable has variance
diff ~~ diff

#we want to have an intercept (with normal prior)
diff ~ 1'
model.informative.priors4 <-
'#the regression model with priors
diff ~ prior("normal(20, 31.6)")*age + prior("normal(20,  31.6)")*age2

#show that dependent variable has variance
diff ~~ diff

#we want to have an intercept (with normal prior)
diff ~ 1'
fit.bayes.infprior2 <- blavaan(model.informative.priors2, data=data,  test="none",  target= "stan", burnin=1000, sample=5000, seed=20012019)
fit.bayes.infprior3 <- blavaan(model.informative.priors3, data=data,   test="none",  target= "stan", burnin=1000, sample=5000, seed=20012019)
fit.bayes.infprior4 <- blavaan(model.informative.priors4, data=data,   test="none",  target= "stan", burnin=1000, sample=5000, seed=20012019)
summary(fit.bayes.infprior2, fit.measures=TRUE, ci = TRUE, rsquare=TRUE)
## blavaan (0.3-2) results of 5000 samples after 1000 adapt/burnin iterations
##
##   Number of observations                           333
##
##   Number of missing patterns                         1
##
##   Statistic
##   Value
##
## Parameter Estimates:
##
##
## Regressions:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##   diff ~
##     age                 2.367    0.542      1.301      3.405    1.002
##     age2               -0.023    0.006     -0.034     -0.012    1.002
##     Prior
##
##     normal(3,31.6)
##     normal(0,31.6)
##
## Intercepts:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##    .diff              -40.916   11.432    -62.743    -18.583    1.002
##     Prior
##  normal(0,1000^.5)
##
## Variances:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##    .diff              196.397   15.322    168.726    228.284    1.001
##     Prior
##        gamma(1,.5)
##
## R-Square:
##                    Estimate
##     diff                0.050
summary(fit.bayes.infprior3, fit.measures=TRUE, ci = TRUE, rsquare=TRUE)
## blavaan (0.3-2) results of 5000 samples after 1000 adapt/burnin iterations
##
##   Number of observations                           333
##
##   Number of missing patterns                         1
##
##   Statistic
##   Value
##
## Parameter Estimates:
##
##
## Regressions:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##   diff ~
##     age                11.199    0.539     10.165     12.283    1.002
##     age2               -0.113    0.006     -0.125     -0.102    1.001
##     Prior
##
##   normal(20,0.632)
##   normal(20,0.316)
##
## Intercepts:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##    .diff             -225.363   11.350   -248.101    -203.57    1.002
##     Prior
##  normal(0,1000^.5)
##
## Variances:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##    .diff              322.348   29.796    268.726    385.354    1.001
##     Prior
##        gamma(1,.5)
##
## R-Square:
##                    Estimate
##     diff                0.401
summary(fit.bayes.infprior4, fit.measures=TRUE, ci = TRUE, rsquare=TRUE)
## blavaan (0.3-2) results of 5000 samples after 1000 adapt/burnin iterations
##
##   Number of observations                           333
##
##   Number of missing patterns                         1
##
##   Statistic
##   Value
##
## Parameter Estimates:
##
##
## Regressions:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##   diff ~
##     age                 2.371    0.548      1.284      3.453    1.001
##     age2               -0.023    0.006     -0.034     -0.012    1.001
##     Prior
##
##    normal(20,31.6)
##    normal(20,31.6)
##
## Intercepts:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##    .diff              -41.019   11.526    -63.758    -18.109    1.001
##     Prior
##  normal(0,1000^.5)
##
## Variances:
##                    Estimate    Post.SD  HPD.025    HPD.975       PSRF
##    .diff              196.641   15.558    168.718    229.883    1.000
##     Prior
##        gamma(1,.5)
##
## R-Square:
##                    Estimate
##     diff                0.050
AgeDefault priorN(3, 0.4)N(3, 1000)N(20, 0.4)N(20, 1000)
Posterior mean2.3382.6332.35811.2142.374
Posterior sd0.5460.4170.5570.5500.547
Age squaredDefault priorN(0, 0.1)N(0, 1000)N(20, 0.1)N(20, 1000)
Posterior mean-0.023-0.026-0.023-0.114-0.023
Posterior sd0.0060.0040.0060.0060.006

Question: Do we end up with similar conclusions, using different prior specifications?

To answer these questions, proceed as follows: We can calculate the relative bias to express this difference. ($$bias= 100*\frac{(model informative priors-model uninformed priors)}{model uninformative priors}$$). In order to preserve clarity we will just calculate the bias of the two regression coefficients and only compare the default (uninformative) model with the model that uses the N(20, 0.4) and N(20, 0.1) priors. Copy Paste the following code to R:

#1) substract the MCMC chains
mcmc.list<-blavInspect(fit.bayes, what="mcmc")
mcmc.list.informative <- blavInspect(fit.bayes.infprior3, what="mcmc")

#2) bind the different chains an calculate the mean (estimate) of the regression coefficients
estimatesuninformative<-colMeans(as.matrix(mcmc.list)[,c("beta[1,2,1]","beta[1,3,1]")])
estimatesinformative<-colMeans(as.matrix(mcmc.list.informative)[,c("beta[1,2,1]","beta[1,3,1]")])

#3) calculate the bias
round(100*((estimatesinformative-estimatesuninformative)/estimatesuninformative), 2)

The beta[1,2,1] and beta[1,3,1] indices stand for the $$\beta_{age}$$ and $$\beta_{age^2}$$ respectively. These somewhat confusing indices are what Blavaan receives from the MCMC sampler in Stan These are just the labels Stan gives to the parameters and Blavaan doesn’t really translate them back to the input names we gave them. There is some order to it though. Beta[x,x,x] are regression coefficients (in the order we specified them in the model, so first $$age$$ and then $$age^2$$), alpha[x,x,x] are intercepts, psi[x,x,x] are variances, and def[x,x,x] are indirect effects (if you have those in your model). They are listed in the same order as they are in the summary() output. So first regression coefficients, then intercepts, then (co)variances, and then indirect effects.

We can also plot these differences by plotting both the posterior and priors for the five different models we ran. In this example we only plot the regression of coefficient of age $$\beta_{age}$$

First we extract the MCMC chains of the 5 different models for only this one parameter ($$\beta_{age}$$=beta[1,2,1]). Copy-past the following code to R:

posterior1.2.3.4.5<-bind_rows("uninformative prior"= as_tibble(as.matrix(blavInspect(fit.bayes, what="mcmc"))[,'beta[1,2,1]']),
"informative prior 1" =as_tibble(as.matrix(blavInspect(fit.bayes.infprior1, what="mcmc"))[,'beta[1,2,1]']),
"informative prior 2" =as_tibble(as.matrix(blavInspect(fit.bayes.infprior2, what="mcmc"))[,'beta[1,2,1]']),
"informative prior 3" =as_tibble(as.matrix(blavInspect(fit.bayes.infprior3, what="mcmc"))[,'beta[1,2,1]']),
"informative prior 4" =as_tibble(as.matrix(blavInspect(fit.bayes.infprior4, what="mcmc"))[,'beta[1,2,1]']),
.id= "id1")

prior1.2.3.4.5<-bind_rows("uninformative prior"= as_tibble(rnorm(10000, mean=0, sd=sqrt(1/1e-2))),
"informative prior 1" =as_tibble(rnorm(10000, mean=3, sd=sqrt(0.4))),
"informative prior 2" =as_tibble(rnorm(10000, mean=3, sd=sqrt(1000))),
"informative prior 3" =as_tibble(rnorm(10000, mean=20, sd=sqrt(0.4))),
"informative prior 4" =as_tibble(rnorm(10000, mean=20, sd=sqrt(1000))),
.id= "id1")# here we sample a large number of values from the prior distributions to be able to plot them.

priors.posterior<-bind_rows("posterior"=posterior1.2.3.4.5, "prior"=prior1.2.3.4.5,  .id= "id2")

Then, we can plot the different posteriors and priors by using the following code:

ggplot(data=priors.posterior, mapping = aes(x=value, fill =  id1, colour=id2, linetype=id2, alpha=id2))+
geom_density(size=1)+
scale_x_continuous(limits=c(0, 23))+
scale_colour_manual(name='Posterior/Prior', values = c("black","red"), labels= c("posterior", "prior"))+
scale_linetype_manual(name='Posterior/Prior', values = c("solid","dotted"), labels= c("posterior", "prior"))+
scale_alpha_discrete(name='Posterior/Prior',range = c(.7,.3), labels= c("posterior", "prior"))+
scale_fill_manual(name="Densities", values = c("Yellow","darkred","blue", "green", "pink"))+
labs(title=expression("Influence of (Informative) Priors on" ~ beta[Age]), subtitle= "5 different densities of priors and posteriors") Now, with the information from the table, the bias estimates and the plot you can answer the two questions about the influence of the priors on the results.

#1) substract the MCMC chains
mcmc.list<-blavInspect(fit.bayes, what="mcmc")
mcmc.list.informative <- blavInspect(fit.bayes.infprior3, what="mcmc")

#2) bind the different chains an calculate the mean (estimate) of the regression coefficients
estimatesuninformative<-colMeans(as.matrix(mcmc.list)[,c("beta[1,2,1]","beta[1,3,1]")])
estimatesinformative<-colMeans(as.matrix(mcmc.list.informative)[,c("beta[1,2,1]","beta[1,3,1]")])

#3) calculate the bias
round(100*((estimatesinformative-estimatesuninformative)/estimatesuninformative), 2)
## beta[1,2,1] beta[1,3,1]
##      367.51      388.82

We see that the influence of this highly informative prior is around 368% and 389% on the two regression coefficients respectively. This is a large difference and we thus certainly would not end up with similar conclusions.

The results change with different prior specifications, but are still comparable. Only using N(20, 0.4) for age, results in a really different coefficients, since this prior mean is far from the mean of the data, while its variance is quite certain. However, in general the other results are comparable. Because we use a big dataset the influence of the prior is relatively small. If one would use a smaller dataset the influence of the priors are larger. To check this you can use these lines to sample roughly 20% of all cases and redo the same analysis. The results will of course be different because we use many fewer cases (probably too few!). Use this code.

indices <- sample.int(333, 60)
smalldata <- data[indices,]

We made a new dataset with randomly chosen 60 of the 333 observations from the original dataset. You can repeat the analyses with the same code and only changing the name of the dataset to see the influence of priors on a smaller dataset. Run the model model.informative.priors2 with this new dataset

fit.bayes.infprior2_small <- blavaan(model.informative.priors2, data=smalldata, test="none",  target= "stan", burnin=1000, sample=5000, seed=20012019)
summary(fit.bayes.infprior2_small, fit.measures=TRUE, ci = TRUE, rsquare=TRUE)

A logical next step is to define your own priors. To do so, one first needs to think about a plausible parameter space. You can follow the steps in this responsive tutorial to do so.

If you really want to use Bayes for your own data, we recommend to follow the WAMBS-checklist, which you are guided through by this exercise.