example_data <- lnm_data(N = 10, K = 5)
xy <- dplyr::bind_cols(example_data[c("X", "y")])
fit <- lnm(
starts_with("y") ~ starts_with("x"), xy,
iter = 5, output_samples = 5
)
prepare_newdata(fit, example_data[["X"]])
Run the code above in your browser using DataLab