# R/print.JGee1.R In JGEE: Joint Generalized Estimating Equation Solver

#### Documented in print.JGee1

```print.JGee1 <-
function(x, digits = NULL, quote = FALSE, prefix = "", ...)
{
if(is.null(digits)) digits <- options()\$digits else options(digits =
digits)
cat("\n", x\$title)
cat("\n", x\$version, "\n")
cat("\nModel:\n")
cat(" Variance to Mean Relation:", x\$model\$varfun, "\n")
if(!is.null(x\$model\$M))
cat(" Correlation Structure 1:    ", x\$model\$corstr1, ", M =", x\$
model\$M, "\n")
else cat(" Correlation Structure 1:    ", x\$model\$corstr1, "\n")
cat(" Correlation Structure 2:    ", x\$model\$corstr2, "\n")
cat("\nCall:\n")
dput(x\$call)                        #       cat("\nTerms:\n")
###        ys <- matrix(rep(as.matrix(x\$id, ncol = 1), 5), ncol = 5)
ys <- matrix(rep(matrix(x\$id, ncol = 1), 5), ncol = 5)
ys[, 2] <- x\$y
ys[, 3] <- x\$linear.predictors
ys[, 4] <- x\$fitted.values
ys[, 5] <- x\$residuals
dimnames(ys) <- list(1:length(x\$y), c("ID", "Y", "LP", "fitted",
"Residual")) #       cat("\nFitted Values:\n")
cat("\nNumber of observations : ", x\$nobs, "\n")
cat("\nMaximum cluster size   : ", x\$max.id, "\n")
nas <- x\$nas
if(any(nas))
cat("\n\nCoefficients: (", sum(nas),
" not defined because of singularities)\n", sep = "")
else cat("\n\nCoefficients:\n")
print(x\$coefficients, digits = digits)
cat("\nEstimated Scale Parameter: ", format(round(x\$scale, digits)))
cat("\nNumber of Iterations: ", x\$iterations)
cat("\n\nWorking Correlation[1:4,1:4]\n")
print(x\$working.correlation[1:4, 1:4], digits = digits)
cat("\n\nReturned Error Value:\n")
print(x\$error)
invisible(x)
}
```

## Try the JGEE package in your browser

Any scripts or data that you put into this service are public.

JGEE documentation built on May 2, 2019, 11:51 a.m.