model fit for generalized sem model in R?