fix blavPredict when newdata is supplied with type="ov" or "ypred"

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: blavaan
 Title: Bayesian Latent Variable Analysis
-Version: 0.5-5.1289
+Version: 0.5-5.1290
 Authors@R: c(person(given = "Edgar", family = "Merkle",
                     role = c("aut", "cre"),
                     email = "[email protected]",

NEWS.md

@@ -4,6 +4,11 @@
 
 * Bugs from 0.5-4 are fixed.
 
+## Bugs/glitches discovered after the release:
+* On some systems, blavaan installation fails with a "parser failed badly" message from rstan (reported by Larry Hunsicker).
+
+* blavPredict(, type="ov"/"ypred") can fail when the sample size of newdata differs from the sample size of the original data (reported by Niels Skovgaard-Olsen).
+
 # Version 0.5-4
 ## New features
 * New function sampleData() for generating data from a blavaan object.

R/blav_predict.R

@@ -40,6 +40,10 @@ blavPredict <- function(object, newdata = NULL, type = "lv", level = 1L) {
     if(!stantarget) stop("blavaan ERROR: newdata is currently only available for target='stan'")
     if(lavInspect(object, "categorical")) stop("blavaan ERROR: newdata is not yet available for ordinal data.")
     object <- blav_fill_newdata(object, newdata)
+
+    blavsamplestats <- object@SampleStats
+    blavdata <- object@Data
+    standata <- object@external$mcmcdata
   }
 
 
@@ -138,6 +142,7 @@ blav_fill_newdata <- function(object, newdat, lvs = TRUE) {
                       ov.names.x = olddata@ov.names.x,
                       ordered = OV$names[ OV$type == "ordered" ],
                       lavoptions = object@Options, allow.single.case = TRUE)
+  object@SampleStats@ntotal <- NROW(newdat)
 
   ## Stan-formatted newdata
   l2s <- lav2stanmarg(object, dp = blavInspect(object, 'options')$dp,