the_data <- adhd
models <- modelPop(nPop=25, numVar=6, longitudinal=FALSE,
consMatrix = matrix(c(1, 2), 1, 2))
model_fitness <- getModelFitness(theData=the_data,
allModelString=models, numTime=1, longitudinal=FALSE, co="covariance")
model_fitness
Run the code above in your browser using DataLab