# NOT RUN {
## Sample means for groups 1 to 3
m <- c(5,7,9)
## Sample variances
v <- c(10,11,12)
## Sample sizes
n <- c(50,52,53)
## Assuming homogeneity of variances
smdMTS(m, v, n, homogeneity = "var", bias.adjust=TRUE, all.comparisons=FALSE,
lavaan.output=FALSE)
## Not assuming homogeneity of variances and comparing all pairwise groups
## Please note that the SD of the first group is used as the standardizer
smdMTS(m, v, n, homogeneity = "none", bias.adjust=TRUE, all.comparisons=TRUE,
lavaan.output=FALSE)
## Output the fitted lavaan model
## It provides a likelihood ratio test to test the null hypothesis of
## homogeneity of variances.
fit <- smdMTS(m, v, n, homogeneity = "var", bias.adjust=FALSE, all.comparisons=FALSE,
lavaan.output=TRUE)
lavaan::summary(fit)
lavaan::parameterestimates(fit)
# }
Run the code above in your browser using DataLab