diff --git a/R/bsvarSIGNs-package.R b/R/bsvarSIGNs-package.R
index f880825..c409744 100644
--- a/R/bsvarSIGNs-package.R
+++ b/R/bsvarSIGNs-package.R
@@ -137,11 +137,11 @@
 #' 
 #' # specify the model
 #' specification  = specify_bsvarSIGN$new(optimism,
-#'                                        p        = 12,
+#'                                        p        = 4,
 #'                                        sign_irf = sign_irf)
 #'                                        
 #' # estimate the model
-#' posterior      = estimate(specification, S = 100)
+#' posterior      = estimate(specification, S = 10)
 #' 
 #' # compute and plot impulse responses
 #' irf            = compute_impulse_responses(posterior, horizon = 40)
diff --git a/R/estimate.R b/R/estimate.R
index e57c680..4580ac7 100644
--- a/R/estimate.R
+++ b/R/estimate.R
@@ -83,7 +83,7 @@
 #' # specify the model and set seed
 #' set.seed(123)
 #' specification  = specify_bsvarSIGN$new(optimism,
-#'                                        p        = 12,
+#'                                        p        = 4,
 #'                                        sign_irf = sign_irf)
 #'                                        
 #' # estimate the model
diff --git a/man/bsvarSIGNs-package.Rd b/man/bsvarSIGNs-package.Rd
index 660e195..caec6e2 100644
--- a/man/bsvarSIGNs-package.Rd
+++ b/man/bsvarSIGNs-package.Rd
@@ -98,11 +98,11 @@ sign_irf       = matrix(c(0, 1, rep(NA, 23)), 5, 5)
 
 # specify the model
 specification  = specify_bsvarSIGN$new(optimism,
-                                       p        = 12,
+                                       p        = 4,
                                        sign_irf = sign_irf)
                                        
 # estimate the model
-posterior      = estimate(specification, S = 100)
+posterior      = estimate(specification, S = 10)
 
 # compute and plot impulse responses
 irf            = compute_impulse_responses(posterior, horizon = 40)
diff --git a/man/estimate.BSVARSIGN.Rd b/man/estimate.BSVARSIGN.Rd
index 635598f..6a00376 100644
--- a/man/estimate.BSVARSIGN.Rd
+++ b/man/estimate.BSVARSIGN.Rd
@@ -80,7 +80,7 @@ sign_irf       = matrix(c(0, 1, rep(NA, 23)), 5, 5)
 # specify the model and set seed
 set.seed(123)
 specification  = specify_bsvarSIGN$new(optimism,
-                                       p        = 12,
+                                       p        = 4,
                                        sign_irf = sign_irf)
                                        
 # estimate the model