jsakaluk/scripty

scripty: Automated Syntax Generation of Measurement Models

scripty

The goal of scripty is to help automate the specification and comparison of different generating psychometric models for indicators of psychological constructs. The package also aims to help researchers calculate scores based on their determined psychometric model for use in subsequent analyses. This package is very early in its development, so functionality is likely to expand/change dramatically/suddenly.

Installation

You can install the development version from GitHub with:

# install.packages("devtools")
devtools::install_github("jsakaluk/scripty")

Examples

library(dplyr) 
library(psych)
library(scripty)
data(bfi)

#Fit congeneric factor model to bfi agreeableness items
agree.mod <- congeneric(dplyr::select(bfi, A1:A5))

#Calculate H and Omega indexes of reliability: 
reliability(agree.mod)

#Extract factor score for agreeableness as a predictor
bfi <- scoreit(dplyr::select(bfi, A1:A5), bfi, scorerole = "predictor")

#Preview first few A1:A5 and factor scores
head(select(bfi, A1:A5, out.score))

scripty's Issues

get_invareffsize & dplyr

Please briefly describe your problem and what output you expect. If you have a question, please don't use this form. Instead, ask on https://stackoverflow.com/ or https://community.rstudio.com/.

Please include a minimal reproducible example (AKA a reprex). If you've never heard of a reprex before, start by reading https://www.tidyverse.org/help/#reprex.

Brief description of the problem
Using the example in the documentation (HolzingerSwineford1939 data), I could only get the function to run when loading "dplyr" beforehand (otherwise an error pops up about the group_by function).

```devtools::install_github("jsakaluk/psyscores")
library(psyscores)
library(lavaan)
d <- HolzingerSwineford1939

# library(dplyr) # needed for code to run for me

d$group[d$school=="Pasteur"] = "Pasteur"
d$group[d$school=="Grant-White"] = "Grant-White"

fac.mod <- ' visual =~ x1 + x2 + x3'
fit <- cfa(fac.mod, data=d, group="group")

get_invareffsize(dat=d, fit=fit, nodewidth=.01, lowerLV=-5, upperLV=5, lvname=NULL)

scripts.txt not exporting to scripts subdirectory

Instead scripts.txt is outputting to top level of working directory. Need a fix on line 34 of fitMultiMod to correct specified file path