R/summary.svyPVglm.R

In manuelreif/svyPVpack: A package for complex surveys including plausible values

summary.svyPVglm <-
function(object, ...)
{

# Hier sollte irgendeine sinnvolle summary function noch gemacht werden.
# ich hab das:
# class(FINAL.RES) <- "svyPVglm"
# noch in REG_MAIN hinzugefuegt.



# das mal irgendwas passiert - um sehen obs funktioniert. bitte einfach durch was sinnvolles ersetzen!

cat("----------------------------------------------------")
cat("Now the coef1 blabla")
object$STNDRDZD.COEF
cat("----------------------------------------------------")


}