Warning messages: 1: In x[lavm...@x.def.idx] <- lavm...@def.function(x.free) : number of items to replace is not a multiple of replacement length 2: In se[def.idx] <- sqrt(diag(def.cov)) : number of items to replace is not a multiple of replacement length