This is a function that removes all "empty" trees, that is, those that contain only the root node and no splits

thinOut(x)

Arguments

x

A SEM forest