SachaEpskamp

\documentclass{beamer}

\begin{document}
<<echo=FALSE>>=
library("qgraph")
@

%%% SLIDE 1 %%%
\begin{frame}[fragile]{Weights matrices}
\begin{columns}

SachaEpskamp

library('shiny')
library('statcheck')

shinyServer(function(input, output) {
  
  Dir <- tempdir()
  
  Results <- reactive({ 
    
    # Copy to the directory:

SachaEpskamp

library("shiny")
library("foreign")
library('qgraph')

shinyServer(function(input, output) {
  #   
  #   # Data import:
  #   output$data <- reactiveTable(function() {
  #     if (is.null(input$files)) {
  #       # User has not uploaded a file yet

SachaEpskamp

library("qgraph")
library('multivar')
library('lavaan')
library("shinyIncubator")
library("shiny")
library("foreign")

BFreport <- function(x)
{
  if (x > 10000)

SachaEpskamp

library("semPlot")
library("lavaan")

SachaEpskamp

library("qgraph")
library("igraph")
library("Rcpp")
library("shiny")

download.file("http://sachaem47.fortyseven.versio.nl/files/IsingCppBinary.cpp", file <- tempfile(fileext=".cpp"))
sourceCpp(file)

SachaEpskamp

library("shinyIncubator")
library("shiny")

SachaEpskamp

library("shiny")
library("foreign")

SachaEpskamp

# Function to download OSF file:
getOSFfile <- function(
  code,  #Either "https://osf.io/XXXXX/" or just the code
  dir = getwd(), # Output location
  method = c("downloader","httr","curl") # First one is chosen
){
  # Check if input is code:
  if (!grepl("osf\\.io",code)){
    URL <- sprintf("https://osf.io/%s/",code)
  } else URL <- code

SachaEpskamp

# Bayesian Exploratory/Confirmatory CFA:


# Functions:
# becfa: Runs the Bayesian Exploratory/Confirmatory factor analysis model. And compares it vs regular CFA plus frequentist CFAs
# becfa_mi: Runs the measurement invariance steps using ONLY BECFA

becfa_mi <- function(
  model, # Lavaan model
  data,