Can't replicate sem package in R