From 96d083fa34ab6aebabacfa94684ba8ec0a801bf9 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Thu, 7 Jan 2016 11:31:19 -0200
Subject: [PATCH] Add call to the methods in example 1.
---
Examples/Examples1.R | 18 +++++++++++++++++-
1 file changed, 17 insertions(+), 1 deletion(-)
diff --git a/Examples/Examples1.R b/Examples/Examples1.R
index d1ab22b..1ffe1c4 100755
--- a/Examples/Examples1.R
+++ b/Examples/Examples1.R
@@ -6,7 +6,9 @@
rm(list=ls())
# Loading extra package ------------------------------------------------
-require(mcglm)
+
+devtools::load_all("../")
+## require(mcglm)
require(Matrix)
require(tweedie)
require(dplyr)
@@ -32,6 +34,20 @@ fit1.id <- mcglm(linear_pred = c(y1 ~ covariate),
"verbose" = FALSE))
summary(fit1.id)
+methods(class = "mcglm")
+
+fit1.id
+anova(fit1.id)
+coef(fit1.id)
+confint(fit1.id)
+fitted(fit1.id)
+plot(fit1.id) ## residuals
+plot(fit1.id, type = "algorithm")
+plot(fit1.id, type = "partial")
+residuals(fit1.id)
+summary(fit1.id)
+vcov(fit1.id)
+
# Using the inverse covariance link function ---------------------------
fit1.inv <- mcglm(linear_pred = c(y1 ~ covariate),
matrix_pred = list("resp1" = list(Z0)),
--
GitLab