rm(list=ls())
library(testthat)
library(lavaan)
library(bain)
test_check("bain")