# initial version: YR 03/05/2017
# header
lav_object_print_header <- function(object) {
# catch FAKE run
FAKE <- FALSE
if(object@Options$optim.method == "none") {
FAKE <- TRUE
}
# Convergence or not?
if(FAKE) {
cat(sprintf("psindex (%s) -- DRY RUN with 0 iterations\n",
packageDescription("psindex", fields="Version")))
} else if(object@optim$iterations > 0) {
if(object@optim$converged) {
cat(sprintf("psindex (%s) converged normally after %3i iterations\n",
packageDescription("psindex", fields="Version"),
object@optim$iterations))
} else {
cat(sprintf("** WARNING ** psindex (%s) did NOT converge after %i iterations\n",
packageDescription("psindex", fields="Version"),
object@optim$iterations))
cat("** WARNING ** Estimates below are most likely unreliable\n")
}
} else {
cat(sprintf("** WARNING ** psindex (%s) model has NOT been fitted\n",
packageDescription("psindex", fields="Version")))
cat("** WARNING ** Estimates below are simply the starting values\n")
}
cat("\n")
# number of free parameters
#t0.txt <- sprintf(" %-40s", "Number of free parameters")
#t1.txt <- sprintf(" %10i", object@optim$npar)
#t2.txt <- ""
#cat(t0.txt, t1.txt, t2.txt, "\n", sep="")
#cat("\n")
}
# optim
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.