source("X:/Latent Interactions/Import results/parameter import functions.r")

mvn0 <- in0("x:/latent interactions/mvn/mvnparm0.dat")
mvn1 <- in1("x:/latent interactions/mvn/mvnparm1.dat")
mvni0 <- in0("x:/latent interactions/mvni/mvniparm0.dat")
mvni1 <- in1("x:/latent interactions/mvni/mvniparm1.dat")

mvchi0 <- in0("x:/latent interactions/mvchi/mvchiparm0.dat")
mvchi1 <- in1("x:/latent interactions/mvchi/mvchiparm1.dat")
mvchii0 <- in0("x:/latent interactions/mvchii/mvchiiparm0.dat")
mvchii1 <- in1("x:/latent interactions/mvchii/mvchiiparm1.dat")

mvn0.std <- in0("x:/latent interactions/mvn/mvnstdparm0.dat")
mvn1.std <- in1("x:/latent interactions/mvn/mvnstdfull1.dat")
mvni0.std <- in0("x:/latent interactions/mvni/mvnistdparm0.dat")
mvni1.std <- in1("x:/latent interactions/mvni/mvnistdparm1.dat")

mvchi0.std <- in0("x:/latent interactions/mvchi/mvchistdparm0.dat")
mvchi1.std <- in1("x:/latent interactions/mvchi/mvchistdparm1.dat")
mvchii0.std <- in0("x:/latent interactions/mvchii/mvchiistdparm0.dat")
mvchii1.std <- in1("x:/latent interactions/mvchii/mvchiistdparm1.dat")

save(list=ls(), file="x:/latent interactions/Parameters estimates only.rdata")