model1 <- '

    # measurement model
    academia =~ grades + job + problems
    multitasking =~ mmi + media + devices + conners + sleep
    ses =~ nlang + devices # sleep
    boygaming =~ gender + gametime + violentgames
    processing_speed =~ d2kl + sartspeed + lachauxspeed
    attention_regularity =~ sartreg + lachauxreg + sartfa

    # Regression latent
    boygaming ~ processing_speed
    age ~ processing_speed
    academia ~ multitasking + processing_speed + age + ses

    # variance (NOTE: SHOULD I FIX THE VARIANCE ?)
    sartreg ~~ 1*sartreg
    grades ~~ 1*grades
    job ~~ 1*job
    conners ~~ 1*conners
    sleep ~~ 1*sleep
    gametime ~~ 1*gametime
    mmi ~~ 1*mmi
    media ~~ 1*media
    nlang ~~ 1*nlang
    devices ~~ 1*devices
    violentgames ~~ 1*violentgames
    age ~~ 1*age

    d2kl ~~ 1*d2kl
    sartspeed ~~ 1*sartspeed
    lachauxspeed ~~ 1*lachauxspeed
    lachauxreg ~~ 1*lachauxreg
    sartfa ~~ 1*sartfa

'