load(file="x:/latent interactions/LR estimates.rdata")

summary(mvn.LR$LR)
hist(mvn.LR$LR)
summary(mvni.LR$LR)
hist(mvni.LR$LR)
summary(mvchi.LR$LR)
hist(mvchi.LR$LR)
summary(mvchii.LR$LR)
hist(mvchii.LR$LR)

LRsig(mvn.LR)
LRsig(mvn.LR.std)
LRsig(mvni.LR)
LRsig(mvni.LR.std)
LRsig(mvchi.LR)
LRsig(mvchi.LR.std)
LRsig(mvchii.LR)
LRsig(mvchii.LR.std)

opar <- par(mfrow=c(2,2))
LRQQ(mvn.LR)
LRQQ(mvn.LR.std)
LRQQ(mvni.LR)
LRQQ(mvni.LR.std)
par(opar)

opar <- par(mfrow=c(2,2))
LRQQ(mvchi.LR)
LRQQ(mvchi.LR.std)
LRQQ(mvchii.LR)
LRQQ(mvchii.LR.std)
par(opar)