Wed, 09/02/2009 - 21:21

When I run the following model, the program is telling me that I have 7405 degrees of freedom when there should only be around 370. I'm just wondering if anyone can offer any insight into what could be causing this discrepancy? Here's the code I'm running:

MissDataSim2 <- read.table("F:/Kyle/Research/OpenMx/Data/Kyle.MissDataSim2.txt", header = TRUE)

library(OpenMx)

MissDataModel3<-mxModel("Missing Data Simulation Structural Model with Phantom Constructs",

type="RAM",

mxData(MissDataSim2,

type="raw"

),

manifestVars=c("a1","a2","a3","a4","a5","a6","a7","a8","a9","a10",

"b1","b2","b3","b4","b5","b6","b7","b8","b9","b10",

"c1","c2","c3","c4","c5","c6","c7","c8","c9","c10"),

latentVars=c("FA","FB","FC","PA","PB","PC"),

# residual variances

mxPath(from=c("a1","a2","a3","a4","a5","a6","a7","a8","a9","a10",

"b1","b2","b3","b4","b5","b6","b7","b8","b9","b10",

"c1","c2","c3","c4","c5","c6","c7","c8","c9","c10"),

arrows=2,

free=TRUE,

values=c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1),

labels=c("e1","e2","e3","e4","e5","e6","e7","e8","e9","e10",

"e11","e12","e13","e14","e15","e16","e17","e18","e19","e20",

"e21","e22","e23","e24","e25","e26","e27","e28","e29","e30")

),

# latent variances and covariance

mxPath(from=c("FA","FB","FC"),

arrows=2,

all=2,

free=c(FALSE,FALSE,FALSE,

FALSE,FALSE,FALSE,

FALSE,FALSE,FALSE),

values=c(0,0,0,

0,0,0,

0,0,0),

labels=c("varFA","covAB","covAC",

"covBA","varFB","covBC",

"covCA","covCB","varFC")

),

# phantom variances and covariance

mxPath(from=c("PA","PB","PC"),

arrows=2,

all=2,

free=c(FALSE,FALSE,FALSE,

FALSE,FALSE,FALSE,

FALSE,FALSE,FALSE),

values=c(1,0,0,

0,1,0,

0,0,1),

labels=c("varPA","covPAB","covPAC",

"covPBA","varPB","covPBC",

"covPCA","covPCB","varPC")

),

# factor loadings for a variables

mxPath(from="FA",

to=c("a1","a2","a3","a4","a5","a6","a7","a8","a9","a10"),

arrows=1,

free=c(TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE),

values=c(1,1,1,1,1,1,1,1,1,1),

labels=c("l1","l2","l3","l4","l5","l6","l7","l8","l9","l10")

),

#Effects Coding

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l1", name = "la"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l2", name = "lb"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l3", name = "lc"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l4", name = "ld"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l5", name = "le"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l6", name = "lf"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l7", name = "lg"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l8", name = "lh"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l9", name = "li"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l10", name = "lj"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = FALSE, values = 10, labels = "con", name = "cona"),

mxAlgebra(name="sa",

la+lb+lc+ld+le+lf+lg+lh+li+lj

),

mxConstraint("sa","=","cona"),

#factor loadings for b variables

mxPath(from="FB",

to=c("b1","b2","b3","b4","b5","b6","b7","b8","b9","b10"),

arrows=1,

free=c(TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE),

values=c(1,1,1,1,1,1,1,1,1,1),

labels=c("l11","l12","l13","l14","l15","l16","l17","l18","l19","l20")

),

#Effects Coding

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l11", name = "lba"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l12", name = "lbb"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l13", name = "lbc"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l14", name = "lbd"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l15", name = "lbe"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l16", name = "lbf"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l17", name = "lbg"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l18", name = "lbh"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l19", name = "lbi"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l20", name = "lbj"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = FALSE, values = 10, labels = "cons", name = "conb"),

mxAlgebra(name="sb",

lba+lbb+lbc+lbd+lbe+lbf+lbg+lbh+lbi+lbj

),

mxConstraint("sb","=","conb"),

#factor loadings for b variables

mxPath(from="FC",

to=c("c1","c2","c3","c4","c5","c6","c7","c8","c9","c10"),

arrows=1,

free=c(TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE),

values=c(1,1,1,1,1,1,1,1,1,1),

labels=c("l21","l22","l23","l24","l25","l26","l27","l28","l29","l30")

),

