diff --git a/Examples/Examples1.R b/Examples/Examples1.R
index d1ab22b7f47cb2b228eeccab53d84f9e5f4e8750..1ffe1c43cbc3f91eb6ae09acf92fecafcc94bb7b 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)),