identifyComponentModel function

identifyComponentModel Determine if a variance components model is identified