#Effects Coding

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l21", name = "lca"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l22", name = "lcb"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l23", name = "lcc"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l24", name = "lcd"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l25", name = "lce"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l26", name = "lcf"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l27", name = "lcg"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l28", name = "lch"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l29", name = "lci"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = TRUE, values = 1, labels = "l30", name = "lcj"),

mxMatrix(type = "Full", nrow = 1, ncol = 1,

free = FALSE, values = 10, labels = "const", name = "conc"),

mxAlgebra(name="sc",

lca+lcb+lcc+lcd+lce+lcf+lcg+lch+lci+lcj

),

mxConstraint("sc","=","conc"),

#loadings of phantom constructs

mxPath(from="PA",

to="FA",

arrows=1,

free=TRUE,

values=1,

labels="b1"

),

mxPath(from="PB",

to="FB",

arrows=1,

free=TRUE,

values=1,

labels="b2"

),

mxPath(from="PC",

to="FC",

arrows=1,

free=TRUE,

values=1,

labels="b3"

),

mxPath(from="PA",

to="PB",

arrows=1,

free=TRUE,

values=1,

labels="bp1"

),

mxPath(from="PB",

to="PC",

arrows=1,

free=TRUE,

values=1,

labels="bp2"

),

mxPath(from="one",

to=c("a1","a2","a3","a4","a5","a6","a7","a8","a9","a10",

"b1","b2","b3","b4","b5","b6","b7","b8","b9","b10",

"c1","c2","c3","c4","c5","c6","c7","c8","c9","c10",

"FA","FB","FC","PA","PB","PC"),

arrows=1,

free=c(TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,

TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,

TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,

FALSE,FALSE,FALSE,FALSE,FALSE,FALSE),

values=c(1,1,1,1,1,1,1,1,1,1,

1,1,1,1,1,1,1,1,1,1,

1,1,1,1,1,1,1,1,1,1,

0,0,0,0,0,0),

labels=c("meana1","meana2","meana3","meana4","meana5",

"meana6","meana7","meana8","meana9","meana10",

"meanb1","meanb2","meanb3","meanb4","meanb5",

"meanb6","meanb7","meanb8","meanb9","meanb10",

"meanc1","meanc2","meanc3","meanc4","meanc5",

"meanc6","meanc7","meanc8","meanc9","meanc10",

NA,NA,NA,NA,NA,NA)

)

)

MissDataPhantom2Fit <- mxRun(MissDataModel3)

MissDataPhantom2Fit@output

summary(MissDataPhantom2Fit)

And here's the pertinent output that results:

Observed statistics: 7500

Estimated parameters: 95

Degrees of freedom: 7405

-2 log likelihood: 20470.93

Saturated -2 log likelihood:

Chi-Square:

p:

AIC (Mx): 5660.932

BIC (Mx): -10207.74

adjusted BIC:

RMSEA: 0

You have "all=2" in a call to mxPath

That should have been checked and produced an error.

Valid settings are:

all=(TRUE|FALSE)

Thanks for the help, but there's something else going on as well. I tried removing those commands and changing them to all=FALSE, but both solutions ended up with the same 7405 degrees of freedom.

Is there anything else you can see in there?

P.S. I apologize for posting such a long script; I'm in the process of streamlining it, but the new and improved version isn't running yet.

So, you have 30 variables. How many lines in your data set? I'm guessing 250. Which would give you 7500 observed statistics.

By what calculation are you arriving at 370?

Do you have a sense for which is incorrect: the number of observed statistics, or the number of estimated parameters, or both?

Observed statistics: 7500

Estimated parameters: 95

Please use the "attach a file" option to post your R script for next time. That would be more helpful in cases when the script is longer than a handful of lines. Thanks!

Also, a useful tip for writing unwieldy long parameter values like

values=c( "e1","e2","e3","e4","e5","e6","e7","e8","e9","e10" "e11" "e12" "e13" "e14" "e15" "e16" "e17" "e18" "e19" "e20" "e21" "e22" "e23" "e24" "e25" "e26" "e27" "e28","e29", "e30")

this is equivalent and much more maintainable

values= paste("e", 1:30, sep="")

it says "glue these things together using the separator I give you. Oh, and if you see an array, make an array of glued-together things"