1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# last modified 2011-08-04 by J. Fox
print.objectiveML <- function(x, ...) {
n <- x$n
t <- x$t
n.fix <- x$n.fix
df <- n*(n + 1)/2 - t - n.fix*(n.fix + 1)/2
cat("\n Model Chisquare = ", x$criterion * (x$N - (!x$raw)),
" Df = ", df, "\n\n")
if (!is.null(x$coef)){
print(x$coeff)
if (!is.na(x$iterations)) cat("\n Iterations = ", x$iterations, "\n")
if (!is.null(x$aliased)) cat("\n Aliased parameters:", x$aliased, "\n")
}
invisible(x)
}
print.objectiveGLS <- function(x, ...) print.objectiveML(x, ...)
|
